expresiones regulares perl
Publicado por Gamaliel (1 intervención) el 26/02/2019 19:59:27
hola compañeros buen día,
me pueden ayudar por favor a como construir una expresión regular que me imprima o busque n/s: que es un numero de serie adelante de esto de un documento
lo he intentado de varias formas pero no mas no le doy
en el if le he intentado
if ($row =~ (/n/s:/g)
my $numero= (n/s:);
if ($row =~ (/$numero/g)
pero nomas no me queda
me pueden ayudar por favor a como construir una expresión regular que me imprima o busque n/s: que es un numero de serie adelante de esto de un documento
lo he intentado de varias formas pero no mas no le doy
1
2
3
4
5
6
7
8
9
10
11
12
if ($row =~ (\/[n]/[\/:\^_]\/[s]/g)
{push @impresion, ("$row");
open (EMPLEADOSS,">serie.txt");
foreach my $i (0 .. $#impresion) {
print EMPLEADOSS $impresion[$i];
}if ($row =~ (/n/s:/g)
my $numero= (n/s:);
if ($row =~ (/$numero/g)
pero nomas no me queda
Valora esta pregunta
0