Re: Servicios web con filosofia REST
Publicado: 2011-06-27 06:59 @332Bueno voy mejorando ya conecte contra una base MSSQL con ODBC y el resultado se ve en el http://localhost:3000/
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...
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