Using perl Syntax Highlighting
#!/usr/bin/perl
while (<>){
@sentencia=split ",",$_;
$codigo=@sentencia[0];
print "$codigo \n"
}
while (<>){
@sentencia=split ",",$_;
$codigo=@sentencia[0];
print "$codigo \n"
}
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
todo va sobre ruedas, sin embargo con este otro:
Using perl Syntax Highlighting
# Lista el los códigos distintos de fuente nmea
#!/usr/bin/perl
open $fh, "<", $ARGV[0] or die "No puedo abrir el fichero. Error $!\n";
while (<$fh>) {
@sentencia=split ",",$_;
$codigo=@sentencia[0];
print "$codigo \n";
}
close $fh;
#!/usr/bin/perl
open $fh, "<", $ARGV[0] or die "No puedo abrir el fichero. Error $!\n";
while (<$fh>) {
@sentencia=split ",",$_;
$codigo=@sentencia[0];
print "$codigo \n";
}
close $fh;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Obtengo los siguientes errores:
No se pudo conseguir un descriptor de fichero referido a la consola
No se pudo conseguir un descriptor de fichero referido a la consola
./cuenta_codigos.pl: line 6: error de sintaxis cerca de token no esperado `)'
./cuenta_codigos.pl: line 6: `while (<$fh>){'
Sobre todo me preocupa el tema del descriptor de fichero, porque el resto sospecho que es por usar una especificación más moderna de perl que la que uso JJ Merelo en su Perl para apresurados.
Gracias y saludos a todos en el foro, que espero frecuentar tanto para preguntar como para, en un futuro, ayudar.
