Re^3: Not exactly Dereferencing... but in that ball park

Well okay, but I think the OP wanted to partition messages by type, not count instances. So to perlify further:

my %messages = map { $_ => [] } qw(error alert warning);
my $logfile = '/var/log/messages';

open my $log, "<", $logfile or die "$logfile: open: $!";
while (<$log>) {
    for my $type (keys %messages) {
        push @{ $messages{$type} }, $_ if /$type/;
    }
}
close $log or die "$logfile: close: $!"; # as long as we're bothering 
+with explicit close, we may as well test it for success.
[download]

I know you know it, but there's no reason to \Q the type names here since they don't contain dangerous characters.

Comment on Re^3: Not exactly Dereferencing... but in that ball park Download Code

Replies are listed 'Best First'.
Re^4: Not exactly Dereferencing... but in that ball park by Tanktalus (Canon) on Nov 20, 2005 at 01:07 UTC
Actually, based on the OP's code, where they're using "wc -l", they want a count. `cat file \| grep something \| wc -l` is the shell way to count the number of lines that match. Well, grep -c would probably be a bit more efficient. As would avoiding cat: `grep -c something file`. One process rather than three. Regardless, that's what the OP's code does. As for the \Q, it's just a handy habit to be in. It's more likely to do what the programmer wants, which is why perl 6's default will be to match variables exactly, and require putting them in angle brackets to treat them as regexp strings to be parsed and matched.	[reply] [d/l] [select]
Re^5: Not exactly Dereferencing... but in that ball park by gaal (Parson) on Nov 20, 2005 at 05:50 UTC
`<indeed!> xx Inf;` All good points. I don't know how I missed the `wc`.	[reply] [d/l] [select]