Re: perl string extract

[prasadbabu]

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

Updated: Misunderstood the question. Added '?' after comma to make it optional.

eyepopslikeamosquito++ Thanks.

[eyepopslikeamosquito]

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.

[eyepopslikeamosquito]

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.

[anu_1]

I tried this solution but didn't work. The output is  logfile=f