Perl コーディング初心者質問コーナー Part37

[0251 nobodyさん 04/09/05 14:09 ID:???]

>>247
$text =~ s|(^>.*(?:\n^>.*)*)|<span class="quoted">$1</span>|gm;