|
|
|
google unix.com
|
|||||||
| Foros | Registro | Reglas de los Foros | Enlaces | Álbumes | Preguntas más frecuentes | Lista de miembros | Calendario | Búsqueda | Puestos de hoy | Marcar Foros Como Leídos |
| Programación de scripts de shell y Plantear preguntas sobre KSH, CSH, SH, BASH, PERL, PHP, SED, AWK y otros scripts de shell y lenguajes de script de shell aquí. |
Más UNIX y Linux Foro Temas usted puede encontrar útiles
|
||||
| Hilo | Hilo para principiantes | Foro | Respuestas | Último mensaje |
| Conservación de comandos en las variables $. | Paulw0t | Programación de scripts de shell y | 7 | 08-08-2008 06:42 PM |
| almacenar variables en array.Please ayuda | nua7 | Programación de scripts de shell y | 7 | 07-17-2008 10:47 AM |
| Dividir los datos y los almacena en 2 variables | JISHA | Programación de scripts de shell y | 10 | 02-17-2008 10:40 PM |
| Almacenamiento conjunto puntero en la C | arunkumar_mca | UNIX for Dummies Preguntas y Respuestas | 1 | 08-23-2007 09:49 AM |
| awk - almacenamiento de datos en las variables | 2nilotpal | Programación de scripts de shell y | 7 | 04-16-2004 06:32 AM |
 |
Powered by 
|
|
|
Linkback vínculo | Herramientas de hilo | Buscar en este Hilo | Tasa de Hilo | Modos de visualización |
|
|
08-29-2008
|
||||
|
||||
|
perl: regex almacenar en variables de matriz de problemas
hola este es un ejemplo 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;
Esta se encuentra $ regex e imprimir los $ res, pero "$ 1" no funciona. He intentado <\ $ 1> y así como otras variaciones. Cómo hacer que funcione? 
|
|
08-29-2008
|
||||
|
||||
|
Con una cadena entre comillas dobles, el $ 1 se interpolan en el momento de definir la cadena. Trate de comillas simples y eval print $ res;
|
|
08-29-2008
|
||||
|
||||
|
en esta redacción: 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;
no funciona tan bien 
|
|
08-29-2008
|
||||
|
||||
|
Supongo que la necesidad de evaluación y se pongan en venta.
|
|
| Marcadores |
| Etiquetas |
| perl regex |
| Herramientas de hilo | Buscar en este Hilo |
| Modos de visualización | Vota a este hilo |
|
|
Modo híbrido
