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

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

KurtZ+2008-03-19 13:50:41--

Code (perl): (dl )

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

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

KurtZ+2008-03-19 14:02:02--

Code (perl): (dl )

perl -F'\|' -ane 'print $F[3],"\n"' beispiel.txt

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

pq+2008-03-19 14:24:37--

KurtZ+2008-03-19 13:50:41--

Code (perl): (dl )

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

glückwunsch zum Useless-Use-Of-Cat award.

KurtZ+2008-03-19 14:54:48--

da wird irgendwas im CLI falsch geparst...