+------+--------+
| id | name |
+------+--------+
| 1 | Oscar |
| 2 | Alan |
| 3 | Jaime |
+------+--------+
2 rows in set (0.00 sec)
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
En la base de datos tengo la base test y la tabla foo; tiene un par de registros con los campos de name y de id.
Using text Syntax Highlighting
mysql> SELECT * FROM foo;
+------+--------+
| id | name |
+------+--------+
| 1 | Oscar |
| 2 | Alan |
| 3 | Jaime |
+------+--------+
2 rows in set (0.00 sec)
+------+--------+
| id | name |
+------+--------+
| 1 | Oscar |
| 2 | Alan |
| 3 | Jaime |
+------+--------+
2 rows in set (0.00 sec)
Este es el código:
Using perl Syntax Highlighting
- #!/usr/bin/perl
- use strict;
- use DBI;
- use DBIx::Report::Excel;
- my $report = DBIx::Report::Excel->new( "MySQL.xls" );
- $report->dbh(
- DBI->connect("dbi:mysql:database=test;host=localhost",
- "jam",
- "yo#2jpa",
- {RaiseError => 1}
- )
- );
- $report->sql(
- qq {
- /*---
- title: People Names
- ---*/
- SELECT name as "First Name"
- FROM foo
- });
- $report->write();
- $report->close();
- $report->dbh(DBI->disconnect());
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Y esto es lo que me arroja:
Using bash Syntax Highlighting
- [root@temp ~]# perl excelmysql.pl
- Can't use an undefined value as an ARRAY reference at /usr/local/share/perl5/DBIx/Report/Excel.pm line 291.
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Ojalá me puedan dar un consejo por dónde puedo estarme equivocando.
Saludos.
