LINUXSOFT.cz Přeskoč levou lištu

ARCHIV



   

> Perl (56) - Volby příkazu perl

Jaké máme možnosti při spouštění perlových programů ze shellu? Budeme se zabývat přepínači příkazu perl.

25.4.2007 06:00 | Jiří Václavík | Články autora | přečteno 18066×

Přepínačů, které ovlivňují chování má perl celou řadu. My si je představíme, protože některé z nich budeme ještě v budoucnu potřebovat. Jiné uveďme pouze pro zajímavost jako ilustraci možností.

Charakteristika

perl [volby] zdrojový_soubor [parametr1] [parametr2] ... [parametrn]

Již známé přepínače

Přepínače v následující tabulce jsme již používali a nebudeme je nyní více rozebírat.

PřepínačPopis
-dspustí program v debuggeru
-vzobrazí informace o verzi, licenci atd.
-Mnačte modul
-Iadresář, ve kterém se budou přednostně hledat moduly
-t, -Taktivuje režim nakažení

Varování a chyby

Zapnutí zobrazování varování

Přepínač -w zapíná varování. Upozorňuje na úseky programu, které sice překladač vezme, ale je zde podezření na chybu. Často tedy najde chybu, aniž bychom ji museli hledat my.

Uveďme jednoduchý příklad - program na jediný řádek. Sledujme, jak zapůsobí přepínač -w.

print $i;

Porovnejme výstup s volbou -w a bez ní.

$ perl volby.pl
$ perl -w volby.pl
Name "main::i" used only once: possible typo at volby.pl line 1.
Use of uninitialized value in print at volby.pl line 1.
$

Obdrželi jsme hned dvě varování. První z nich říká, že je proměnná v programu použita jen na jediném místě. To je opravdu vždycky podezřelé (tedy pokud to není speciální proměnná - ovšem ty přepínač -w nehlásí). Druhým varováním dává Perl najevo, že se mu nelíbí náš způsob práce s proměnnou $i. Nic v ní není a už ji tiskneme. V obou případech má Perl více méně pravdu a stálo by za to něco s tím udělat. Oba problémy se vyřeší tak, že se před print přiřadí do $i prázdný řetězec.

Většinou je lepší používat místo -w pragmu warnings, jejíž význam je podobný.

Další přepínač, -W, zapíná všechna možná varování.

Vypínání varování

-X veškerá varování ruší. Funkce die funguje normálně.

Jednořádkové skripty

Podobně jako u jiných skriptovacích jazyků není vždy nutné psát přímo skripty. Je většinou zbytečné ukládat do souboru jen krátký a jednorázový příkaz. Použijeme-li přepínač -e a za něj do uvozovek příkaz, vykoná se stejně, jako šlo o skript. Tímto způsobem lze předávat i delší posloupnosti příkazů, ač to není příliš přehledné.

Pokud potřebujeme rychle přímo ze shellu ASCII hodnotu písmena d, stačí zadat:

$ perl -e 'print ord "d"'
100$

Uvedeme-li lichý počet uvozovek, apostrofů nebo obrácených apostrofů, příkaz se neprovede. Po odentrování se dostaneme na nový řádek, uvozený sekundárním promptem, a můžeme pokračovat v příkazu.

Problém nastane, když budeme chtít vytisknout apostrof. Samotné zpětné lomítko nestačí. K vypsání apostrofu použijeme takovouto změť znaků.

$ perl -e 'print "'\''"; '
 ' $

Přepínačem -e se ještě budeme zabývat. Mimo jednorázových příkazů se také často používá v kombinaci s nástroji shellu, cronem apod.

Přepínače pro ladění

Následovat budou přepínače, které jednorázově přidávají do našeho kódu nějaký další. Moc lidí je nepoužívá, ale představme si je, možná se někomu některý zalíbí.

Volba -n

Tato volba má ten efekt, že se náš program obalí cyklem while (<>){ ... náš program ... }. Podívejme se na tento program.

$i++;
print "$i: $_";
$_++;

Spustíme-li ho s volbou -n, bude se tvářit (při aktuálním spuštění) takto.

while (<>){
    $i++;
    print "$i: $_";
    $_++;
}

Zkusme ho tedy spustit.

$ perl -n volby.pl
666
1: 666
6*4
2: 6*4
...

Originální program se provádí stále dokola, pokaždé s jiným testovacím vstupem.

Volba -p

Zde se oproti -n $_ tiskne v bloku continue, který volba -p přidává. Struktura simulovaného programu vypadá následovně: while (<>){ ... váš program ... } continue { print; }.

Zkusme spustit předchozí příklad znovu, jen zvolíme volbu -p. Výstup je trochu nepřehledný ale vstup rozeznáte podle kurzívy:

$ perl -np volby.pl
666
1: 666
6676*4
2: 6*4
7
...

