perl: armazenando regex array variáveis em apuros

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

oi
este é um exemplo de código:

Código:

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;

Isto verifica $ regex e imprimir o $ res, mas o "$ 1" não funciona. Tentei <\ $ 1> tão bem e outras variações. Como fazê-la funcionar?

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

Com uma seqüência de aspas, o $ 1 recebe interpolados, no momento que você define a string. Tente único aspas e eval print $ res;

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

neste redação:

Código:

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;

não funciona tão bem

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

Acho que você precisa para avaliar a adequação do bem.

Mais UNIX e Linux Fórum Tópicos Você pode achar Helpfull
Fio	Thread Starter	Fórum	Respostas	Última postagem
Memorizar comandos em $ variáveis.	Paulw0t	Programação Shell Script e	7	08-08-2008 05:42
armazenamento de variáveis em array.Please ajudar	nua7	Programação Shell Script e	7	07-17-2008 09:47
Dividir os dados e guardá-lo em 2 variáveis	jisha	Programação Shell Script e	10	02-17-2008 10:40
Armazenar ponteiro array em C	arunkumar_mca	UNIX para Dummies Perguntas & Respostas	1	08-23-2007 08:49
awk - armazenar dados em variáveis	2nilotpal	Programação Shell Script e	7	04-16-2004 05:32

Thread Tools	Pesquisar este Thread
Show Printable Version Enviar esta página	Pesquisar este Thread: Pesquisa Avançada
Display Modes	Esta taxa Thread
Mude para o Modo Linear Hybrid Mode Switch to Threaded Mode	Esta taxa Thread:


	Powered by