Think about Loose Coupling | |
PerlMonks |
Re: processing timelogby hippo (Bishop) |
on Aug 24, 2014 at 09:01 UTC ( [id://1098448]=note: print w/replies, xml ) | Need Help?? |
Your code doesn't look too problematic in general. However you are preforming string equality tests like this: if($message eq "TP Service Request"){but $message is the last field in the line from the input file and isn't being chomped so your string test will likely fail unless you take into account the EOL character(s). If you can correct that (probably best to use chomp to do so) you may have more success.
In Section
Seekers of Perl Wisdom
|
|