テキスト処理のシェルプログラム

質問

UNIXシェルもしくはPerlでテキスト処理のシェルスクリプト
を作成したいのですがご教授お願いします

1000行あるテキストファイルを
2行単位で区切り2行単位で横一列へ置換しテキストへ出力したいのですが

例
処理前
aaa
bbb
ccc
ddd
eee
fff

処理後

aaa,ccc,eee
bbb,ddd,fff

ご教授よろしくお願いします

回答No.1

BLUEPIXY

while(<DATA>){
chomp;
if($. % 2 ==0){ #偶数行目の時
push @line2, $_;
} else {
push @line1, $_;
}
}
print join(',', @line1), "\n";
print join(',', @line2), "\n";
__DATA__
aaa
bbb
ccc
ddd
eee
fff