perl: storing regex in array variables trouble

xist · #1 (**permalink**) 08-29-2008

hi
this is an example of code:

Code:

use strict;
use warnings;
open FILE, "/tmp/result_2";
my $regex="\\[INFO\\] Starting program ver. (.*)";
my $res="Program started, version <$1> - OK.\n";
while (<FILE>) {
if ($_ =~ /($regex)/) {
   print "$res";
    }
}
close FILE;

This finds $regex and print out the $res, but "$1" doesn't work. I've tried <\$1> as well and other variations. How to make it work?

era · #2 (**permalink**) 08-29-2008

With a string in double quotes, the $1 gets interpolated at the time you define the string. Try single quotes and eval print $res;

xist · #3 (**permalink**) 08-29-2008

in this redaction:

Code:

use strict;
use warnings;
open FILE, "/tmp/result_2";
my $regex="\\[INFO\\] Starting program ver. (.*)";
my $res='Program started, version <$1> - OK.\n';
while (<FILE>) {
if ($_ =~ /$regex/) {
   eval print $res;
    }
}
close FILE;

doesn't work as well

era · #4 (**permalink**) 08-29-2008

I guess you need to eval the matching as well.

More UNIX and Linux Forum Topics You Might Find Helpful
Thread	Thread Starter	Forum	Replies	Last Post
Storing commands in $variables.	Paulw0t	Shell Programming and Scripting	7	08-08-2008 05:42 PM
storing variables in array.Please help	nua7	Shell Programming and Scripting	7	07-17-2008 09:47 AM
Splitting the data and storing it into 2 variables	jisha	Shell Programming and Scripting	10	02-17-2008 10:40 PM
Storing pointer array in C	arunkumar_mca	UNIX for Dummies Questions & Answers	1	08-23-2007 08:49 AM
awk - storing data in variables	2nilotpal	Shell Programming and Scripting	7	04-16-2004 05:32 AM

Thread Tools	Search this Thread
Show Printable Version Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread: