in reply to Re^6: script to grab string from log and print them in a different log
in thread script to grab string from log and print them in a different log

Okay, I think I understand your requirements better.

How about the following ...?

my $MAL = '"MAL_[^"]*"'; while ( <LOG> ) { while ( $_ =~ /$MAL/gi ) { print OUT $_; } }

Now the regex is matching "MAL_ anywhere in the string, and ending with the matching quotation mark ", but containing no quotes in between.  The regular expression substring [^"] means "a character which isn't a quotation mark", and [^"]* means "any number of non-quotation mark characters".

Is that what you want?


s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/

Replies are listed 'Best First'.
Re^8: script to grab string from log and print them in a different log
by perl_geoff (Acolyte) on Feb 01, 2007 at 16:53 UTC
    Perfect! Thanks :)))))))