Error cuando agrego use
![Nota Nota](https://perlenespanol.com/foro/styles/prosilver/imageset/icon_post_target.gif)
Tengo una subrutina muy bonita que por separado va bien... funciona y me canta al oído... pero en cuanto le pongo al inicio lo siguiente (es lo que tengo que usar en el programa completo), aparece el error que adjunto... ¿A alguno se le ocurre por qué puede ser...?
El código
Using perl Syntax Highlighting
use strict;
use warnings;
use diagnostics;
use Term::Menu;
use warnings;
use diagnostics;
use Term::Menu;
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
Using text Syntax Highlighting
Unquoted string "informelogico" may clash with future reserved word at
c:\perl\informesv2.pl line 58 (#1)
(W reserved) You used a bareword that might someday be claimed as a
reserved word. It's best to put such a word in quotes, or capitalize it
somehow, or insert an underbar into it. You might also declare it as a
subroutine.
c:\perl\informesv2.pl line 58 (#1)
(W reserved) You used a bareword that might someday be claimed as a
reserved word. It's best to put such a word in quotes, or capitalize it
somehow, or insert an underbar into it. You might also declare it as a
subroutine.
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
El código
Using perl Syntax Highlighting
sub sqlaltas
{
my $informelogico =0;
$sql = "select bla bla bla";
# creo nombre logico y archivo fisico
open (informelogico,">c:/carpeta/informe.sql");
# paso informacion variable sql al archivo
print informelogico $sql;
# Fin de línea y nueva línea para un posible nuevo registro.
print informelogico "\n";
{
my $informelogico =0;
$sql = "select bla bla bla";
# creo nombre logico y archivo fisico
open (informelogico,">c:/carpeta/informe.sql");
# paso informacion variable sql al archivo
print informelogico $sql;
# Fin de línea y nueva línea para un posible nuevo registro.
print informelogico "\n";
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4