sed script als perl einzeiler - #81203 (Allgemeines zu Perl)

Strat

2004-03-24 19:54

User since
2003-08-04
5246 Artikel
ModeratorIn

while(<>) { .... }

entspricht dem Parameter -n

Code: (dl )

while (<>) {
  ...
  print;
}

entspricht dem Parameter -p

da es sich um eine einfache ersetzung eines Zeichens durch ein anderes handelt, duerfte da tr eine bessere wahl sein als s(ed)

dann noch das if durch ein and ersetzen, und man kommt zu einer recht kurzen loesung

Code: (dl )

perl -pe '/^export/ and tr~\\~/~' dasScript > out.script

oder gleich in der datei ersetzen:

Code: (dl )

perl -i.bak -pe '/^export/ and tr~\\~/~' dasScript

dann wird die originaldatei unter dasScipt.bak abgelegt

unter Unix kann man auch auf das backup verzichten (nicht jedoch unter Windows):

Code: (dl )

perl -i -pe '/^export/ and tr~\\~/~' dasScript

-l ist da uebrigens ueberfluessig, weil in der datei sowieso schon zeilenumbrueche stehen...

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/