Pongo el código por si alguno les sirve... Seguiré investigando para enviar y recibir datos ya que este ejemplo solo trae datos de una base, podemos darlo por cerrado el tema... si les parece bien...
Using perl Syntax Highlighting
- use Dancer;
- use strict;
- use warnings;
- use DBI;
- my $dbh = DBI->connect( "dbi:ODBC:$dsn", $usr, $pwd ) or die $DBI::errstr;
- get '/' => sub {
- $dbh->do("use base");
- $query = "select Nombre from base ";
- $sth = $dbh->prepare($query) or die "prepare failed\n";
- $sth->execute()
- or die "unable to execute query $query error $DBI::errstr";
- $rows = $sth->rows;
- while ( ($Nombre) = $sth->fetchrow_array ) {
- print "$Nombre \n";
- }
- };
- start;
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
