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?