Re^3: Updating or Inserting a database from a txt file

Hey Nik,

Sorry for taking so long to reply.

To create a table, try doing this:

$dbh->do("CREATE TABLE `games` (`gamename` TEXT, `gamedesc` TEXT, `gam
+ecount` TEXT );");
[download]

Then, create a unique index on the table - the 200 is a length that you can modify if you want.

$dbh->do("ALTER TABLE `games` ADD UNIQUE `UNQINDX` ( `gamename` ( 200 
+) )");
[download]

You should now successfully be able to use REPLACE on your table.

Taking a look at your code...

my (@row, $gamename, $gamedesc, $gamecount);

# selecting count(*) will run faster
my $select = $dbh->prepare( "SELECT count(*) FROM `games` WHERE `gamen
+ame`=?" );

# column `gamecount` was labeled as `gamecounter`
my $insert = $dbh->prepare( "INSERT INTO `games` (`gamename`, `gamedes
+c`, `gamecount`) VALUES (?, ?, ?)" );

my $update = $dbh->prepare( "UPDATE games SET gamedesc=?, gamecount=? 
+where gamename=?" );

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

    while (<FILE>) {
        chomp;
        ($gamename, $gamedesc) = split /\t/;
        $select->execute( $gamename );

        if ($select->fetchrow_array) {

           # WARNING: $gamecount isn't defined!
           $update->execute( $gamedesc, $gamecount, $gamename );
        }
        else {
           $insert->execute( $gamename, $gamedesc, 0 );
        }
    }

close (FILE);
[download]

I'm a bit tired, but I hope this helps! Note my comments within the code.

The error in your message below indicates that the execute method isn't receiving the correct number of variables. Check to see that the file is tabbed correctly.

Best,
-Adam

Comment on Re^3: Updating or Inserting a database from a txt file Select or Download Code

Replies are listed 'Best First'.

Re^4: Updating or Inserting a database from a txt file
by Nik (Initiate) on May 12, 2005 at 10:22 UTC

#=======================LOADING THE .TXT TO THE DATABASE==============
+==========

my $replace = $dbh->prepare( "REPLACE INTO games (gamename, gamedesc, 
+gamecounter) VALUES (?, ?, ?)" );

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

while (<FILE>) {
    chomp;

    if (length) {
       $replace->execute( split(/\t/, $_, 2),  0 ) or print $dbh->errs
+tr;
    }
}

close (FILE);
[download]

if( param() )
{
    $dbh->do( "UPDATE games SET gamecounter=gamecounter+1 WHERE gamena
+me='$gamename'" );
    $dbh->do( "UPDATE guestlog SET passage='$gamename' WHERE host='$ho
+st'" );

    $sth = $dbh->prepare( "SELECT * FROM games WHERE gamename=?" );
    $sth->execute( $gamename );
    $row = $sth->fetchrow_hashref;

    print span( {class=>'lime'},    "Είσαι ο $row->{gamecounter} ος πο
+υ κατεβάζει το $row->{gamename} !!" ),  br;
    print span( {class=>'yellow'},  "Ελπίζω να σου αρέσει και να σου φ
+ανεί χρήσιμο!" );

    print p( {-align=>'center'},  a( {href=>'index.pl'},  img {src=>'.
+./data/images/back.gif'} ));
    print "<script language='Javascript'>location.href=/data/games/$ga
+mename.rar</script>";
}

which is supposed to print a message when a user hits a game button to
+ be download and show the user what he choosed to downlaoded and how 
+many time it was in general downloaded but it doesnt.
[download]

[reply]
[d/l]
[select]


XP is just a number
	PerlMonks