18:06:04.616 [79952.57692] <2> logparams: -S server1.prod.com -D server2.prod.com -C server3.prod.com -X -s 1421467204 -e 1421467204 -R E:\Program Files\725635\logs\log.tmp.chg -K -t 13 -M -k -L E:\Program Files\725635\logs\infod.tmp.log -W -f E:\Program Files\725635\logs\after.tmp
17:49:34.216 [58140.81564] <2> logparams: -S -l -a -k server1.prod.com -D client10.prod.com -C sql12.prod.com -X -s 1421467205 -e 1421467205 -R E:\Program Files\561234\logs\log.tmp.chg -K -t 13 -M -k -L E:\Program Files\561234\infod10.tmp.log -W -f E:\Program Files\561234\logs\after.tmp
####
server1.prod.com,server2.prod.com,server3.prod.com,725635,infod.tmp.log
server1.prod.com,client10.prod.com,sql12.prod.com,561234,infod10.tmp.log
####
open(FILE, $filename) or die "Could not read from $filename, program halting.";
while()
{
# get rid of the pesky newline character
chomp;
# read the fields in the current record into an array
@fields = split(/[\s\\]+/, $_);
$datestring = localtime();
open logreport, ">>E:\\temp\\logs\\eligiblereport.txt";
print logreport "$date,$fields[5],$fields[7],$fields[9],$fields[24],$fields[43]\n";
}
close logreport;
close FILE;