done
cat /var/log/maillog
} |
perl -ne "print \"\$2\n\"
perl -ne 'print lc($2) . "\n"
if (/reject=/ and /^$start.*ruleset=check_\S+,\s+arg1=(<[^@]+@)?([^>,]+).*reject=/o);" |
if (/reject=/ and /^$start.*ruleset=check_\S+,\s+arg1=(<[^@]+@)?([^>,]+).*reject=/o);' |
sort | uniq -c | sort -nr
fi;;
esac