in reply to loading a .txe into a database

Sure thing. From the looks of it, you have a tab delimited file. Let's assume that gamename is the primary key on the database table. You could do something like this: 
my @row;
my $select = $dbh->prepare( '
SELECT COUNT(*) FROM games where gamename=?
' );
my $insert = $dbh->prepare( '
INSERT INTO games (gamename, gamedesc, gamecounter) VALUES (?, ?, ?)
' );
my $update = $dbh->prepare( '
UPDATE games SET gamedesc=? where gamename=?
' );

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

        my ($gamename, $gamedesc) = split /\t/;
        $select->execute($gamename);
        my $count;
        while( my $ref = $select-> fetchrow_arrayref() ) {
            $count = $ref->[0];
        }
        if( $count == 0 ) { #a new game
            $insert->execute( $gamename, $gamedesc, 0 );
        }
        else {
            $update->execute( $gamedesc, $gamename );
        }
    }
close (FILE);

[download]
I'm sure that there are cooler ways to do it, but this one's pretty transparent.

thor

Feel the white light, the light within
Be your own disciple, fan the sparks of will
For all of us waiting, your kingdom will come

Replies are listed 'Best First'.
Re^2: loading a .txe into a database
by Nik (Initiate) on May 03, 2005 at 10:39 UTC
    Thank you very much Thor!
    It worked great!
[reply]
      Why when i run this i get an error saying Undefined subroutine &main::start_table called at the line where the pritn start_table is:
      How can i write it? 
      ====================================================
print start_form(-action=>'games.pl');
    print start_table( {class=>'games'} );
        while( $row = $sth->fetchrow_hashref )
        {
            print Tr(
                     td( {-width=>'20%'},  submit( $row->{gamename} ))
+,
                     td( {-width=>'75%'},  $row->{gamedesc}         ),
                     td( {-width=>'5%'},   $row->{gamecounter}      )
                  );
        }
    print end_table;
print end_form, br;

====================================================

      [download]
[reply]
[d/l]
        It seems that you didn't import start_table and stop_table from CGI.pm, so it tries to look for it in the current package (which happens to be main). Example (munged from perldoc CGI): 
           # Imports all standard symbols + "start_table" and "end_table".
   use CGI qw(:standard *table);

        [download]

        Flavio (perl -e 'print(scalar(reverse("\nti.xittelop\@oivalf")))')

        Don't fool yourself.
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom