perl string extract

anu_1 has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: perl string extract by eyepopslikeamosquito (Archbishop) on Oct 04, 2010 at 06:29 UTC
Try making the comma optional? `$line =~ /logfile\s=\s([^,]*),?/;` [download]	[reply] [d/l]
Re^2: perl string extract by anu_1 (Acolyte) on Oct 04, 2010 at 06:50 UTC
Thanks a lot ..	[reply]
Re: perl string extract by ig (Vicar) on Oct 04, 2010 at 10:12 UTC
If you don't want trailing spaces: `$line =~ /logfile\s=\s([^,]*[^,\s])/;` [download]	[reply] [d/l]
Re: perl string extract by Utilitarian (Vicar) on Oct 04, 2010 at 13:54 UTC
Anchor your regex eg. `$line=~ s/^ #Anchor at the beginning of the line logfile\s=\s([^,]?) # As before (:?,.)? # non-capturing optional block beginn +ing with a comma $ # Anchor at end of line /$1/x;` [download] `print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."`	[reply] [d/l] [select]
Re: perl string extract by prasadbabu (Prior) on Oct 04, 2010 at 06:28 UTC
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	[reply] [d/l]
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]