syntax error at Abrir.pl line 161 near "}"
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
Using text Syntax Highlighting
syntax error at Abrir.pl line 111 near "$sheet ("
syntax error at Abrir.pl line 161 near "}"
syntax error at Abrir.pl line 161 near "}"
Estoy en Windows porque tiene que correr en Windows el programa.
Using perl Syntax Highlighting
- #!c:/perl/bin
- use Spreadsheet::Read;
- use Spreadsheet::XLSX; # Módulos requeridos por el programa
- use strict;
- use warnings;
- use DBI;
- use ConectarDB;
- use autodie;
- use Modern::Perl;
- # cargar excel.
- my $excel = Spreadsheet::XLSX -> new ('test.xlsx');
- # Subrutina crear. ¿Está bien hecho el pasarle a la variable $dbh el valor?
- # ¿O debería llamar otra vez a la base de datos desde aquí dentro? ¿Debería devolver al final el dbh?
- sub crearTabla {
- my $dbh = $_[1];
- eval {$dbh->do("CREATE TABLE $_[0] (nombre VARCHAR(40), palabra VARCHAR(50))")};
- if ($@) {
- printf("La tabala existe \n")
- }
- }
- # Subrutina comparar. Sigo pasándole el valor de dbh como parámetro de entrada.
- # ¿Hago bien la comparación en el while? Porque no sé cómo usar boleanos, por eso invento la variable encontrado
- sub comparar{
- my($dbh,$sth,$encontrado);
- $dbh = $_[3];
- $sth = $dbh->prepare("SELECT * FROM $_[2]");
- $sth->execute();
- $encontrado = 0;
- while (my $ref = $sth->fetchrow_hashref()or $encontrado==0) {
- if ( $_[0] = $ref->{'palabra'}){
- $encontrado = 1;
- }
- }
- $sth->finish();
- return $encontrado;
- }
- # Subrutina insertar. Aquí sigo igual pasando el parámetro dbh. Esto creo que está bien, pero
- # ¿debería devolver el parámetro dbh?
- sub insertar {
- my($dbh,$sth);
- $dbh = $_[3];
- $sth = $dbh->prepare("INSERT INTO $_[2](nombre, palabra) VALUES (?,?)") or die("Couldn't prepare statement: " . $dbh->errstr);
- $sth->execute($_[1]-> {Val}, $_[0]->{Val}) or die("Couldn't execute statement: " . $sth->errstr);
- $sth->finish;
- }
- # Conectar base de datos y mirar si existe. Esto está bien porque me lo pasaste tu, pero
- # ¿el say @databases no debería mostrar por pantalla las bases de datos? Lo pregunto porque no lo hace
- my($dbh,$sth);
- my @databases = DBI->data_sources("mysql", {host => 'localhost', user => 'root', password => 'mybase'});
- say "@databases";
- my $base_datos = 'abrir';
- my $dsn = "DBI:mysql:$base_datos";
- unless ($dsn ~~ @databases) {
- my $drh = DBI->install_driver("mysql");
- my $rc = $drh->func("createdb", $base_datos, 'localhost', 'root', 'mybase', 'admin');
- say "[$rc]";
- }
- else {
- say "La base de datos $base_datos ya está creada";
- }
- @databases = DBI->data_sources("mysql", {host => 'localhost', user => 'root', password => 'mybase'});
- say "@databases";
- $dbh = ConectarDB->connect()
- #Leer excel.
- foreach my $sheet (@{$excel -> {Worksheet}}) {
- printf("Sheet: %s\n", $sheet->{Name});
- my$hoja = $sheet->{Name};
- &crearTabala($hoja, $dbh); # llamada a crear y le paso los parámetros para que me la cree.
- my $cell3 = "NoValor"; # Aquí tengo dudas porque como el parámetro cell3 no tiene valor,
- # le asigno este por si acaso una palabra no tiene un nombre
- # en la celda de su izquierda.
- $sheet -> {MaxRow} ||= $sheet -> {MinRow};
- foreach my $row ($sheet -> {MinRow} .. $sheet -> {MaxRow}) {
- $sheet -> {MaxCol} ||= $sheet -> {MinCol};
- foreach my $col ($sheet -> {MinCol} .. $sheet -> {MaxCol}) {
- my $cell = $sheet -> {Cells} [$row] [$col];
- my $cell2;
- if (exists $cell->{Val}and $cell->{Val} =~ m/a/i) {
- my $cell2 = $sheet -> {Cells} [$row] [--$col];
- if (exists $cell2->{Val} and $cell2->{Val} !~ m/a/i ) {
- # Comprobar que la palabra no existe en la base de datos y
- # asignarle el valor de esta cell2 a cell 3 por si la siguiente
- # palabra no tiene nombre asignarle este mismo.
- if( &comparar($cell, $cell2, $hoja, $dbh) == 0 ){
- &insertar($cell, $cell2, $hoja, $dbh);
- $cell3=$cell2;
- }
- }else{
- if( &comparar($cell, $cell3, $hoja, $dbh) == 0 ){
- # si no tiene valor la cell2 hacemos lo mismo que arriba pero pasando cell3
- &insertar($cell, $cell3, $hoja, $dbh);
- }
- }
- }
- }
- }
- }
- # Desconectar base de datos.
- $dbh->disconnect;
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
