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

[[EMAIL PROTECTED]]

Resultaat $ ./telebank.pl bankdata ./telebank.pl: line 1: syntax error near unexpected token `)' ./telebank.pl: line 1: `while (<>) {                          # lezen' Ik probeer het script te begrijpen ;-) Johan Vromans schreef: "[EMAIL PROTECTED]" <[EMAIL PROTECTED]> writes: Bovenstaande heb ik opgeslagen als telebank.pl Resultaat: Backslash found where operator expected at ./telebank.pl line 11, near Dit was slechts een proof of concept hoe je zoiets zou kunnen aanpakken... Enfin, zo werkt het: #!/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"; } -- Johan --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]