#!/usr/local/bin/perl
print "\n";
print "\n";
print "
\n";
print " \n";
print " \n";
print " $ARGV[0] のページにアクセス要求を出したブラウザ\n";
print "\n\n";
print "\n";
print "$ARGV[0] のページにアクセス要求を出したブラウザ
\n";
print "
\n\n";
print "\n";
print "\n";
print "アクセス数 | ブラウザ |
\n\n";
while()
{
chop;
/(\d+)\t(.+)/;
$number = $1; $browser = $2;
if($number >= $ARGV[1]){
print "" . $number . " | ";
print "" . $browser . " |
\n";
}
}
print "
\n\n\n
\n\n";
print "戻る\n\n";
print "\n\n";