複数行を1レコード化

質問

**********ABCDEF******
166 hogehogehogehoge
266 hogehogehogehoge
**********ABCDEF******
105 hogehogehogehoge
356 hogehogehogehoge
656 hogehogehogehoge
**********ABCDEF******
125 hogehogehogehoge
356 hogehogehogehoge
↓
**********ABCDEF******@@166 hogehogehogehoge@@266 hogehogehogehoge
**********ABCDEF******@@105 hogehogehogehoge@@356 hogehogehogehoge@@656 hogehogehogehoge
**********ABCDEF******@@125 hogehogehogehoge@@356 hogehogehogehoge

のようにしたいのですが、何かうまい方法はないでしょうか？
急いでいます。よろしくお願いします！

回答No.1

alicia-y · ベストアンサー

open(F, "xxxxx.txt");
$l = <F>;
push @all, $l;
while(<F>){
chomp;
if(/^\*+/){
print join('@@', @all), "\n";
undef @all;
push @all, $_;
} else {
push @all, $_;
}
}
print join('@@', @all), "\n";
close(F);

お礼

正規表現とかで簡単に行くものかと思って模索していましたが、
かなり難しいのですね。

ありがとうございます！非常に助かります！