compañeros, buen día.
¿Me pueden ayudar, por favor, en cómo construir una expresión regular que me imprima "n/s:" que es un número de serie de un documento?
Lo he intentado de varias formas pero no más no le doy.
if ($row =~ (\/[n]/[\/:\^_]\/[s]/g)
{
push @impresion, ("$row");
open (EMPLEADOSS,">serie.txt");
foreach my $i (0 .. $#impresion) {
print EMPLEADOSS $impresion[$i];
}
en el if le he intentado
if ($row =~ (/n/s:/g)
my $numero= (n/s:);
if ($row =~ (/$numero/g)
pero no más, no me queda.