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

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

53: 2021/11/09(火)00:02 ID:J0R6dl97(1/2) AAS
sub f {
my $s = shift;
$s =~ s/ / /g;
return "<$s>";
}

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