ファイルから読み込み、文字列を反転させ書き込む

質問

読み込むファイルの内容は
a,b,c,d,e,f,g
1,2,3,4,5,6,7
です。
このファイルを読み込んでreverse,sortを使わずに一行づつ反転させ、出力させたいのですが、とりあえづ下記のようにしましたが、以降てがつけられません。
$filename = "file";
open HANDLE,"<$filename";
while ($array = <HANDLE>){
@fields = split /,/,$array,;
for($i=0;$i<7;$i++){
@list = pop(@fields);
return @list;
}
}
判り難い質問の仕方ですみません。よろしくお願い致します。

回答No.1

kumoz · ベストアンサー

> for ($i = 0; $i < 7; $i++) {
> @list = pop(@fields);
> return @list;
> }

@list = pop(@fields); のようにすると、ループのたびに新たな代入となって、逆順のリス
トとはなりません。return @list; は、呼び出し元がないのでエラーになってしまいます。
３項の for を使っていますが、ブロックの中で $i を使ってないので意味がないように思
います。元のコードをなるべく生かして書き直してみましたので、参考にしてみてください。

while ($array = <DATA>) {
chomp $array;
@fields = split /,/, $array;
@list = ();
while (@fields) {
push @list, pop(@fields);
}
print join(',', @list), "\n";
}

__DATA__
a,b,c,d,e,f,g
1,2,3,4,5,6,7

お礼

有難うございます。
大変助かりました。
まだ初心者なのでこれからも質問すると思いますが
よろしくお願い致します。