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

[[EMAIL PROTECTED]]

Kan dit niet makkelijker met een shellscript? Groeten, Marout 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]