Re^3: How do I write data in SQLite

It won't because while (@links) will continue until @links is empty. You're not doing anything to empty it in the loop - so the loop is endless.

"What should it profit a man, if he should win a flame war, yet lose his cool?"

Comment on Re^3: How do I write data in SQLite Download Code

Replies are listed 'Best First'.
Re^4: How do I write data in SQLite by lampros21_7 (Scribe) on Feb 03, 2006 at 23:59 UTC
Right, thanks for that it was pretty daft. I think i ve sorted it out: $v = 0; my $dbh = DBI->connect( "dbi:SQLite:dbname=mydatabase.db", "", "" )\|\| + die "Cannot connect: DBI"; # If the file exists delete the information in it eval { local $dbh->{PrintError} = 0; $dbh->do("DROP TABLE webpages_data"); }; # Create a table $dbh->do( "CREATE TABLE webpages_data (id INTEGER PRIMARY KEY, page, +text, bigr)"); my $a = 1; my $s = scalar(@links); while($s >= $a) { $dbh->do( "INSERT INTO webpages_data VALUES('$a', '$_', '$text[$v +]', NULL)"); $a++; $v++; } # Disconnect when finished using the database $dbh->disconnect(); [download] I still get the "Use of uninitialized value in concatenation (.) or string" error though when i try to add data to the table.	[reply] [d/l]

Replies are listed 'Best First'.

Re^4: How do I write data in SQLite
by lampros21_7 (Scribe) on Feb 03, 2006 at 23:59 UTC

 $v = 0; 
 my $dbh = DBI->connect( "dbi:SQLite:dbname=mydatabase.db", "", "" )||
+ die "Cannot connect: DBI";

 # If the file exists delete the information in it
 eval 
        {
        local $dbh->{PrintError} = 0;
        $dbh->do("DROP TABLE webpages_data");
    };
    
 # Create a table
 $dbh->do( "CREATE TABLE webpages_data (id INTEGER PRIMARY KEY, page, 
+text, bigr)");
 
 my $a = 1;
 my $s = scalar(@links);
 
 while($s >= $a) {
               
     
     $dbh->do( "INSERT INTO webpages_data VALUES('$a', '$_', '$text[$v
+]', NULL)");
               
     $a++;
     $v++;            
     }
 
 
 # Disconnect when finished using the database
 $dbh->disconnect();
[download]

[reply]
[d/l]