Perl

Sort a file based on values from the file name.  We had a task were we need to process a number of files in a certain order.  This order was run, district, copy, copy total.  This code is from tobyink.  You rock!

<code>

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

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]

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   ;

env.ini

At my current job I don't have the luxury of being able to install log4perl.

So I wrote my own. Here it is.

# print level

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 :

I had a project to transfer between servers. The first iteration worked but i thought it need something else.
So i made with a database interface that tracked what i had sent.

Oracle DB


DROP TABLE FULFILL.SUPPRESSION CASCADE CONSTRAINTS;