Perl: Text am Anfang einer Datei einfügen Posted on 2008-10-02 by sw perl -i -pe 'print "Dieser Text soll in die erste Zeile\n" if $. == 1' filename
Ein tatsächlich sehr praktisches Beispiel, weil man hier auch an Stelle “2″ einfügen kann. Danke! Reply ↓
Das Auskommentieren einer Zeile funktioniert – in Anlehnung an das obige Beispiel – wie folgt: perl -i.bak -pe ‘s/(.*)/#$1/ if $. == ‘ Reply ↓
Hi Das ganze geht auch relativ einfach mit sed (dürfte gerad ebei größeren Mengen besser performen) uwe@krusty ~/tmp $ cat test eins zwei uwe@krusty ~/tmp $ sed '1 i\voreins' test voreins eins zwei Mit sed -i wird die Datei auch gleich noch iline verändert. Diese option unterstützen jedoch nur neuere Versionen von (GNU) sed. Reply ↓
Der Vorteil von sed ist in diesem Fall, dass man auch mehrere Dateien gleichzeitig ändern kann. Bei Perl wird nur die erste Zeile des gesamten Inputs, also aller Dateien, bearbeitet. Reply ↓
Ein tatsächlich sehr praktisches Beispiel, weil man hier auch an Stelle “2″ einfügen kann. Danke!
Das Auskommentieren einer Zeile funktioniert – in Anlehnung an das obige Beispiel – wie folgt:
perl -i.bak -pe ‘s/(.*)/#$1/ if $. == ‘
Hi
Das ganze geht auch relativ einfach mit sed (dürfte gerad ebei größeren Mengen besser performen)
Mit sed -i wird die Datei auch gleich noch iline verändert. Diese option unterstützen jedoch nur neuere Versionen von (GNU) sed.
Der Vorteil von sed ist in diesem Fall, dass man auch mehrere Dateien gleichzeitig ändern kann. Bei Perl wird nur die erste Zeile des gesamten Inputs, also aller Dateien, bearbeitet.