print start_html(-title =>'Senders', -bgcolor=>'#95B8DB'); #### 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 ''; for my $word (sort keys %count) { print "\n"; } print '
WordCount
$word$count{$word}
'; ##
## print ''; for my $word (sort keys %count) { print "\n"; } print '
WordCount
$word" . ('#' x $count{$word}) . "
';