○テキストファイルの内容の置換

■置換するスクリプトファイル
ファイル名 : start.pl
複数または一つの連続したTABを , に置換します

while($line=<>){
	$line=~ s/\t+/,/g;
	print $line;
}

■置換元のテキストファイル
ファイル名 : test.txt
文字列がタブで区切られています

1AC グループ１	O1001.csv
1AC グループ２	O1002.csv
２ＰＳエア		O1009.csv
１ＰＳバイパス	O1010.csv
２ＡＣバイパス	O1011.csv

■パイプとリダイレクトを使って置換
出力を新規ファイルsample.txtに書き込みます
このとき変換元と変換先に同一ファイルを指定できません

cat test.txt | perl start.pl > sample.txt

▼書き出されたsample.txtの内容

1AC グループ１,O1001.csv
1AC グループ２,O1002.csv
２ＰＳエア,O1009.csv
１ＰＳバイパス,O1010.csv
２ＡＣバイパス,O1011.csv


■変換スクリプトサンプル
▼Linuxで書いたテキストファイルをWindows形式に変換する

while($line=<>){
	$line=~ s/\n/\r\n/;
	print $line;
}