ぜろちゃんねるスクリプト総合質問スレ Part6

150 ：149：04/11/05 02:08 ID:S6I4OiW+

if ($kind){ # 読み込み済み
if ($kind != 4 && $kind != 7){ # 管理操作以外
$host =~ s/<(.*)>//g; # ホストの分解
if ($host !~ /\d$/){
my ($f,$r) = split(/\./,$host,2);
$f =~ s/\d/\./g;
$host = "${f}.${r}";
}
}

この辺ですよね
でもどういじればいいのかわかりません