半角スペースを消すだけです

スクリプトの途中からです。

print "<blockquote>$com</blockquote><hr color=$line_color>\n";
}
}
close(IN);

# タイトル名
if ($resub !~ /^Re\:/) { $resub = "Re\: $resub"; }

print <<"EOM";
<a name="RES"></a>


Re:　の後に続く半角スペースを無しにしたいんですが、
どこをどうやったらよろしかったんですやろか…。
暇なときにでもお願いします。

No.1 ベストアンサー 回答者： lowrider_2005 回答日時： 2006/11/23 18:16

if ($resub !~ /^Re\:/) { $resub = "Re\: $resub"; }　を

if ($resub !~ /^Re\:/) { $resub = "Re\:$resub"; }　にする。

半角スペースを取るだけだと思うけど？

この回答へのお礼

ですよね！
さっそくの回答ありがとうございます。

お礼日時：2006/11/23 20:37