Felder tauschen auf Kommandozeile (Allgemeines zu Perl)

[thread]12541[/thread]

Felder tauschen auf Kommandozeile

havi

2008-09-24 15:50

User since
2003-08-04
2036 Artikel
BenutzerIn

Hallo Leute!

Brauch eure Hilfe - moechte eine Datei auf der Kommandozeile bearbeiten.

So wie hier (Beispiel - macht natuerlich was anderes)

Code: (dl )

perl -e"while(<>){print unless $uniq{$_}++}" <infile >outfile

Nur soll ich das 9. Feld der Datei an die erste Position stellen und dann alle
weiteren.

havi

2008-09-24 15:57

User since
2003-08-04
2036 Artikel
BenutzerIn

Code: (dl )

perl -e" while(<>){@feld = (split/;/, $_); print $feld[8], ';', $_}" <test.txt >test.neu

murphy

2008-09-24 17:20

User since
2004-07-19
1776 Artikel
HausmeisterIn

Ich würde es ja so machen:

Code: (dl )

perl -F';' -lape 'unshift @F, splice @F, 8, 1; $_ = join ";", @F'

When C++ is your hammer, every problem looks like your thumb.