オープンしたファイルで行の連結

はじめまして、言語に疎いもので質問させて頂きます。

次のようなsample.txtというファイルがあります。
【sample.txt】
ABC#１行目
＜タブ＞DEF#２行目 行頭にタブ
＜タブ＞GHI#３行目 行頭にタブ
JKL#４行目
＜タブ＞MNO#５行目 行頭にタブ
PQR#６行目
＜タブ＞STU#７行目 行頭にタブ
＜タブ＞VWX#８行目 行頭にタブ
（・・・以下上記のような２、３行のブロックパターンがランダムで続く）

１～３行目を１ブロック、また４～５行目、６～８行目を一部ロックとして
半角スペースを間に挟んで一行に連結し、下のように別ファイルに出力したいと考えております。

【output.txt】
ABC DEF GHI
JKL MNO
PQR STU VWX

ファイル自体は次のようにopen関数で開き、一行ずつ読み込んでいますが、現在の行を読みつつ、
次の行の内容をどうしたら読むことができるかわかりません。
また行の連結はどのように行えばよいでしょうか。
２、３行のブロックパターンがランダムで続くため、次の行の先頭にタブがあれば連結するという
処理も加えたいと考えております。

open(IN, $sample.txt);

while (<IN>) {

　　 $line = <IN>;

}

質問内容もわかり辛いかと思いますがご教授頂けますでしょうか。

No.2 ベストアンサー 回答者： benelli 回答日時： 2007/11/20 00:59

もっとも簡単な解決方法は配列を使用してファイルの中身全部を一気に読み込んでしまう方法です。

open(IN, "sample.txt");
@xx = <IN>;
close(IN);

print "$xx[0]$xx[1]$xx[2]\n";
print "$xx[3]$xx[4]$xx[5]\n";
print "$xx[6]$xx[7]$xx[8]\n";

見ただけではよく分からないかもしれませんが、変数や配列の使い方とその応用を重点的に勉強すればよろしいかと思います。


「次の行の先頭にタブがあれば連結するという」というのは例えばこんな感じでしょうか。

$gyoumatome = "";

foreach $yy (@xx) {
$checkchar = substr($yy, 0 , 1);

if( $checkchar eq "\t") {
$gyoumatome = "$gyoumatome$yy";
} else {
print "$gyoumaotme\n";
$gyoumaotme = $yy;
}
}

print "$gyoumaotme\n";


コンパイラ等流してのチェックはしていませんが、作成方針としてはこんな感じかと思います。
簡単な命令文だけで作ったつもりなので、これらよりもっと効率的で強力な関数をたくさん覚えて改良を目指してもらえればと思います。

この回答へのお礼

いろいろなやり方がありそうで面白いですよね。
ご丁寧に有難うございました。

お礼日時：2007/11/21 00:46

No.3 回答者： Tacosan 回答日時： 2007/11/20 09:32

特に難しいところはないはずだけど.... 何も考えずに書くけど

open(IN, "<$sample.txt");
chomp($line = <IN>);
while ($l = <IN>) {
chomp $l;
if ($l =~ /^\t/) {
$l =~ s/^\t/ /;
$line .= $l;
} else {
print "$line\n";
$line = $l;
}
}
print "$line\n";
close IN;
くらい?

この回答へのお礼

ご回答有難うございます。
じっくり動かしてみたいと思います。

お礼日時：2007/11/21 00:50

No.1 回答者： chaimasuka 回答日時： 2007/11/20 00:43

「行の連結」という目的を達成するだけならば、

ファイルの全行を一気に読み込んで、改行 + タブ を 半角スペース に置換する

という方法はいかがでしょうか。

「現在の行を読みつつ次の行を読む方法は？」、という質問の答えにはなっていませんが... ;

------------------------------------------------------------------------------
#!/usr/local/bin/perl
use strict;
use warnings;
use Fatal qw(open close);

open my $fh, '<', '$sample.txt';

# 全行を一気に読み込む
my $text = do { local $/; <$fh> };

close $fh;

# 全ての「改行 + タブ」 を 「半角スペース」 に置換
$text =~ s/\x0D?\x0A?\t/ /g;
------------------------------------------------------------------------------

この回答へのお礼

ご回答有難うございます。
大変参考になりました。

お礼日時：2007/11/21 00:45