D:/www/data/text/D:/www/data/text/Ένα μήνυμα σε όλους τους άπιστους.txt

D:/www/data/text/Ένα μήνυμα σε όλους τους άπιστους.txt

$ENV{'DOCUMENT_ROOT'}/data/text/

I cannot believe iam THAT careless....my apologies and think you for pointing this out.

my $insert = $db->prepare( 'INSERT INTO articles (title, body) VALUES 
+(?, ?)' );

my @files = glob "$ENV{'DOCUMENT_ROOT'}/data/text/*.txt";

foreach (@files) {
   open FILE, "$_" or die "error opening $_: $!";
   
   while (<FILE>) {
      chomp;
      $insert->execute(split /\t/, $_, 2) or print $db->errstr;
   }

   close FILE;
}
[download]

gives me DBD::mysql::st execute failed: called with 1 bind variables when 2 are needed.... But iam passing it 2 vars why it says iam passing it only 1?

maybe there isn't a tab character in the string you are trying to split?

Have you tried debugging the code yourself at all? Something simple as a sanity check would be to:

foreach my $filename (@files) {
    ...
    
   while (<FILE>) {
      chomp;
      next unless length; #Skip blank lines

      my @params = split /\t/, $_, 2;
      
      unless (2 == @params) {
        warn "Line $. in $filename badly formed\n";
        next;
      }
      
      $insert->execute() or print $db->errstr;
   }
[download]

It is worth thinking about how stuff could go wrong rather than how it might go right. It is also worth checking documentation for any construct you are not absolutely sure about. Getting to know your way around the documentation for whatever you are doing is generally much better in the long run than crawling cap in hand to PerlMonks every time you hit a problem. We much prefer to solve interesting problems rather then dumb ones that are more due to laziness than inexperience.

---

Perl is environmentally friendly - it saves trees

called with 1 bind variables when 2 are needed.... But iam passing it 2 vars

There you go making assumptions again. You are passing whatever the "split" function happens to be returning -- which would be one arg if there were no tab characters in the string being split.

I cannot believe iam THAT careless....
Why, you keep demonstrating with every post?

foreach (@files) { 
   open FILE, "$_" or die "error opening $_: $!"; 
... 
}
[download]