Perlで文字列をファイルを一括して置き換える（削除する）

Perl memo

ファイルの中身を一括して置き換える。

use utf8;
use Encode;
#標準出力（しない場合は不要）
binmode STDIN, ":utf8";
binmode STDOUT, ":utf8";
#テキストファイルの一括取得
@files = glob ("*.txt");

#それぞれのファイルに対して処理
foreach $i (@files){

#ファイルを開く
open A,$i;
#内容を配列に格納
@data = <A>;
close A;

#保存用のファイルを作る
open B,">edit_$i";

#一行ごとの処理
foreach my $line (@data){
$line=decode('UTF-8', $line);
#置き換えの処理
$line=~s/<p>//g;
$line=~s/<br>//g;
#ダブルスペースを削除
$line=~s/ +/ /g;
#小文字に変換
$line=lc($line);

print B encode('UTF-8', $line);
}
close B;
}