Thread Zeilennummern einfügen (10 answers)
Opened by Gabriel at 2008-09-15 19:09

pq
 2008-09-15 19:20
#114675 #114675
User since
2003-08-04
12208 Artikel
Admin1
[Homepage]
user image
das geht mit einem einzeiler:
Code: (dl )
perl -pi.bak -e' $_ = "$.: $_" ' datei


ansonsten wirds ein bisschen komplizierter, du musst die datei entweder:
- zum lesen und schreiben gleichzeitig öffnen (http://p3rl.org/open, http://p3rl.org/perlopentut)
- einmal zeilen einlesen und zum start zurückspringen (http://p3rl.org/seek)
- datei leeren (http://p3rl.org/truncate
- und die zeilen mit der nummer wieder reinschreiben

oder:
die datei lesen und gleichzeitig mit der zeilennummer in eine andere datei schreiben und zum
schluss die neue datei umbenennen.
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: Wiki:Wie frage ich & perlintro Wiki:brian's Leitfaden für jedes Perl-Problem

View full thread Zeilennummern einfügen