Re: [gebruikers] Re: Omgaan met text-bestanden

[[EMAIL PROTECTED]]

#!/usr/bin/perl use strict; while ( <> ) { # lezen chomp; # CR/LF weg my @a = split(/\t/, $_); # splitsen my $nn = scalar(@a); # aantal velden my $last = pop(@a); # laatste veld eruit print join("\t", @a), "\n: # schrijf 1e NN-1 velden print "\t", $last, "\t" x ($nn-2), "\n" } Bovenstaande heb ik opgeslagen als telebank.pl Resultaat: Backslash found where operator expected at ./telebank.pl line 11, near "print "\"   (Might be a runaway multi-line "" string starting on line 10)         (Do you need to predeclare print?) String found where operator expected at ./telebank.pl line 11, near "t", $last,"" Backslash found where operator expected at ./telebank.pl line 11, near "", $last, "\"         (Missing operator before \?) String found where operator expected at ./telebank.pl line 11, near "t" x ($nn-2), "" Backslash found where operator expected at ./telebank.pl line 11, near "" x ($nn-2), "\"         (Missing operator before \?) String found where operator expected at ./telebank.pl line 11, at end of line         (Missing semicolon on previous line?) syntax error at ./telebank.pl line 11, near "print "\" Can't find string terminator '"' anywhere before EOF at ./telebank.pl line 11. Naar ik kan zien gaat er iets mis op de regen # schrijf 1e NN-1 velden Groeten, Marout --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]