"[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]
