파일에서 텍스트 블록을 추출하고 perl을 사용하여 각 블록을 새 파일에 쓰지만 작동하지 않습니다.

Question

데이터베이스의 레코드가 들어있는 큰 데이터 파일 (텍스트)이 있습니다. 각 레코드는 "-"(146 개)로 구분됩니다. 각 블록 구분자 사이의 텍스트를 해당 블록의 데이터를 기반으로 새 파일에 쓰고 싶습니다. 이 블록을 추출하고 작성해야하는 위 그래서

1. 12/18/17              
Company          
        PAGE 2 
    1:14 PM GET            CURRENTLY SELECTED DEBTORS 

------------------------------------------------------------------------------------------------------------------------ 
----------------------------- STATUS    **Acct:1234**  Disposition:9000 CANCEL      Wait: 04/11/17 

DEBTOR    Name:Doe John       
Ssn:123456789 Cbr: Ph:555-555-555 
         Rp:Doe John       Ssn:    Rp Ph: 
        Adr1:211 some road  POE:      Lgl: POE Ph: 
        City:anytown    Cty:      Canc:UNC Born:01/01/1937 
         St: VA Zip:54321  St:  Zip:    COF:N  Sal: 

        Clnt:00248 Someplace, 93076       Org: 4 
80.00 
        List:01/05/17 Srv:08/25/16 Pl95: Time:9 Calls:0 Con:0 Bal: 480.00 

Co-Maker's Previous Address Spouse's Previous Address MULTIPLE 
ACCOUNTS RM# Acct  Name/Client  Chk#/Lst Srv  Lpy 
Col Disp  Bal  Check Reason   Drivers Licen se # 
     PRN  INT  LI3  LI4  AIN  CC  ATY  MS1  PJI 1 142424* Doe John         
93076/00248/Somewhere 01/05/17 08/25/16   0 9000  
480.00 
    480.00  0.00  0.00  0.00 0.00 0.00 0.00  0.00 0.00 

2. --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- 

: 새로운 파일 이름은이 샘플 파일을 예를 들어 일 년 (예 : 2017)

를 데이터의 조각을 따라 포함해야 해당 레코드에 대한 Acct : 1234 데이터를 기반으로 1234_2017.txt라는 새 파일로 이동 한 다음 다음 블록으로 이동하십시오. 첫 번째 파일의 레코드 수를 754 개로 계산했으며 총 10 개의 파일이 있습니다.

#!/usr/bin/perl -w 

use strict; 
use warnings; 

use POSIX 'strftime'; 

my $filename = "Facs_Data.txt"; 
my $outfile = "Acct_".strftime '%Y', localtime; 
my $start = "'-' x 146"; 

open (INFILE, "<$filename"); open (OUTFILE, ">$outfile"); 

while ($start) { 

    print $outfile; 
    next 
} 
close (INFILE); 
close (OUTFILE); 

모든 의견을 크게 환영합니다.

Answer 1

시도한 것을 설명하는 데 아무런 노력을 기울이지 않으면 내 해결책을 설명하는 데 아무런 노력을 기울이지 않을 것입니다.

#!/usr/bin/perl 

use strict; 
use warnings; 

local $/ = '>' . ('-' x 146) . "\n"; 
my $year = (localtime)[5] + 1900; 

# <> reads from STDIN or a filename given as an argument 
while (<>) { 
    next unless /\S/; # Ignore empty records (like the first one) 

    my ($acct) = /Acct:(\d+)/; 

    my $file = "${acct}_${year}.txt"; 
    open my $fh, '>', $file 
    or die "Can't open $file: $!\n"; 

    print $fh; 
}