うーん上手くいかなーい、そんでねむーい

#!/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
あら？うちは嫁が腐ってますよ