Soy nuevo en Perl y debo escribir un pequeño programa que lea un reporte pero que elimine parte de la información original.
El problema es que cuando lo compilo aparece el siguiente error:
"FORMAT NOT TERMINATED AT CODIGO_PERAL LINE 28, AT END OF LINE SYNTAX ERROR AT CODIGO_PERAL LINE 28, AT EOF"
Codigo_peral es el nombre de mi archivo y la línea 28 es la última línea de código.
Using perl Syntax Highlighting
- #!/usr/bin/perluse strict;
- use warnings;
- my ($nombre,$valor1,$valor_stress,$diferencia);
- open (ENTRADA, "<Comparacion.txt") or die "imposible abrir el archivo : $!\n";
- open (SALIDA, ">excel1.txt") or die "$!\n"; format FORMATO =@<<<< @<<<<<< @<<<<<< @<<<<<<< @<<<< @<<<< @<<<<<< @<<<<<< @<<<<<<< @<<<< @<<<< undef, undef, undef, undef, undef, undef, $nombre, $valor1, $valor_stress, undef, $diferencia.
- while (<ENTRADA> ) { @lineas = split /|/;
- write SALIDA; }
- close ENTRADA;
- close SALIDA;
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
¿Podrían por favor decirme por qué se genera este error?
Yo lancé el archivo en una máquina con la opción perl -s nombre de mi archivo y no me salió ningún error, aunque el código no hace nada de todos modos.
Pero al lanzarlo en otra máquina obtuve el error que ya escribí en la parte superior.
De antemano, muchas gracias.