Perl：複数行レコードを整える

Question

私は複数行のレコードを読み、正確に40行まで整理する必要があります。その後、 は45行になります。彼らは70 +ラインと同じくらい大きいかもしれません。これらのレコードは、最終的に45行になるためには、 が必要です。

レコードセパレータは、パターン/ ^＃matchee /で始まる行です。

$ /を#matcheeに設定するとします。

{ 
    $/ = "#matchee"; 

    while (<>) { 
     # I need to print first 40 
     # lines of each record then 
     # pad to 45 with delimiter as 
     # last line. 
    } 
} 

サンプルレコードこれは非常に適切ではない$/ = "#matchee";

使用するための

REDUNDANCY DEPARTMENT 
Anonymous Ave 

Item 1 
Item 2 



<bunch of blank lines> 
#matchee 

Answer 1

ここに私の解決策だ...

#! /usr/bin/env perl 
use strict; 
use warnings; 

{ 
    $/ = "#matchee"; 

    while (my @line = split "\n", <>) { 

    # print first 40 lines of record 
     for my $counter (0..39) { 
      print($line[$counter] . "\n"); 
     } 

     # pad record with four extra blank lines 
     # (last record already ends with a newline) 
     print "\n" x 4; 
    } 
} 

1 ...最初のレコード45行あり、2行目は44行です。

Answer 2

「レコードセパレータは/ ^＃matchee /で始まる行です」と指定します。これは、$/がa special string, but not a regexであるため、レコードの分離をやや複雑にします。あなたの出力が同じレコードセパレータを使用しているかどうかは指定していませんが、私はそのように仮定します。ここでうまくいくようなアプローチがあります。

#!/usr/bin/env perl 
use strict; 
use warnings; 

sub take_and_pad_lines { 
    my ($str, $take, $pad) = @_; 

    my @lines = (split(/\n/, $str))[0..$take-1]; 
    return join "\n", @lines, ('') x ($pad - $take); 
} 


{ 
    $/ = "#matchee"; 

    while (my $record = <>) { 
    # because RS is really begins-with we must clean up first line 
    # and double check last record 
    unless (1 == $.) { 
     $record =~ s/\A.*\n//m; 
     last if eof() && $record eq ''; 
    } 

    print take_and_pad_lines($record, 40, 45), "\n"; 
    print "$/\n" unless eof(); 
    } 
}