in reply to Re^2: Counting keys in a hash
in thread Counting keys in a hash
Change the line to :
This is a LOT more forgiving than the original, and allows your new data to pass through, producing:next unless my ($date,$time, $device, $err) = /(\w+ \d+) ([\d:]+)\s +(\S+).+\[[^\]]+\]([^\(]+)/;
DEVICE --> esw110tf222 ============== DATE --> Oct 17 TIME --> 10:35:35 ERROR --> system-alert-000008:IP Spoofing! From 255.255.255.255 to 0 +.0.0.0, proto 1 The above error occurred 2 times
"By three methods we may learn wisdom: First, by reflection, which is noblest; Second, by imitation, which is easiest; and third by experience, which is the bitterest." -Confucius
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^4: Counting keys in a hash
by cspctec (Sexton) on Nov 20, 2012 at 14:05 UTC | |
by Athanasius (Archbishop) on Nov 20, 2012 at 14:50 UTC |
In Section
Seekers of Perl Wisdom