[megoldva] Buta csere parancssorból

Szkriptek: Python, Perl, Bash, ...

Szeretném parancssorból megoldani, hogy (több fájlban) kicserélődjön

ez: define('qc',"ch");define('qf',"fr"); //define('qc',"Y");define('qf',"Y");
erre: define('qc',"Y");define('qf',"Y");

Mégpedig úgy, hogy ne kelljen levédeni a kritikus karaktereket (zárójel, pontosvessző, idézőjel, aposztróf, perjel, apát).
Lehet, hogy van olyan perl kapcsoló, amivel ez működik? Vagy van más, kevéssé szofisztikált parancssori eszköz (linuxhoz), amivel az efféle cserék gyorsan kivitelezhetők?

(Egy kerülőutat tudok: geanyban megnyitni mindet, csere: Munkamenetben. De mégis gyorsabb és újrafelhasználhatóbb lenne a parancssor.)

  • 5790 megtekintés

( uid_1406 | 2012. 08. 09., cs – 15:11 )

$x = q{define('qc',"ch");define('qf',"fr"); //define('qc',"Y");define('qf',"Y");};
$y = q{define('qc',"Y");define('qf',"Y");};

s/\Q$x/$y/g;

( uzsolt v | 2012. 08. 10., p – 14:43 )

Csak annyi, hogy a megjegyzés előtti részt ki kell törölni, a két perjellel együtt?
Baromi egyszerű, még perl sem kell :) 

sed "s@^.*//@@"

És kész. Persze lehet variálni, hogy az előző se vesszen el: 

sed "s@^\(.*\)//\(.*\)@\2//\1@"

Persze hogy ne mindent cserélgessen, egy szűrő-feltételt érdemes lehet a sed-nek megadni.

> Csak annyi, hogy a megjegyzés előtti részt ki kell törölni, a két perjellel együtt?
A szűrőfeltétel fontos, hogy máshol ne játssza el ugyanezt a cserélő.

Igazából ennél általánosabb feladatokra is kerestem a megoldást; ahol sok furi karakter van, azt hogyan szokás megoldani.
És meg is kaptam. :-)

Köszi azért.

( zeller | 2012. 08. 10., p – 22:40 )

Szegény szerzetesi elöljáró, nem akarod levédeni :-)