**********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

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

A 回答 (1件)

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);
    • good
    • 0
この回答へのお礼

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

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング