To usando o módulo DBI pra fazer conexão com um banco de dados mySQL, usando o seguinte código:
#!/usr/bin/perl
use DBI;
use CGI::Carp qw(fatalsToBrowser);
print "Content-type: text/html\n\n";
$host = "localhost"; # Host do MySQL
$database = "teste"; # Database do MySQL
$usuario = "root"; # Usuário do MySQL
$senha = ""; # Senha do usuário do MySQL
$dbh = DBI->connect("DBI:mysql:database=$database;host=$host", "$usuario", "$senha", {'RaiseError' => 1});
$sth = $dbh->prepare("DELETE FROM `tabela` WHERE id='9999'");
$sth->execute();
$sth->finish();
$dbh->disconnect();
print qq~
tudo ok
~;Se repararem, o SQL faz a seguinte condição:
deletar da tabela quando id for igual a "9999".
só que não existe um id igual a "9999" em minha tabela... então teria que dar erro... mas não dá.
o que eu faço?
