open(IN, "<in.txt"); open(OUT, ">out.txt"); while (<IN>) { chop; if ( m/:(\d+)$/ ) { $p = sprintf("%4s", $1); $port{$p}++; } } foreach $key (sort keys %port) { ($p = $key) =~ s/ //g; # print OUT "$p\n"; print OUT "$p($port{$key})\n"; }
(弾くための処理) if $ENV{'HTTP_USER_AGENT'} =~ m|Mozilla/4\.0 \(compatible; MSIE 6\.0; Windows NT 5\.1; \.NET CLR 1\.1\.|;
return $Report{'アクセス許可'} if $HostDN =~ m/$DomainCountry$/i; # 日本 return $Report{'アクセス許可'} if $HostDN =~ m/^YahooBB/i; # Yahoo return $Report{'アクセス許可'} if $HostDN =~ m/\.jp\./i; # .jp. return $Report{'日本以外'} if $HostDN =~ m/\.\w{3,}$/i || $HostDN =~ m/\.us$/i; # 米国
投稿コード掲示板