Perl DBI MySQL：カラムがユニークであることを確認してください

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