in reply to [off-site] Bash + Perl oneliners basics
Hmm. A Useless Use of Cat, using Perl like it was awk, and then chaining together a few other tools like forking is free. Hmm.cat /var/log/httpd/access_log | perl -l -a -n -e 'print $F[6]' | sort +| uniq -c | sort -n | tail -10
I'd probably have written that as:
I bet mine runs with 1/4th the CPU.@ARGV = qw(/var/log/httpd/access_log); my %count; while (<>) { my ($f) = (split)[6]; $count{$f}++; } my $n = 0; for (sort {$count{$b} <=> $count {$a}) { print "$_\n"; last if ++$n >= 10; }
-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: [off-site] Bash + Perl oneliners basics
by Anonymous Monk on Mar 17, 2005 at 09:50 UTC | |
Re^2: [off-site] Bash + Perl oneliners basics
by grinder (Bishop) on Mar 17, 2005 at 08:22 UTC | |
Re^2: [off-site] Bash + Perl oneliners basics
by gellyfish (Monsignor) on Mar 17, 2005 at 13:08 UTC | |
Re^2: [off-site] Bash + Perl oneliners basics
by thor (Priest) on Mar 17, 2005 at 12:32 UTC |
In Section
Cool Uses for Perl