les planteo una duda, ya que creé un script más que sencillo, el cual consulta a una tabla MySQL llena un archivo de texto plano, pero al momento de ejecutar el script me sale el siguiente warning: Use of uninitialized value in concatenation (.) or string at conecta_bd.pl line 22.
Use of uninitialized value in concatenation (.) or string at conecta_bd.pl line 22..
He revisado el código y no logro ver dónde está el error.
El código es el siguiente:
Using perl Syntax Highlighting
- #!/usr/bin/perl -w
- use strict;
- use DBI;
- my $usuario="root";
- my $pass="";
- my $host="localhost";
- my $db_name="edo";
- my $string_coneccion= "DBI:mysql:host=$host;database=$db_name";
- my $db_1 = DBI->connect ("$string_coneccion","$usuario","$pass") or die "no conecta";
- my $query = $db_1 -> prepare('SELECT atr1,atr2 FROM informe;') or die ("Error al consultar informe: ");
- $query->execute();
- my @data;
- open (SALIDA,">/home/scrip_perl/informe.csv");
- while(@data = $query-> fetchrow_array())
- {
- print SALIDA $data[0].";".$data[1]."\n";
- }
- close(SALIDA);
- $query-> finish;
- $db_1->disconnect;
Coloreado en 0.007 segundos, usando GeSHi 1.0.8.4
