best. Feld speichern (wie z.B. bei awk) - #107243 (Allgemeines zu Perl)

KurtZ

2008-03-19 14:50

User since
2007-12-13
411 Artikel
BenutzerIn
[default_avatar]

renee+2008-03-19 11:08:16--
Code: (dl )
1
2
3
4
C:\>perl -ane "print +(split /\|/,$_)[3],qq~\n~" beispiel.txt
4
test
im
beispiel.txt:
Code: (dl )
1
2
3
1|2|3|4|5|6
dies|ist|ein|test|noch
ein|wort|mit|im|satz

also bei mir läuft das nicht, eher

Code (perl): (dl )

cat beispiel.txt | perl -ne "print +(split /\|/,$_)[3],qq~\n~"

perl kann awkssemantik wohl weitestgehend emulieren , leider hab ichs jetzt auf die Schnelle mit -a und -F nicht hinbekommen.

TMTOWTDYOG (there's more than one way to dig your own grave)