Perl

Writing a good parser for an INI file

I wrote one of these a couple of years ago but it wasnt quite right.  This takes another stab at it.

1.    It uses the DFLT section to populate any key that is not already there.  

2.    All sections and sub section are case insensitive .
3.    All keys are case insensitive.
4.    Any section that does not have key=value pairs is ignored
5.    The sections will only use the first numeric then alpha characters  get the client
       a.    For instance 
             [144LI0901] 
                Becomes
             [144LI]

How to put several qr into an array

We had a problem with a client sending us data that was not consistent.  I decided to write a function that could deal with many regex's.

 

we put the regexs into an array.  Iterate through the array and break out if any match.

if no regexs match die.

<code>

sub figureOutFileFormat {
    my $fileHash     = shift(@_);
    my $batchName     = shift(@_);
    my $file          = shift(@_);

    my $year   ;
    my $month  ;
    my $day    ;

    # set the account number
    #
    my $acct   ;

My attempt at programming python

I've been wanting to get into python for a while but never had the time.
This last week i didn't have anything to do so.......
I have written a perl script to get the environment variable out of multiple files.
If i have the same variable in both files the last file will replace the first files variable.

env.ini

Log4perl

I have been looking a long time for something to set the logging level in log4perl. I finally found a setting for it. It is the "Threshold" setting.
So you can set the screen to INFO but the log to TRACE. That way you don't get all the just printed to the screen but you can reference back to it.
This is really good for debugging purposes

For example :