Yo utilizo una base de datos creada en localhost y tengo el siguiente código:
Using perl Syntax Highlighting
- #!/usr/bin/perl
- use DBI;
- use DBD::mysql;
- print "Ingresa el query: ";
- $query = <STDIN>;
- my $roux;
- my $t = 0;
- my $dbh = DBI->connect( 'DBI:mysql:Database;host=127.0.0.1', 'root', '' )
- || die "Unable to connect to database Baseball @ localhost";
- print "Everything looks fine..\n";
- $sql = "Select * from Regulations WHERE Regulate='$query'";
- $sth = $dbh->prepare($sql);
- $sth->execute or die "SQL Error: $DBI::errstr\n";
- while ( @row = $sth->fetchrow_array ) {
- print "@row\n";
- }
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Mas, sin embargo, lo que no logro realizar, (o comprender cómo realizarlo) es cómo ingresar un parámetro al select $sql = "Select * from Regulations WHERE Regulate='$query'"; ya que si le quito la variable funciona perfectamente. Les agradecería su ayuda (: