morissardj's Home Page
Home
Perl
Perl
-
Creation de table
Apres l'installation du module DBD et DBI vous pourrez vous connectez a des bases de donnees.
Add_table.pl
#!/usr/bin/perl -w #!/usr/bin/perl use DBI; $database='GENES'; $hostname='localhost'; $mysqluser='root'; $mysqlpass=''; $dbh=DBI->connect("DBI:mysql:$database:$hostname",$mysqluser,$mysqlpass)or die "Echec de la connexion\n"; $table="nom_de_la_table"; $sth=$dbh->prepare(" CREATE TABLE $table(tax_id INT(20) PRIMARY KEY NOT NULL,tax_espece VARCHAR(100)); "); $sth->execute; $sth->finish; $dbh->disconnect;