07/11/19 21:06:04 CS1VTyyl0
>>867
すみません、上記の一部に間違いがありました。以下で正しいです。
sub ime { #クッションリンクの処理
my $ime = $_[0];
if($ime =~ /[\/\.]2ch\.net|[\/\.]bbspink\.com/){
return "$ime";
} else {
$ime =~ s/#/;/g;
$ime =~ s/h?ttp\:\/\//http\:\/\/ime\.k2y\.info\/\?/gi;
return "$ime";
}