Perl 初心者コーナー Part23

[0929 nobodyさん 03/06/06 23:23 ID:???]

>>927
「エラーになるんですが・・・」じゃねーよﾊﾞｶ
ｴﾗｰ出てるんなら貼れ&>>1を100回声に出して読め。

$body =~ s/(.*)\x0D\x0A$/(.*)\x0A$/g;
↓
$body =~ s/(.*)\x0D\x0A$/$1\x0A$/g;
↓
$body =~ s/\x0D\x0A$/\x0A$/g;