09/12/10 22:54:19 1XyITk/p0
>>777
にゃにゃにゃ
if ($host =~ m/$match_string_list/)) {
my $o = $&;
略
}else{
$o =~ s/$match_string_list/q{"} . $display_match_string . q{"}/gee;
print "このホストの規制表\記は『 " . $o . " 』になります。<br>\n";
こう？
さて期待通りに動くかな
テストしてきますｗ
09/12/10 22:54:19 1XyITk/p0
>>777
にゃにゃにゃ
if ($host =~ m/$match_string_list/)) {
my $o = $&;
略
}else{
$o =~ s/$match_string_list/q{"} . $display_match_string . q{"}/gee;
print "このホストの規制表\記は『 " . $o . " 』になります。<br>\n";
こう？
さて期待通りに動くかな
テストしてきますｗ