Hallo Jürgen,
wenn du dich noch nicht mit perl auskennst dann wirst du es
danach lieben:
also erstmal den inhalt der datei auf die reise in den
STDIN schicken
cat mein.txt | perlscript.pl > ergebnis.txt
und dann mit dem perlscript bearbeiten und die ausgabe in der
datei ergebnis.txt gefangen nehmen ;)
perscript.pl:
hier müssen wir vom STDIN lesen und den inhalt von einem "scalar" in
ein "array" überführen was aber split für uns erledigt.
/* begin */
my @array;
while(<STDIN>){
@array = split(/\s/);
while ( $#array >= 0 ) {
print shift(@array) . "\n";
}
}
/* end */
perl arbeitet hierbei mit der implizieten variable "@_"
split() zerlegt alles als delimiter=\s (regexpression für space)
shift() holt den ersten scalar aus @array und schrumpft den array-size um -1
$#array anzahl der elemente in @array dabei hat das erste element im
array den index 0 das zeite den index 1 usw. deswegen auch
while( >=0 ).
also vom stdin->@_->(split)->@array->shift->print->stdout
fertig
-cr
--
lächle, denn es könnte schlimmer kommen .. und es kommt schlimmer
murfie's law
---------------------------------------------------------------------------
PUG - Penguin User Group Wiesbaden - http://www.pug.org
