G'day Aaron,
I wouldn't recommend showing someone, who's "new to perl", experimental features (without clearly pointing out that they are experimental and why you are using them).
I'm not sure what born_Today will make of the follow two lines on stderr:
when is experimental at <script_name> line 10.
when is experimental at <script_name> line 11.
This code seems overly complicated:
while(my $line = <$fd>){
for($line){
print when /Total/; # print matching lines
$count++ when /failed/; # count matching lines
}
}
This may have been better:
while (<$fd>) {
print if /Total/; # print matching lines
$count++ if /failed/; # count matching lines
}
|