La intención es poder imprimir en el archivo de salida (OUT) todo el contenido de la base de datos, pero no sé cómo asignar el resultado de la $query a una variable que pueda imprimir. Será una tontería pero no lo capto... y por más que retoco el script sigo sin dar en el clavo.
Aquí pongo el código que uso para la consulta.
Using perl Syntax Highlighting
- #!c:/perl/bin/perl.exe
- use strict;
- use DBI;
- use DBD::mysql;
- # CONFIG VARIABLES
- my $platform = "mysql";
- my $database = "fungo";
- my $host = "localhost";
- my $port = "3306";
- my $tablename = "genomes";
- my $user = "user";
- my $pw = "password";
- open OUT, ">>SQL_print.txt" || die("can´t open out file");
- my $table = "genomes";
- # CONEXION BD
- my $dsn = "dbi:mysql:$database:localhost:3306";
- my $connect = DBI->connect( $dsn, $user, $pw );
- # PREPARAMOS QUERY
- my $query = "SELECT * FROM $table";
- my $query_handle = $connect->prepare($query);
- # EJECUTAMOS QUERY
- $query_handle->execute();
- # ASIGNAMOS LAS COLUMNAS A VARIABLES
- $query_handle->bind_columns( undef, \my $gene, );
- # LOOP POR LOS RESULTADOS PARA IMPRIMIR EN OUT
- while ( $query_handle->fetch() ) {
- print OUT "$gene\t\n";
- }
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
