文字変換で,を改行されないようにしたい
下記のスクリプトでファイルから読み込んだ行毎の文字列<>を'=>'に変換後、行の先頭に'を付け足し行の最後に',を付け加えた場合、変な風に改行されてしまいます。
$ cat list1.txt
01<>ああああ
01_01<>あAAA
01_02<>あBBB
01_03<>あCCC
01_04<>あDDD
02<>いいいい
02_01<>いAAA
02_02<>いBBB
02_03<>いCCC
02_04<>いDDD
open(IN, "<list1.txt");
@datas = <IN>;
close(IN);
open(OUT, ">date.txt");
foreach (@datas) {
($a, $b) = split(/<>/, $_);
print OUT "'$a'=>'$b',";
}
close(OUT);
実行結果
$ cat date.txt
'01'=>'ああああ
','01_01'=>'あAAA
','01_02'=>'あBBB
','01_03'=>'あCCC
','01_04'=>'あDDD
','02'=>'いいいい
','02_01'=>'いAAA
','02_02'=>'いBBB
','02_03'=>'いCCC
','02_04'=>'いDDD
',
これを下記のように整形するにはスクリプトのどこを直せばよいのでしょうか。
'01'=>'ああああ',
'01_01'=>'あAAA',
'01_02'=>'あBBB',
'01_03'=>'あCCC',
'01_04'=>'あDDD',
'02'=>'いいいい',
'02_01'=>'いAAA',
'02_02'=>'いBBB',
'02_03'=>'いCCC',
'02_04'=>'いDDD',
どなたかご教授お願い致します。（上記のスクリプト以外の方法で
スマートなやり方などありましたらあわせてご教授頂けますと助かります。）
お礼
無事出来ました！ ありがとうございました。