"[EMAIL PROTECTED]" <[EMAIL PROTECTED]> writes:
> 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 ;-)
#!/usr/bin/perl
-- Introduceer dit als een perl script, zodat het systeem weet dat het
aan perl moet worden overhandigd ter uitvoering.
use strict;
-- Stricte controle op gebruik van variabelen en zo. Van harte aanbevolen.
while ( <> ) { # lezen
-- Lees de standaard invoer, en plaats het resultaat in de perl
variabele $_. Levert een 'false' resultaat als er geen invoer meer is.
chomp; # CR/LF weg
-- Het voor dit systeem gebruikelijke regeleind wordt verwijderd.
my @a = split(/\t/, $_); # splitsen
-- Splits de gelezen regel (in $_) op de reguliere expressie \t (=
TAB teken) en plaats het resultaat in array @a.
my $nn = scalar(@a); # aantal velden
-- scalar(@a) geeft het aantal elementen in het array @a terug. Dit is
dus 1 meer dan het aantal TABs.
my $last = pop(@a); # laatste veld eruit
-- Haal het laatste element uit array @a en plaats het in de variabele
$last.
print join("\t", @a), "\n"; # schrijf 1e NN-1 velden
-- join("\t", @a) voegt de elementen uit @a samen met een \t (TAB)
ertussen. print schrijft dit weg naar de standaard uitvoer, met een
regeleind \n erachter.
print "\t", $last, "\t" x ($nn-2), "\n";
-- "\t" x ($nn-2) betekent: herhaal \t (de TAB) $nn-2 maal. De
resulterende regel bevat dus weer $nn-1 TABs, zoals alle regels.
}
-- einde van de while
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
