##
use CGI ':standard';
##
##
print "Content-Type: text/html; charset=utf-8\n\n",
##
##
system("sudo grep -E 'Passed CLEAN.* ->.*' /var/log/maillog | grep -v root@ > /tmp/PassedCLEAN.txt");
system("sudo awk '{print \$12}' /tmp/PassedCLEAN.txt > /tmp/PassedCLEAN_1.txt");
system('sed -e "s/<\(.*\@.*\)>/\1/g" /tmp/PassedCLEAN_1.txt > /tmp/PassedCLEAN_2.txt');
##
##
for my $word (sort keys %count) {
print "$word $count{$word}\n";
#print "$count{$word}\n";
print "
";
print " \n";
}
close $fh;
##
##
print 'Word Count ';
for my $word (sort keys %count) {
print "\n$word $count{$word} ";
}
print '
';
##
##
print 'Word Count ';
for my $word (sort keys %count) {
print "\n$word " . ('#' x $count{$word}) . " ";
}
print '
';