1 |
b0f9f60b
|
jenselme
|
### Ce script a été écrit afin de supprimer les préfixes des tables des bases données.
|
2 |
|
|
### Ces préfixes étaient indispensables quand tous les sites étaient dans une même base de données.
|
3 |
|
|
|
4 |
|
|
use strict;
|
5 |
|
|
use warnings;
|
6 |
|
|
use DBI;
|
7 |
|
|
|
8 |
|
|
my $bd = $ARGV[0];
|
9 |
|
|
my $serveur = 'localhost'; # Il est possible de mettre une adresse IP
|
10 |
|
|
my $identifiant = 'root'; # identifiant
|
11 |
|
|
my $motdepasse = 'tata';
|
12 |
|
|
my $port = '';
|
13 |
|
|
|
14 |
c062b91c
|
Julien Enselme
|
my ($prefix) = $ARGV[1];
|
15 |
b0f9f60b
|
jenselme
|
|
16 |
|
|
my $dbh = DBI->connect( "DBI:mysql:database=$bd;host=$serveur;port=$port", $identifiant, $motdepasse, { RaiseError => 1, } ) or die "Connection impossible à la base de données $bd !\n $! \n $@\n$DBI::errstr";
|
17 |
|
|
|
18 |
|
|
my @table_names = $dbh->tables;
|
19 |
|
|
foreach my $table(@table_names)
|
20 |
|
|
{
|
21 |
|
|
#print $table =~ m/$prefix/;
|
22 |
|
|
#print $table . "\n";
|
23 |
|
|
|
24 |
|
|
if( $table =~ m/^`$bd`\.`$prefix/ )
|
25 |
|
|
{
|
26 |
|
|
my ($new_name) = ( $table =~ m/$prefix(.*)`/ );
|
27 |
|
|
my $new_table = "`$bd`.`$new_name`";
|
28 |
|
|
print $new_name . "\n";
|
29 |
|
|
print $new_table . "\n";
|
30 |
|
|
$dbh->do('DROP TABLE IF EXISTS ' . $new_name);
|
31 |
|
|
$dbh->do('RENAME TABLE ' . $table . ' TO ' . $new_name) or die 'Ne peut exécuter la requête';
|
32 |
|
|
}
|
33 |
|
|
}
|
34 |
|
|
|
35 |
|
|
$dbh->disconnect(); |