perl: lagring regex i array variabler problemer

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

hei
Dette er et eksempel på kode:

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;

Dette finner $ regex og skrive ut $ res, men "$ 1" ikke fungerer. Jeg har prøvd <\ $ 1> i tillegg og andre varianter. Hvordan gjøre det?

æra · #2 (**permalink**) 08-29-2008

Med en streng i doble anførselstegn, $ 1 blir interpolert på det tidspunktet du definere streng. Prøv enkle anførselstegn og eval print $ res;

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

i denne 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;

ikke fungerer så godt

æra · #4 (**permalink**) 08-29-2008

Jeg antar du må eval samsvarende også.

Mer UNIX og Linux Forum Emner Du kan finne nyttig
Tråd	Tråd startet	Forum	Svar	Siste innlegg
Oppbevare kommandoer i $ variabler.	Paulw0t	Shell programmering og Skripting	7	08-08-2008 05:42
lagring variabler i array.Please hjelp	nua7	Shell programmering og Skripting	7	07-17-2008 09:47
Deling av data og lagre den i 2 variabler	jisha	Shell programmering og Skripting	10	02-17-2008 10:40
Oppbevare pekeren array i C	arunkumar_mca	UNIX for Dummies Spørsmål og svar	1	08-23-2007 08:49
awk - lagring av data i variabler	2nilotpal	Shell programmering og Skripting	7	04-16-2004 05:32

Thread Tools	Søk i denne tråden
Vis Printable Version Email denne siden	Søk i denne tråden: Avansert søk
Visningsmoduser	Ranger denne tråden
Switch to Linear Mode Hybridmodus Switch to gjengede Mode	Ranger denne tråden:


	Powered by