複数行を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 回答日時： 2002/03/22 16:55

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);

この回答へのお礼

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

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

お礼日時：2002/03/22 17:20