perl: lagring regex i array variabler problemer

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

hej
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 finder $ regex og udskrive de $ res, men "$ 1" virker ikke. Jeg har prøvet <\ $ 1> såvel og andre varianter. Hvordan man kan gøre det arbejde?

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

Med en snor i dobbelte anførselstegn, for $ 1 bliver interpolerede på det tidspunkt, du definere strengen. Prøv enkelt citater 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 er så godt

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

Jeg tror du har brug for at eval kongruensreglerne såvel.

Mere UNIX og Linux Forum Emner du måske kan finde Helpful
Tråd	Thread Starter	Forum	Svar	Last Post
Lagring af kommandoer i $ variabler.	Paulw0t	Shell Programmering og Scripting	7	08-08-2008 05:42 PM
lagring variabler i array.Please hjælpe	nua7	Shell Programmering og Scripting	7	07-17-2008 09:47 AM
Opdeling af data og lagre den i 2 variabler	jisha	Shell Programmering og Scripting	10	02-17-2008 10:40 PM
Lagring pointer array i C	arunkumar_mca	UNIX for dummyer Spørgsmål & svar	1	08-23-2007 08:49 AM
awk - lagring af data i variabler	2nilotpal	Shell Programmering og Scripting	7	04-16-2004 05:32 AM

Thread Tools	Søg denne tråd
Vis Printvenlig Version Email denne side	Søg denne tråd: Avanceret søgning
Display Modes	Bedøm denne tråd
Switch to Linear Mode Hybridtilstand Switch to Tråd Mode	Bedøm denne tråd:


	Powered by