Perlについての質問箱 63箱目

[0164 デフォルトの名無しさん 2016/06/01(水) 12:56:13.02 ID:UybPRljc]

>>161-163
$text =~ s{(?<=＆lt;)(.+?)(?=＆gt;)}{ $1 =~ s/＆quot;/"/gr }eg;