perl and regex;extract a word

[donny750]

Hi,

I extract a line from a file,and in this line i want to take the name of my file;
The line look like this
PROCESS FILE="test.sh" SIZE="32" LOCATION="C:"
In this line i want just the name : test.sh

I ve try this

my $x = 'PROCESS FILE="test.sh" SIZE="32" LOCATION="C:"';
$x =~ s/FILE="(\w+)" SIZE="(\d+)"$/$1/
print "name : $x\n"

but in output i've the all line
Why ?

Thanks

 

[spookie]

Try this

my $x = 'PROCESS FILE="test.sh" SIZE="32" LOCATION="C:"';
my $fileName =~ /FILE="(\w+)"/ ;
print $1 ;

--------------------------------------------------------------------------
I never set a goal because u never know whats going to happen tommorow.

 

[Mike042]

Hi donny750,

The reason why: but in output i've the all line
is that there was 'No Match' (therefore no substitution)

The $ at the end of the first part of the s/....$/$1/ says that the string should be matched at the end of the line.

Try something like:
$x =~ s/.*\"(\w+\.\w+)\".*/$1/;


I hope that helps.

Mike

 

[Mike042]

Just those few moments of thinking, testing and typing (plus being interrupted on the phone) and others come up with the answer.

Best wishes.

Mike.

 

[donny750]

i've try this but it's not run

my $x = '<PROCESS FILE="test".sh" SIZE="32" SYSTEM="32Bit">';
$x =~ s/.*\"(\w+\.\w+)\".*/$1/;
print "name = $1\n";

 

[Mike042]

I used:

my $x = 'PROCESS FILE="test.sh" SIZE="32" LOCATION="C:"';
$x =~ s/.*\"(\w+\.\w+)\".*/$1/;
print "name : $x\n"

I hope that helps.

Mike

 

[KevinADC]

my $x = 'PROCESS FILE="test.sh" SIZE="32" LOCATION="C:"';
($x) = $x =~ /(\w+\.\w+)/;
print "name : $x\n"

or if you don't really need to change the value of $x:

my $x = 'PROCESS FILE="test.sh" SIZE="32" LOCATION="C:"';
$x =~ /(\w+\.\w+)/;
print "name : $1\n"

- Kevin, perl coder unexceptional!