Comment vérifier si une ligne de base de données existe en utilisant DBD :: mysql et Perl?

Question

Je travaille avec une base de données MySQL et j'ai besoin de vérifier si une ligne est déjà là avant de décider quelles requêtes exécuter.

Le tableau que je travaille sur est quelque chose comme ceci:

player(playerid, nickname, data1, data2, data3) 

Où « playerid » est un numéro auto-incrémentée et « surnom » est unique.

J'ai essayé quelques requêtes avec COUNT, COALESCE, fetch-> rows, etc. et n'ai obtenu nulle part. J'ai déjà vu this question, mais je n'ai rien pu résoudre.

Answer 1

Pourriez-vous s'il vous plaît poste la requête spécifique avec SELECT COUNT(*) qui ne fonctionnait pas et quel était le problème?

La requête doit être calqué sur cette réponse: How do I know how many rows a Perl DBI query returns?

En supposant que votre « ligne est déjà là » définition est « le joueur avec le surnom donné est là », la requête serait:

my $th = $dbh->prepare(qq{SELECT COUNT(1) FROM player WHERE nickname='$nickname'}); 
$th->execute(); 
if ($th->fetch()->[0]) { 
    .... 
} # Code stolen shamelessly from the link above 

Answer 2

Vous pouvez utiliser une méthode dHP/STH pour vérifier si le jeu de résultats est vide:

my $stmt = 'SELECT playerid FROM player WHERE playerid = ?'; 

if ($dbh->selectrow_array($stmt, undef, $id)) { 
    print "The row exists"; 
}