Kathryn Bushley schreef: > #!/usr/bin/perl -w > use warnings;
You have both -w and lexical warnings. Read `perldoc perllexwarn` or http://perldoc.perl.org/perllexwarn.html Now first change your two lines to these three: #!/usr/bin/perl use warnings ; use strict ; and see what extra help Perl gives you. > my @ID = split(/\s+/); Almost always this is equivalent or better: my @ID = split ; Read "-f split" about the difference. > chomp; Normally the chomp is at the top of the loop-body. I think you forgot to take it out. There are a lot of dead lines in your code. Maybe you should start using something like this: use constant DEBUG => 1 ; [...] if (DEBUG) { print "ID->${ID[0]}<-\n" . "Code->${ID[1]}<-\n" } -- Affijn, Ruud "Gewoon is een tijger." -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
