Re: Perl Log file extraction help required

[protist]

in reply to Perl Log file extraction help required

just to illustrate a different approach:

$fn = "/home/t8.g";
open $fp, "<",$fn" or die "Error in write:$!";
while (<$fp>){
print $1 while $_=~s/{(.*?)}//;
    }

Here is a one liner for you to see it in action. This takes user input.

perl -ne 'print $1."\n" while $_=~s/{(.*?)}//;'