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

Perlについての質問箱 65箱目 (112ﾚｽ)
上下前次 1-新

54: 2021/11/09(火)00:03 ID:J0R6dl97(2/2) AAS
sub f {
my $s = shift;
$s =~ s/＆＃160;/ /g;
return "<$s>";
}

$line =~ s/<(.+?)>/f($1)/eg;