отключить проверку внешнего ключа удаление таблиц InnoDB Perl Script - PullRequest
Новая
       7

отключить проверку внешнего ключа удаление таблиц InnoDB Perl Script

9 голосов
/ 19 июля 2010

Я довольно новичок в использовании MySQL и новичка в Perl, но пытаюсь взломать кто-нибудь другой скрипт, чтобы выручить меня. Я получил сценарий от здесь . Пока он выглядит великолепно, но не получается, поскольку в таблицах происходит проверка внешнего ключа. Я мог бы пройти через phpmyadmin и попытаться удалить их всех по одному, но это занимает вечность, и это мой третий раз, когда мне приходится это делать :( Мой вопрос, можно ли изменить этот сценарий, чтобы включить: 

`SET FOREIGN_KEY_CHECKS = 0;

перед запуском команды удаления таблицы? Я пытался выполнить сценарий, но не смог найти определенную командную часть сценария (возможно, из-за незнания / отсутствия понимания). Любая помощь с благодарностью. 

#!/usr/bin/perl

use strict;
use DBI;

my $hostname = '';
my $database = '';
my $username = '';
my $password = '';

my $dbh = DBI->connect("dbi:mysql:${database}:$hostname",
  $username, $password) or die "Error: $DBI::errstr\n";

my $sth = $dbh->prepare("SHOW TABLES");
$sth->execute or die "SQL Error: $DBI::errstr\n";
my $i = 0;
my @all_tables = ();
while(my $table = $sth->fetchrow_array)
{
  $i++;
  print "table $i: $table\n";
  push @all_tables, $table;
}
my $total_table_count = $i;

print "Enter string or regex to match tables to "
  . "delete (won't delete yet): ";
my $regex = <STDIN>;
chomp $regex;

$i = 0;
my @matching_tables = ();
foreach my $table (@all_tables)
{
  if($table =~ /$regex/i)
  {
    $i++;
    print "matching table $i: $table\n";
    push @matching_tables, $table;
  }
}
my $matching_table_count = $i;

if($matching_table_count)
{
  print "$matching_table_count out of $total_table_count "
    . "tables match, and will be deleted.\n";
  print "Delete tables now? [y/n] ";
  my $decision = <STDIN>;
  chomp $decision;

  $i = 0;
  if($decision =~ /y/i)
  {
    foreach my $table (@matching_tables)
    {
      $i++;
      print "deleting table $i: $table\n";
      my $sth = $dbh->prepare("DROP TABLE $table");
      $sth->execute or die "SQL Error: $DBI::errstr\n";
    }
  }
  else
  {
    print "Not deleting any tables.\n";
  }
}
else
{
  print "No matching tables.\n";
}

1 Ответ

12 голосов
/ 19 июля 2010

Установка значения FOREIGN_KEY_CHECKS на ноль: 

SET FOREIGN_KEY_CHECKS = 0;

... до удаления сценариев отключит ограничения внешнего ключа для всего экземпляра. Поскольку вы можете иметь более одного каталога / базы данных на экземпляре MySQL, это может повлиять на все остальное в отношении базы данных.

Общая привычка - писать сценарии в порядке зависимости от ключа, удаляя / обрезая данные из родительских таблиц до дочерних.

...