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

There is a glitch in the way Acct: is searched for.

I need to delimit each record by "STATUS Acct:"

My attempts are producing no results

if (/\"STATUS              Acct:\"(\d+)/)
[download]

I think I would need to escape the quotes, but maybe not?

I can grep this from the command line and get the correct results without escaping the quotes.

Any Ideas?

Comment on Re^18: How do I use grep in a script Download Code

Replies are listed 'Best First'.
Re^19: How do I use grep in a script by poj (Abbot) on Dec 29, 2017 at 15:08 UTC
If you don't need to keep the quotes just remove them before the match `while (<$fh>){ next unless /\S/; # skip blank lines s/"//g; # remove all "` [download] or if they are optional try `if (/STATUS\s+Acct:"?(\d+)/){ $acct = $1; }` [download] See perlretut poj	[reply] [d/l] [select]
Re^20: How do I use grep in a script by Flintlock (Novice) on Dec 29, 2017 at 19:57 UTC
Got it poj -- THANKS	[reply]