Re: perl string extract

Please ignore this node.

Something like this?

use strict; use warnings; my $line = 'logfile = filename , abcd=eflk , cxd'; my $file; if ($line =~ /logfile\s*\=\s*(.+?)\s*\,?/){ $file=$1; } print "logfile=$file"; output: ======= logfile=filename
[download]
Updated: Misunderstood the question. Added '?' after comma to make it optional.

eyepopslikeamosquito++ Thanks.

Prasad

Comment on Re: perl string extract Download Code

Replies are listed 'Best First'.
Re^2: perl string extract by eyepopslikeamosquito (Archbishop) on Oct 04, 2010 at 06:41 UTC
Your regex: if ($line =~ /logfile\s\=\s(.+?)\s\,/){* unilaterally matches a comma and so does not seem to match the OP's requirement to match with or without a comma.	[reply]
Re^2: perl string extract by eyepopslikeamosquito (Archbishop) on Oct 04, 2010 at 07:07 UTC
Even after your update: if ($line =~ /logfile\s\=\s(.+?)\s\,?/){* it still does not work correctly because the non-greedy `(.+?)` matches only the `f` in filename, so that `$file` has the value `f` when it should contain `filename`.	[reply] [d/l] [select]
Re^2: perl string extract by anu_1 (Acolyte) on Oct 04, 2010 at 07:23 UTC
I tried this solution but didn't work. The output is `logfile=f`	[reply] [d/l]