8.1 後続行を表す文字を含む行を読み込む

Perl Cookbook

ファイル内に2行以上にわたる長い行がある。行末にはその後に継続行が続くことを示すバックスラッシュが付加されている。これらの分割された行を1行に結合したい。

  • バックスラッシュの付加されていない行に到達するまで、各行を順番に1つずつ連結して行く。
while(defined($line = <FH>) {
  chomp $line;
  if ($line =~ s/\\$//) {
    $line .= <FH>;
    redo unless eof(FH);
  }
  # $lineの全てのレコードに対する処理をここに書く
}