> "Lese mir die Datei adress.txt ein und schreibe mir das, was zwischen
> den
> Doppelpunkten steht, in eine andere Datei untereinander"
>
perl2:
/* begin */
my @array;
my $index=0;
while(<STDIN>){
@array = split(/:/);
while ( $#array >= 0 ) {
print shift(@array) . "\n";
$index++;
print "-------------------------------\n" if $index == 13;
if ( $index == 13 ) {
$index=0;
}
}
}
/* end */
--
lächle, denn es könnte schlimmer kommen .. und es kommt schlimmer
murfie's law
---------------------------------------------------------------------------
PUG - Penguin User Group Wiesbaden - http://www.pug.org
