Perl DBI MySQL：检查列是否为UNIQUE

Question

使用Perl DBI，如何检查MySQL列是否为UNIQUE（即具有UNIQUE约束）（假设表名和列名）？

Answer 1

此函数应该对具有UNIQUE约束的列返回true，否则返回false。

输入值是DBI（mysql）对象，表名和列名。

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; 
}