Pirmas

perl

Naudok priemonę labiausiai tinkančią užduočiai spręsti

Tre, 2010-06-16 23:24 — sirex

Kadangi esu programuotojas, mėgstu įvairias užduotis automatizuoti. Kartais automatizavimas sutaupo labai daug laiko, kartais galima sugaišti labai daug laiko automatizuojant, bet šį kartą ne apie tai...

Trumpai apžvelgsiu priemones, kurias naudoju užduočių automatizavimui.

Kaip pakeisti daug failų komandinės eilutės ir perl pagalba

Pen, 2008-11-07 11:47 — sirex

Programuodamas patekau į tokią situaciją, kurioje reikėjo surasti tam tikrus failus, kuriuose nėra aprašytas klasės parametras ir įrašytą tą trūkstamą parametrą į klasės vidų.

Pasinaudodamas komandine eilute ir nedideliu perl skriptu tai nesunkiai padariau.

Perl skriptas atrodo taip:

  1. print;
  2.  
  3. if (/^class/) {
  4.     use File::Basename;
  5.     my $layout = basename(dirname($ARGV));
  6.     print "\n    public \$layout = '$layout';\n";
  7. }
  8.  

O komanda atrodo taip:

find -wholename "*/themes/*/layouts/*/config.php" | xargs grep -L "public \$layout" | while read f ; do perl -ni /tmp/replace.pl $f ; done

Naudojantis komandine eilute, labai nesunkiai galima automatizuoti įvairiausias užduotis. Šiame pavyzdyje, vietoje to, kad keliaučiau per visus failus ir rankomis viską keisčiau, tiesiog pasinaudojau nedidele komanda :)

Surinktas turinys