[perl] Hij pakt maar 1 regel

[MeneerKrab]

Onderstaande code pakt maar 1 regel uit het hele domeinen.txt
hier staat onder andere (voorbeeldje)
12345 tweakers.net
12346 bastiaan.be

Het programma leest alle domeinnamen en nummers is een array @domein.
Deze namen moet hij gaan vergelijken in een database op from mail en to mail. Is er zo'n domein gevonden dan moet hij het veld domeinnummer gaan updaten met het domeinnr uit het tekstbestand.
Ergens gaat het fout, want hij pakt maar 1 regel.

code:

open(IN, 'domeinen.txt') or die('Error opening domein.txt');

while ($line = <IN>)
{
 chop($line);
 
 @domein = split (/\t/, $line);
 
 #print "$domein[0]\n"; 
 $sql="UPDATE maillog SET domeinnummer = $domein[0] WHERE frommail LIKE '%$domein[1]' or tomail like '%$domein[1]'";
 $dbh->ct_sql($sql);
}

een collega zei dat dit voldoende moest zijn, niet dus

[2]

en zo?

code:

open(IN,"domeinen.txt");
 
while(<IN>) {
 
  chop($_);
 
  @domein = split (/\t/, $_);
 
  # etc.
 
}

Volgens mij doet hij nu namelijk je hele bestand in een string stoppen ipv het als een array te zien.

[MeneerKrab]

Unrecognized character \312 at ./domein.pl line 10.

[2]

eh

en wat is regel 10 dan?

[MeneerKrab]

while(<IN>) {

[2]

Nou hier werkt het goed dus ik vermoed dat er iets anders niet ok is aan je scriptje. .. .?

Is het groot? Kun je het in zijn geheel posten?

[MeneerKrab]

laat maar hij doet het al