...
my $MISC_FILE_DIR = shift || die usage();
my $req = shift || die usage();
my $inqfile = shift || die usage();
my $sent = shift || die usage();
my $status = shift || die "please specify status\n" . usage();
...
####
bash-2.03$ insertIntoLN.pl misc 135 doesnt_matter 20031208120000 0
please specify status
usage: ./insertIntoLN.pl
####
...
while( my @row = $sth->fetchrow_array ) {
print join( '|', map ( $_ || 'NULL', @row )) ."\n";
}
...
####
137|src/20031208153031.txt|20031210093234|NULL|NULL
138|src/20031208153031.txt|20031210093509|NULL|NULL