文字変換で,を改行されないようにしたい

質問

下記のスクリプトでファイルから読み込んだ行毎の文字列<>を'=>'に変換後、行の先頭に'を付け足し行の最後に',を付け加えた場合、変な風に改行されてしまいます。
$ 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',

どなたかご教授お願い致します。（上記のスクリプト以外の方法で
スマートなやり方などありましたらあわせてご教授頂けますと助かります。）

回答No.3

BLUEPIXY · ベストアンサー

open(IN, "<list1.txt");
@datas = <IN>;
close(IN);
open(OUT, ">date.txt");

foreach (@datas) {
chomp; #タイミング的にはどうせならこっちのがいいかも
($a, $b) = split /<>/; # $_ は省略できる

print OUT "'$a'=>'$b',\n";
}
close(OUT);

お礼

そういえば$_は省略できるんでしたよねー。
split以降の場面でもどうように省略できるのは、ちょっとした発見でした。
またタイミングの場所についてもご教授いただき恐れ入ります。

有難うございました。

回答No.2

BLUEPIXY

＃１の場合、
print OUT "'$a'=>'$b',\n";
にする必要があります。

回答No.1

BLUEPIXY

@datas = <IN>;
で読み込んだ各行の行末には、もともと改行が付属しています。
なので
@datas = <IN>;
chomp @datas;
として、行末の改行を取り除いてやれば良いと思います。（他にも方法はあるかと思いますが、これが簡単だと思います。）

お礼

@datas = <IN>;で読み込んだ場合の行末には改行が含まれているんですね
一つ学習できました。ありがとうございます。

chompで行末の改行を取り除けばよかったんですか。
chomp自体は知っていても使う機会がなく、考えがそこまで及びませんでした。

何とも恥かしい限りですが、ご教授頂いたおかげで無事に達成する事ができました。本当にありがとうございます。