|
Server : Apache/2.4.62 System : FreeBSD fbsdweb2.web.rcn.net 14.1-RELEASE FreeBSD 14.1-RELEASE releng/14.1-n267679-10e31f0946d8 GENERIC amd64 User : www ( 80) PHP Version : 8.3.8 Disable Function : NONE Directory : /domains/mandarintools/cgi-bin/ |
Upload File : |
#!/usr/bin/perl
$limit = 50;
open(QUERY, "queries.txt");
while ($line = <QUERY>) {
$line =~ s/[\r\n]*$//;
($type, $where, $count, $query) = ($line =~ m/^(.)(.)(\d+): (.*)$/);
if ($type eq "C") {
if ($count == 0) {
$cmiss{$query}++;
} else {
$cfound{$query}++;
}
}
}
close(QUERY);
print "Content-type: text/html; charset=utf-8\n\n";
print "<HTML><HEAD><TITLE>Most frequent Chinese Dictionary Queries</TITLE></HEAD>\n";
print "<BODY><TABLE border=2>";
print "<TR><TD><b> $limit Most Frequent Found Queries</b></TD><td><b>$limit Most Frequent Unfound Queries</b></TD></TR>\n";
print "<TR>\n";
print "<TD>";
$count = 0;
#print "* Top found Chinese queries *<HR>\n";
foreach $query (sort {$cfound{$b} <=> $cfound{$a}} keys %cfound) {
print "$query<BR>\n";
#print "$query\t$cfound{$query}\n";
last if ++$count > $limit;
}
print "</TD>\n\n";
print "<TD>";
$count = 0;
#print "* Top not found Chinese queries *<HR>\n";
foreach $query (sort {$cmiss{$b} <=> $cmiss{$a}} keys %cmiss) {
print "$query<BR>\n";
#print "$query\t$cmiss{$query}\n";
last if ++$count > $limit;
}
print "</TD></TR></TABLE></HTML>";