Re^12: How do I use grep in a script

Replies are listed 'Best First'.
Re^13: How do I use grep in a script by Flintlock (Novice) on Dec 28, 2017 at 15:49 UTC
I have determined what the issue is attempting to add the "Name:" search. The Name: is actually on a separate line in the text file ie. `STATUS Acct:142424 Disposition:9000 CANCEL Wait: 04/11/17 DEBTOR Name:LastName FirstName Ssn:123456789 Cbr: Ph:555.555.1212` [download] 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); }` [download] 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?	[reply] [d/l] [select]
Re^14: How do I use grep in a script by poj (Abbot) on Dec 28, 2017 at 15:57 UTC
Are the account numbers unique such that you can build a mapping of account number => name ? `my %name = (); . . while (<$fh>){ next unless /\S/; # skip blank lines if (/Acct:(\d+)/){ $acct = $1; } if (/Name:([^\s]+)/){ $name{$acct} = $1; } push @{$data{$acct}},$_ if ($acct); }` [download] `my $outfile = join '_',$name{$acct},$acct,'2017.txt';` [download] poj	[reply] [d/l] [select]
Re^15: How do I use grep in a script by Flintlock (Novice) on Dec 28, 2017 at 16:06 UTC
Yes Sir, The Acct number is unique, however, the Name: tag is NOT. It does occur elsewhere within the block of text for that acct number.	[reply]
Re^16: How do I use grep in a script by poj (Abbot) on Dec 28, 2017 at 16:17 UTC
Re^17: How do I use grep in a script by Flintlock (Novice) on Dec 28, 2017 at 16:34 UTC
Some notes below your chosen depth have not been shown here


No such thing as a small change
	PerlMonks