Perlについての質問箱 65箱目 (112ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

53: デフォルトの名無しさん [sage] 2021/11/09(火) 00:02:06.84 ID:J0R6dl97(1/2) AAS
sub f {
my $s = shift;
$s =~ s/ / /g;
return "<$s>";
}

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

---

54: デフォルトの名無しさん [sage] 2021/11/09(火) 00:03:21.78 ID:J0R6dl97(2/2) AAS
sub f {
my $s = shift;
$s =~ s/＆＃160;/ /g;
return "<$s>";
}

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

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.012s