09/12/10 01:08:44 0 BE:144648757-PLT(90010)
うーん上手くいかなーい、そんでねむーい
#!/usr/local/bin/perl
my $list_PATH = "ほげほげ";
my $list_txt_file = "$list_PATH/list.txt";
my @Inlist;
my $match_string_list;
my $host = $ENV{'REMOTE_HOST'};
my $addr = $ENV{'REMOTE_ADDR'};
if ($host eq "" || $host eq $addr) {
$host = gethostbyaddr(pack("C4", split(/\./, $addr)), 2) || $addr;
}
open(IN, $list_txt_file);
@Inlist = <IN>;
close(IN);
@Inlist = grep(!/^(#|\n)/,@Inlist);
print << "END_OF";
Content-type:text/html\n\n
END_OF
print "あなたのホストは「 " . $host . " 」です。<br>\n";
for ($i = 0; $i < @Inlist; $i++) {
$Inlist[$i] =~s/\n//g;
($match_string_list,$display_match_string) = (split(/\t/,$Inlist[$i]))[0..1];
if ($host =~ m/$match_string_list/) {
print "リストの" . $match_string_list . "にマッチしました。<br>\n";
if ($display_match_string eq "") {
print "このホストの規制表\記は『 " . $match_string_list . " 』になります。<br>\n";
} else {
※さてここどうすっかな？
}
last;
}
}
exit;
>>765
あら？うちは嫁が腐ってますよ