PERL

配列(リスト)内の値を置換

フォームでデータを受け取って ハイフンとか文字を置換したい場合 PERL のMAPを使用すると置換出来た。

スカラー配列ごとに

$aaa = ~ s//*****
$bbb = ~ s//*****
$ccc = ~ s//*****

ってな感じで何とか対応してきたのですが・・・

@array = ($aaa,$bbb,$ccc)
@array2 = map { ~ s/\xEF\xBC\x8D/\xE2\x88\x92/g;$_;} @array;

print "@array2";

で置換可能

末尾の $_; ではまってしまった・・・

おすすめ