STATUS Acct:142424 Disposition:9000 CANCEL Wait: 04/11/17
DEBTOR Name:LastName FirstName Ssn:123456789 Cbr: Ph:555.555.1212
So I need to somehow grab both the LastName and the 142424 and concatenate then into LastName_142424_2017.txt
while (<$fh>){
next unless /\S/; # skip blank lines
if (/Acct:(\d+)/){
$acct = $1;
if (/Name:([^\s]+)/){
$acct = $1.'_'.$acct;
}
}
push @{$data{$acct}},$_ if ($acct);
}
But this does not take into account for the Name: search to be on another line and still keep ALL the text to be added to the new file.
Any suggestions on how I can accomplish this? |