Perl DBI MySQL: Sütunun UNIQUE

Question

olduğunu kontrol edin Perl DBI kullanma, bir MySQL sütununun UNIQUE (UNIQUE kısıtlaması vardır) olup olmadığını (tablo adı ve sütun adı verildiğinde) nasıl kontrol edersiniz?

Answer 1

Bu işlev, UNIQUE kısıtlaması olan sütunlar için true, aksi takdirde yanlış yazılmalıdır.

Girdi değerleri DBI (mysql) nesnesi, tablo adı ve sütun adıdır.

sub check_uniq { 
    my ($dbh, $table, $column) = @_; 
    $table =~ s/\`//; 
    $table = '`' . $table . '`'; 
    my $sth = $dbh->prepare('SHOW INDEX FROM ' . $table); 
    $sth->execute(); 
    while (my $row = $sth->fetchrow_hashref) { 
     if (($row->{Column_name} eq $column) && (!$row->{Non_unique})) { 
      return 1; 
     } 
    } 
    return 0; 
}