OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
解決
済み

複数行を1レコード化

  • すぐに回答を!
  • 質問No.239553
  • 閲覧数61
  • ありがとう数1
  • 気になる数0
  • 回答数1
  • コメント数0

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

のようにしたいのですが、何かうまい方法はないでしょうか?
急いでいます。よろしくお願いします!
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル10

ベストアンサー率 40% (85/208)

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);
お礼コメント
noname#27709

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

ありがとうございます!非常に助かります!
投稿日時 - 2002-03-22 17:20:49
-PR-
-PR-
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