Je to téměř to samé, co minulý příklad. Liší se jen v tom, že volba -p zajistí vytisknutí hodnoty proměnné $_ po skončení programu (jako by program končil příkazem print $_;). Řádek $_++; neměl v předminulém příkladě žádný efekt na výsledek, nyní již ano.

Volba -pe

Další možností užití -p je v kombinaci s -e. Každý řádek vstupu (soubor v parametru nebo klasicky stdin - podrobnosti za chvíli) je načten a jsou s ním provedeny příkazy, uvedené jako parametr volby -e. Poté se tiskne.

Struktura: while (<>) { ... příkazy v hodnotě volby -e ... } continue { print; }

Praktická ukázka: Chceme očíslovat řádky v dnes několikkrát zmiňovaném souboru volby.pl a vytisknout.

$ perl -pe '$i++;print $i.". ";' volby.pl
1. $i++;
2. print "$i: $_";
3. $_++;
$

Je to poměrně rychlé řešení. Chceme-li navíc uložit výsledek do souboru ukazka, použijeme nástroje shellu.

$ perl -pe '$i++;print $i.". ";' volby.pl > ukazka
$ more ukazka
1. $i++;
2. print "$i: $_";
3. $_++;
$

Volby -na, -F

S volbou -na bude mít program následující strukturu:

while (<>){
    @F = split (\ \);
    ... samotný program ...
}

Opět vytvoříme ukázkový program. Bude vypadat takto.

$, = "*";
$\ = "\n";
print @F;

A zkusíme spustit.

$ perl -na volby.pl
každá mezera je nahrazena hvězdičkou
každá*mezera*je*nahrazena*hvezdičkou
...

Pokud chceme za while přidat ještě continue { print; }, můžeme příkaz rozšířit o přepínač -p.

Nechceme-li nahrazovat mezeru, ale jiný řetězec vyhovující vzoru (zvolil jsem znaky Q a r), přidejme volbu -F (a za ní v apostrofech a lomítkách regulární výraz).

$ perl -na -F'/[Qr]/' program.pl
QwertyQwerty
*we*ty*we*ty
...

Nahrazování v souboru pomocí regulárních výrazů

Pokud se některé kombinace přepínačů používají opravdu často, pak mezi ně patří -pi -e. Pomocí nich můžeme nahradit části souboru vyhovující regulárnímu výrazu jiným textem. Samotné -i zajišťuje, že se výsledek nahrazuje stávající soubor. Bez -i by se vytiskl na výstup. Máme soubor os s tímto obsahem.

Windows Vista

Aplikujeme na něj tento příkaz.

$ perl -pi -e's/Windows Vista/SUSE Linux/g;' os

Hned je obsah os o něco hezčí.

SUSE Linux

Pokud chceme zároveň starý soubor zálohovat, použijme hodnotu pro přepínač -i. Ta udá příponu zálohy.

$ perl -p -i.backup -e's/Windows Vista/SUSE Linux/g;' os

Možnosti této konstrukce ještě zvyšuje možnost určení souborů podle žolíkových znaků.

Separátor při čtení ze zdroje dat

Volba -0 mění separátor $\, který například určuje, kam až se bude číst ze zdroje dat <>. Implicitně je oddělovačem znak nového řádku. Zkusme použít nějaký další separátor - uvádí se jako hodnota přepínači -0. Pozor na to, že musíme uvést oktálovou hodnotu. (ASCII tabulka)

Máme textový soubor data, kde jsou jednotlivá slova oddělena hvězdičkami.

text*oddělený*hvězdičkami*

A dále zdrojový kód programu.

@p = <>;

foreach (@p) {
    print "$_\n";
}

Spusťme program. Jako parametry uveďme přepínač -0052 a soubor data. Hodnota 052 je oktálové vyjádření hvězdičky v ASCII tabulce. Sledujme, co se stane.

text*
oddělený*
hvězdičkami*

Něco navíc

Přepínač -x

Pouze pro zajímavost zmiňme, že ve skutečnosti nemusí být řádek #!/usr/bin/perl na prvním řádku. Použijeme-li volbu -x, pak vše, co je před tímto řádkem je ignorováno. Použijeme-li -x, musí tam už #!/usr/bin/perl povinně být (a to na začátku řádku). V opačném případě budeme svědky hlášky No Perl script found in input.

Kontrola syntaxe

S volbou -c Perl zkontroluje syntaxi, aniž by se program spouštel.

Program se nedostane do fáze běhu. Proto bude provedeno pouze to, co je v blocích BEGIN a CHECK.

BEGIN {
    print "Jsem v BEGIN\n";
    $i = 1;
}

$i = 10;
print "za BEGIN";

Kód za BEGIN se už nevykonává, ale jen kontroluje.

$ perl -c volby.pl
Jsem v BEGIN
volby.pl syntax OK
$

Přepínače a řádek #!${PATH}/perl

