Dnešní díl bude ryze praktický. Předvedeme si na konkrétních příkladech, jak využít příkaz perl jako nástroj přímo v shellu.
25.5.2007 06:00 | Jiří Václavík | přečteno 24986×
Pro spouštění skriptů v jazyce Perl není bezpodmínečně nutné, aby byl uložen v souboru. Pro krátké programy, skládající se z minima příkazů, je zde možnost spouštění přímo přes příkazový řádek. Takové skripty můžeme nazývat jednořádkové (někdy se lze setkat s názvem oneliners).
V 56. díle seriálu jsme se zabývali některými z přepínačů, které Perl akceptuje. Zmínka přišla i na volbu -e, která umožňuje spouštět kód Perlu z příkazového řádku.
Jednořádkové skripty se využívají zejména při práci s textem. Předvedeme si několik příkladů. Ne všechny budou praktické, ale pro představu o možnostech uveďme co nejširší záběr.
Nejjednodušším příkladem z této kategorie je obyčejný výpis textu.
$ perl -e 'print "Hello World\n"'
Jak ukazuje následující příkaz, přepínačů -e může být i více.
$ perl -e 'print "Hello ";' -e 'print "World\n"'
Pro přehlednou informaci o obsahu pole @INC zadejme následující příkaz.
$ perl -e 'for(@INC){print "$_\n";}'
Pojďme však k příkladům, které mohou být opravdu užitečné. Nejednou se stane, že potřebujeme hromadně změnit jména skupiny souborů. Variantou takového programu je změna velikosti písmen v názvech soborů na malá.
$ perl -e 'for (<*>) {rename $_, lc($_)}'
Tento skript lze modifikovat tak, aby na malá písmena přejmenoval jen názvy uvedených souborů. Použijeme k tomu pole @ARGV.
$ perl -e 'for (@ARGV) {rename $_, lc($_)} soubor1 soubor2
S funkcí rename lze vymýšlet i složitější věci. Kupříkladu následující příkaz přejmenuje všechny soubory v aktuálním adresáři tak, aby začínali vždy rokem, ve kterém byly naposledny změněny.
$ perl -e 'for (<*>) {rename $_, 1900+(localtime((stat)[9]))[5]."$_"}'
A podobně. Takovéto příkazy mohou v mnohém připomínat použití unixového příkazu find, pomocí nějž lze dělat podobné věci.
Možná vůbec nejčastějším onlinerem je nahrazení části textu, která vyhovuje danému regulárnímu výrazu. Vytvoříme skript, který v uvedených soubourech nahradí libovolný počet mezer za sebou mezerou jedinou.
$ perl -pi -e 's/ +/ /g' soubor1 soubor2
Pokud se vám stává, že si necháte vařit čaj, zasednete k počítači a zapomnenete na vše kolem, jistě přivítáte následující skript.
$ perl -e 'if (!fork){sleep $ARGV[0]*60;print "\nCAJ UVAREN!!!\a\n";exit;}exit;' 7
Ten se od okamžiku spuštění neozývá, ale to je jen zdání, protože zatím nenápadně čeká na pozadí, aby se mohl za zadaný počet minut spustit a vyvést tak uživatele z tranzu.
Je to spíše taková hračka, ale pokud by se vám zalíbila natolik, že byste ji chtěli mít stále po ruce, vytvořte si třeba soubor /usr/bin/wake s právy pro spouštění a následujícím obsahem.
#!/usr/bin/env perl
if (!fork){sleep $ARGV[0]*60;print "\n".$ARGV[1]."\a\n";exit;}exit;
Nyní zadejme tento příkaz.
$ wake 120 'PROBUĎ SE'
Za 2 hodiny můžeme čekat upozornění.
Pro smazání 3. až 7. řádku v souboru použijme příkaz
$ perl -i.old -ne 'print unless 3..7' soubor
Dalším příkladem je vytisknutí souboru, ve kterém zaměníme ceny v amerických dolarech za ceny v českých korunách. Jako kurz budeme brát hodnotu 20.5CZK/USD.
$ perl -pe 's/(\d+.?\d*)USD/20.5*$1."CZK"/ge' soubor
Alternativou k příkazu lynx -source je následující, tentokrát poněkud delší zápis.
$ perl -MLWP::Simple -e 'mirror("http://www.linuxsoft.cz", "linuxsoft.html")'
Nicméně jeho modifikací můžeme smysl tohoto příkazu upravit. Například výpis hlavičky na standardní výstup.
$ perl -MLWP::Simple -e'print head "http://www.linuxsoft.cz"'
Abychom si předvedli něco trochu jiného, podívejme se na následující příkaz.
$ echo soubor | perl -nle unlink
Jeho činnost je již asi zřejmá. Maže soubor, který mu byl předán rourou. Příkaz tak lze využít například na základě výstupu příkazu find.
$ find . -name '.backup' | perl -nl -e 'unlink'
Nutno však podotknout, že stejného efektu bychom docílili i definicí akce přímo pomocí find.
$ find . -name '*2*' -exec rm -f {} \;
Dalším příkladem, který můžeme v praxi čas od času užít je výpis konkrétních řádků souboru, určených rozsahem. Pro vytisknutí řádků 7-12 v uvedeném souboru lze psát tento příkaz.
$ perl -ne 'print if 7 .. 12' soubor
Další příkaz mění práva všech souborů aktuálního adresáře, které začínají písmenem d.
$ perl -e 'while(<*>){chmod 0700, $_ if /^d/}'
Pro vykonání této činnosti by však asi bylo pohodlnější použít find.
Pro vytisknutí souboru na výstup s tím, že budou jednotlivé řádky označeny svým pořadím, napíšeme toto.
perl -n -e 'printf "%3d. %s",$.,$_' soubor
Ukázali jsme, že jednořádkové skripty zvládnou skutečně mnoho. Ovšem většinou není jejich vytvoření příliš pohodlné a je lepší užít přímo některý shellový nástroj.
Jednořádkové skripty jsou výhodné například při nahrazování textu v souborech nebo když nevíme, jak realizovat daný úkol přímo v shellu. Je to užitečné doplnění technik uživatele příkazového interpretu.