my (@row, $gamename, $gamedesc, $gamecount);
my $select = $dbh->prepare( "SELECT * FROM games WHERE gamename=$gamen
+ame" );
my $insert = $dbh->prepare( "INSERT INTO games (gamename, gamedesc, ga
+mecounter) VALUES (?, ?, ?)" );
my $update = $dbh->prepare( "UPDATE games SET gamedesc=?, gamecount=?+
+1 where gamename=?" );

open (FILE, "<../data/games/descriptions.txt") or die $!;
    while (<FILE>) {
        chomp;

        ($gamename, $gamedesc) = split /\t/;
        $select->execute( $gamename );

        if ($select->rows) {
           $update->execute( $gamedesc, $gamecount, $gamename );
        }
        else {
           $insert->execute( $gamename, $gamedesc, 0 );
        }
    }
close (FILE);
[download]