Na některých unixových systémech můžete údajně za #! napsat maximálně jen 32 znaků. Já jsem se s tímto problémem zatím nesetkal.

Do tohoto řádku lze uvést i volby. Takže chceme-li mít zapnutý režim nakažení, bude náš první řádek vypadat nějak takto.

#!/usr/bin/perl -T

perlcc

Jak víme už od úvodního dílu, příkaz perlcc vytváří ze zdrojových kódů binární kód. Následující příkaz vytvoří spustitelný soubor a.out.

perlcc program.pl

Pomocí přepínače -o ho lze pojmenovat jinak.

perlcc -o program program.pl

S přepínačem -e lze kompilovat i jednořádkové skripty.

perlcc -e 'print "Hello world\n"' -o program

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ů

28.11.2018 23:56 /František Kučera
Prosincový sraz spolku OpenAlt se koná ve středu 5.12.2018 od 16:00 na adrese Zikova 1903/4, Praha 6. Tentokrát navštívíme organizaci CESNET. Na programu jsou dvě přednášky: Distribuované úložiště Ceph (Michal Strnad) a Plně šifrovaný disk na moderním systému (Ondřej Caletka). Následně se přesuneme do některé z nedalekých restaurací, kde budeme pokračovat v diskusi.
Komentářů: 1

12.11.2018 21:28 /Redakce Linuxsoft.cz
22. listopadu 2018 se koná v Praze na Karlově náměstí již pátý ročník konference s tématem Datová centra pro business, která nabídne odpovědi na aktuální a často řešené otázky: Jaké jsou aktuální trendy v oblasti datových center a jak je optimálně využít pro vlastní prospěch? Jak si zajistit odpovídající služby datových center? Podle jakých kritérií vybírat dodavatele služeb? Jak volit vhodné součásti infrastruktury při budování či rozšiřování vlastního datového centra? Jak efektivně datové centrum spravovat? Jak co nejlépe eliminovat možná rizika? apod. Příznivci LinuxSoftu mohou při registraci uplatnit kód LIN350, který jim přinese zvýhodněné vstupné s 50% slevou.
Přidat komentář

6.11.2018 2:04 /František Kučera
Říjnový pražský sraz spolku OpenAlt se koná v listopadu – již tento čtvrtek – 8. 11. 2018 od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5). Tentokrát bez oficiální přednášky, ale zato s dobrým jídlem a pivem – volná diskuse na téma umění a technologie, IoT, CNC, svobodný software, hardware a další hračky.
Přidat komentář

4.10.2018 21:30 /Ondřej Čečák
LinuxDays 2018 již tento víkend, registrace je otevřená.
Přidat komentář

18.9.2018 23:30 /František Kučera
Zářijový pražský sraz spolku OpenAlt se koná již tento čtvrtek – 20. 9. 2018 od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5). Tentokrát bez oficiální přednášky, ale zato s dobrým jídlem a pivem – volná diskuse na téma IoT, CNC, svobodný software, hardware a další hračky.
Přidat komentář

9.9.2018 14:15 /Redakce Linuxsoft.cz
20.9.2018 proběhne v pražském Kongresovém centru Vavruška konference Mobilní řešení pro business. Návštěvníci si vyslechnou mimo jiné přednášky na témata: Nejdůležitější aktuální trendy v oblasti mobilních technologií, správa a zabezpečení mobilních zařízení ve firmách, jak mobilně přistupovat k informačnímu systému firmy, kdy se vyplatí používat odolná mobilní zařízení nebo jak zabezpečit mobilní komunikaci.
Přidat komentář

12.8.2018 16:58 /František Kučera
Srpnový pražský sraz spolku OpenAlt se koná ve čtvrtek – 16. 8. 2018 od 19:00 v Kavárně Ideál (Sázavská 30, Praha), kde máme rezervovaný salonek. Tentokrát jsou tématem srazu databáze prezentaci svého projektu si pro nás připravil Standa Dzik. Dále bude prostor, abychom probrali nápady na využití IoT a sítě The Things Network, případně další témata.
Přidat komentář

16.7.2018 1:05 /František Kučera
Červencový pražský sraz spolku OpenAlt se koná již tento čtvrtek – 19. 7. 2018 od 18:00 v Kavárně Ideál (Sázavská 30, Praha), kde máme rezervovaný salonek. Tentokrát bude přednáška na téma: automatizační nástroj Ansible, kterou si připravil Martin Vicián.
Přidat komentář

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

> Poslední diskuze

31.7.2023 14:13 / Linda Graham
iPhone Services

30.11.2022 9:32 / Kyle McDermott
Hosting download unavailable

13.12.2018 10:57 / Jan Mareš
Re: zavináč

2.12.2018 23:56 / František Kučera
Sraz

5.10.2018 17:12 / Jakub Kuljovsky
Re: Jaký kurz a software by jste doporučili pro začínajcího kodéra?

Více ...

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