"[EMAIL PROTECTED]" <[EMAIL PROTECTED]> writes:
> Johan,
>
> dank vopor de uitleg maar hoe kom ik dan aan de foutmelding?
>
> $ ./telebank.pl bankdata
> ./telebank.pl: line 1: syntax error near unexpected token `)'
> ./telebank.pl: line 1: `while (<>) { # lezen'
In mijn script staat de 'while' op regel 5 of zo. Als de eerste regel
(die met #!/usr/bin/perl ontbreekt) zal de shell het programma
proberen uit te voeren. En de shell spreekt geen perl...
Ik heb het (complete) programma voor de volledigheid nogmaals
hieronden:
----knip----
#!/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";
}
----knip----
-- Johan
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
