LINUXSOFT.cz Přeskoč levou lištu
Uživatel: Heslo:  
   CZUKPL

> Perl (57) - Jednořádkové skripty

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 | Články autora | přečteno 19409×

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.

Hello World

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"'

Výpis pole @INC

Pro přehlednou informaci o obsahu pole @INC zadejme následující příkaz.

$ perl -e 'for(@INC){print "$_\n";}'

Přejmenování všech souborů v adresáři

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.

Nahrazení slov

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

Připomenutí události

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í.

Smazání daných řádků v souboru

Pro smazání 3. až 7. řádku v souboru použijme příkaz

$ perl -i.old -ne 'print unless 3..7' soubor

Konverze měn

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

Získání WWW stránky

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"'

Spolupráce s find

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 {} \;

Vytisknutí části souboru

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

Hromadná změna práv

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.

Očíslování řádků

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

Závěr

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.

Verze pro tisk

pridej.cz

 

DISKUZE

Nejsou žádné diskuzní příspěvky u dané položky.



Příspívat do diskuze mohou pouze registrovaní uživatelé.
> Vyhledávání software
> Vyhledávání článků

5.2.2016 17:38 /Petr Ježek
Utilitka z XFce "xfce4-power-manager" nejen umožňuje nastavení lhůty pro uspání či hybernaci, ale i zapínání a vypínání prezentačního módu pro nerušené sledování videí. Stačí ji nastavit v každém vybavenějším panelu a v jakémkoli nontiled WM/DE.
Přidat komentář

10.1.2016 11:32 /Pavel `Goldenfish' Kysilka
LinuxMarket změnil provozovatele. Nově jej provozuje Marek Pszczolka. Více info a detaily #1 a #2.
Přidat komentář

29.12.2015 11:38 /Ondřej Čečák
Ještě posledních pár dní můžete přidávat příspěvky nebo nápady na Install Fest 2016, který se bude konat 5. a 6. března 2016.
Přidat komentář

8.12.2015 11:36 /Petr Ježek
Logické se stává realitou. LibreOffice a Thunderbird se mají dle článku na Redditu stát protiváhou MS řešení (MS Office a Outlook).
Přidat komentář

17.11.2015 3:31 /Miloslav Ponkrác
Unicode se připravuje na verzi 9.0. Čerství kandidáti na nové znaky jsou zde.
Přidat komentář

3.11.2015 12:59 /Petr Ježek
Desktopových prostředí podporujících Wayland je jako šafránu. Blížící se Enlightenemt E20, nyní ve stažitelné beta verzi tak může udělat díru do světa X a posunout jej k Waylandu. Nutné jsou ale nové knihovny EFL 16 (pro X stačí nadále EFL15).
Komentářů: 1

7.10.2015 15:43 /Redakce Linuxsoft.cz
PR: 20.10 2015 proběhne v pražském Kongresovém centru Vavruška na Karlově náměstí již druhý ročník odborné konference na téma Datová centra pro business. Mezi hlavní témata bude patřit úspornost, pružnost nebo automatizovaná správa datových center.
Přidat komentář

4.10.2015 23:10 /František Kučera
Příběh o tom, jak probíhá hledání a opravování chyby v autorovi dosud neznámém kódu, vypráví článek Opravujeme chyby v softwaru: inotify-tools. Krok za krokem stáhneme zdrojové kódy, přeložíme program a najdeme chybu – seznámíme se se základními postupy a nástroji pro diagnostiku chyb (verzovací systém, IDE, GNU Debugger, Kompare).
Přidat komentář

   Více ...   Přidat zprávičku

> Poslední diskuze

7.2.2016 19:41 / Dušan Trnka
změna velikosti disk.oddílu

2.1.2016 15:54 / Josef Němec
Re: adobe flash

27.11.2015 14:40 / Linda Gremillion
jujitsu gi

6.11.2015 13:30 / sss lokesh
websphere online Training

3.11.2015 13:01 / Petr Ježek
Chybka

Více ...

ISSN 1801-3805 | Provozovatel: Pavel Kysilka, IČ: 72868490 (2003-2016) | mail at linuxsoft dot cz | Design: www.megadesign.cz | Textová verze