Instantly share code, notes, and snippets.

Embed
What would you like to do?
Egysoros perl
# A perlesített változat, külső utility nélkül
cat kern | perl -ne '
BEGIN { my %tt; }
/^(... .. ..).* DROP .*DST=(\S+)/ && do {
$currkey=$1."\t".$2;
if (exists($tt{$currkey})){ $tt{$currkey}++ }
else { $tt{$currkey}=1; }
};
END {
foreach $k (sort keys %tt) {
print $tt{$k},"\t",$k,"\n";
}
}'
# Eredmény szempontjából ugyanaz, csak a perl kimenetét a uniq-on futtatom át, ahelyett, hogy perlben megírtam volna :)
cat kern | perl -ne '/^(... .. ..).* DROP .*DST=(\S+)/ && print $1,"\t",$2,"\n"' | uniq -c
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment