title image


Smiley Re: meine Freundin (mysql/perl)
Freundin löschen? Bin ich dabei ;)





use strict;

use warnings;

use DBI;



my $DS = 'dbi:mysql:telefonbuecher;host=localhost';

my $USER = 'User';

my $PSW = 'Passwort';

my $COLUMN = 'Telefonnummer';

my $PHONE_NUM = '4711';



my $dbh = DBI->connect($DS, $USER, $PSW);



foreach my $table ($dbh->func('_ListTables')) {

my $sth = $dbh->prepare("DELETE FROM $table WHERE $COLUMN = ?;");

$sth->execute($PHONE_NUM);

$sth->finish();

}



$dbh->disconnect();


Doron



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: