Programujeme v PERLu - II

13. 1. 2004 | Jindřich Skupa | Programování | 11426×

Je tu další díl, ve kterém si ukážeme cykly, podmínky, hledání, nahrazování a další šikovné funkce.

Začneme tedy cykly, jako první uvedu cyklus for. For je cyklus řízený indexem pro předem známý počet provedení. Jeho syntaxe je zřejmá z následující ukázky a popisu :

for ($i=1;$i<=10;$i++) {     print "$i \n"; }

Syntaxe: for ([výraz];[výraz];[výraz]) blok_příkazů;

(to, co je v hranatých závorkách, je nepovinné)

blok_příkazů = obsah složených závorek, skupina příkazů

Prvním parametrem je příkaz(výraz), který se provede jen jednou (většinou se používá pro nastavení počáteční hodnoty), následuje podmínka, která určuje počet opakování. A posledním parametrem je příkaz, který se vykoná při každem průbehu cyklu. Pokud neznáte Céčko, tak si asi kladete otázku, co dělá $i++;. Céčko zjednodušuje přiřazování - v PERLu je to stejné, viz tabulku.

zápis	je ekvivalentem
$i++;	$i=$i+1;
$i--;	$i=$i-1;
$i+=10;	$i=$i+10;
$i-=10;	$i=$i-10;
$i=$i**3;	$i=$i*$i*$i;

(mocnina funkce, za ** se dává mocnitel)

Dalším cyklem je while, to je cyklus s podmínkou na začátku, tento cyklus se opakuje, dokud je podmínka pravdivá.

$i=-1; while ($i!=0) {    $i=<STDIN>; }

Syntaxe: while (výraz) blok_příkazů [continue blok_příkazů2]

Tento cyklus bude probíhat, dokud nezadáte z klávesnice nulu. K cyklu while v PERLu existuje i jeho obrácený kamarád, který naopak probíhá, pokud není podmínka pravdivá:

$i=-1; until ($i==0) {    $i=<STDIN>; }

Syntaxe: until (výraz) blok_příkazů [continue blok_příkazů2]

Pro tvoření podmínek jsou nezbytné operátory, níže je krátký přehled.

Operátory

numerické

• <, > - menší než, větší než
• <=, >= - menší rovno, větší rovno
• ==, != - rovno, nerovno

řetězcové (porovnání)

• lt, gt - delší než, kratší než
• le, ge - delší nebo shodné, kratší nebo shodné
• eq, ne - shodné, neshodné

řetězcové (další)

• . - složení řetězců
• x - opakování řetězců

• & - bitové AND
• | - bitové OR
• && - logické AND
• || - logické OR

Operátory použijeme i u podmíněného příkazu if a jeho opačného kamaráda unless:

if ($i<10) {    print "$i je mensí než deset"; } elsif ($i==10) {     print "$i je rovno deseti"; } else {     print "$i je vetší než deset"; }

Syntaxe: if (výraz) blok_příkazů1 [[eslif (výraz) blok_příkazů2] else blok_příkazů3]

Pokud je splněna podmínka (výraz je pravdivý), pak se vykoná blok_příkazů1. Pokud nebyla podmínka splněna, vyhodnotí se další výraz. Když byl pravdivý, provede se blok_příkazů2, v případě, že ani jedna podmínka nebyla pravdivá, vykoná se blok_příkazů3.

Unless pracuje podobně, jen postrádá část elsif a výraz vyhodnocuje opačně.

Funkce pro hledání a nahrazování

$retezec =~ s /vzorek/nový_text/ [i][m][s]

Prohledá $retezec na shodu se vzorek (může být i regulární výraz), pokud něco nalezne, nahradí to nový_text. Pokud přidáte i, znamená to, že nezáleží na velikosti písmen, m bere $retezec jako více řádků, s jako jeden. Pokud nic nenahradil, tak vrací 0 - nepravda.

$retezec =~ /vzorek/ [g][i][m][s]

Hledá v $retezec zadaný vzorek (regulární výraz). Pokud použijete g, může se shoda použít jako interátor ve skalárním kontextu. V seznamovém kontextu vrací seznam skládající se z podvýrazů vyhovujících podle závorek ve vzorku.

$retezec =~ tr /prohledávaný seznam/nahrazovací seznam/ [c][d]

Nahrazuje všechny znaky prohledávaného seznamu na znaky z nahrazovacího seznamu. Volitelné modifikátory: c doplňuje prohledávaný seznam, d maže všechny znaky, které k sobě nemají ekvivalent v nahrazovacím seznamu.

Matematické funkce

• abs výraz; - vrací absolutní hodnotu výrazu
• atan2 y,x; - vrací arctangens y/x v rozsahu od -pi do pi
• cos výraz; - vrací kosinus výrazu (zadávaného v radiánech)
• exp výraz; - vrací e umocněné na výraz
• int výraz; - vrací celočíselnou část výrazu
• log výraz; - vrací přirozený logaritmus (základ = e) výrazu
• rand [výraz]; - vrací náhodné desetinné číslo z intervalu <0;výraz), pokud není výraz zadán, nahradí ho 1
• sin výraz; - vrací kosinus výrazu (zadávaného v radiánech)
• sqrt výraz; - vrací druhou odmocninu výrazu
• srand výraz; - nastavuje výchozí hodnotu pro rand
• time; - vrací UNIXový čas, počet sekund od 1.1.1970 8:8

Konverzní funkce

• chr výraz; - vrací znak o ASCII hodnotě výrazu
• gmtime výraz; - konvertuje unixový čas na "lidský"; ve skalární souvislosti vrací čas v plném tvaru (den v týdnu, měsíc, den v měsíci, čas, rok), v seznamovém kontextu vrací tyto hodnoty rozložené (vteřina, minuta, hodina, den, msíc, rok, den v týdnu, den v roce, letní čas), měsíce začínají 0 - leden a dny v týdnu 0 - neděle
• hex výraz; - převádí hexadecimální výraz na desítkovou hodnotu

Podprogramy a moduly

Pokud máme rozsáhlý kód, kde se některá část vícekrát opakuje čí je program mírně nepřehledný, tak použijeme podprogram (vlastní funkce).

Ten se tvoří příkazem sub:

sub název, [(prototyp)] blok_příkazů

Sub se píše na začátek programu. Pokud není zadán blok příkazů, bude se jednat jen o dopřednou deklaraci, kterou budeme muset níže popsat (doplnit). Parametry podprogramu se předávají ve speciálním poli @_. Pro definici požadovaných parametrů lze použít definici pomocí prototypu.

return [výraz]

ukončuje podprogram s výrazem jako návratovou hodnotou.

Podprogamy se následně volají dvěma možnými postupy. Buď název_podprogramu nebo &název_podprogramu.

Moduly (balíčky tvořené vámi nebo někým jiným) se do programu natahují příkazem use na začátku skriptu:

use jméno_modulu [[verze]seznam]

To je tak ze základů vše potřebné, ale plánuji článek o CGI v PERLu.

       

Komentáře

[Tomas]

Tenhle clenek mi prijde dost zvlastni, ... proc bylo nahodne vybrano zrovna techno nekolik operatoru ?? a je detailne popsany co znamena napr. $x++ (ktery zna vetsina lidi z ostatnich jazyku)... ale o operatorech specifickych pro perl ani zminka: resp. o nekterych ano: operatory x a ** ale napr. <=> cmp tu nevidim ... myslim ze lepsi by bylo uvest nejaky rozumnejsi prehled operatoru a ne vybirat jen nekolik (napr. casteji pouzivanych - i kdyz nevim, ze bych nekdy pouzil umocnovani, zato porovnavani pouzivam kazdou chvili pri nejakym specialnim trideni pole apod) a myslim ze vetsinu lidi kdyz kouka po nejakem prog. jazyku, ktery se nauci, tak je zajima prave to co je jine/lepsi ... T.

[Hynek (Pichi) Vychodil]

Přesně tak. Co je to třeba =~? V článku to spadne z čistého nebe.

[Roman Vasicek]

Proc u cyklu for neuvedete take variantu se seznamem?

  for (@seznam) { prikazy }

Osobne daleko casteji pouzivam tuto konstrukci namisto te v clanku uvedene. Napriklad pro zpracovani vsech polozek hashe

  for (keys %nejaky_hash) {
    zpracuj_aktualni_klic
  }

[social]

omlouvám se za neúplnost, neuvědomil jsem si praktičnost této konstrukce (lze to napsat složiteji, funguje to taky).

[tyctor]

podla mna tento clanok autor jednoducho odflakol. hlavne ten zaver clanku mi pripada akoby sa ho uz nemohol dockat. od druheho dielu som cakal viac.

[Martin Kysela]

I snaha se ceni... Osobne doufam a verim, ze se autor nenecha odradit a bude zde uvedene komentare brat jako podnet k dalsimu zlepsovani. Verim, ze pristi casti serialu budou o neco propracovanejsi.

// Martin Kysela

[social]

Uznavam ze tento clanek se mi podle reakci moc nepovedl. Jinak jsem se docela snazil, asi se mi bohuzel nepodarilo odhadnout naroky ctenaru.

[venca]

Nejak jsem nepochopil, co dela ten tr (kterymi znaky nahrazuje). A co dela continue u cyklu while a until take neni popsano.

[Roman Vasicek]

tr/src_list/dst_list/ nahrazuje jednotlive znaky ze src_list odpovidajicimi znaky z dst_list - prvni prvnim, druhy druhym, atd.

[ldx]

Namisto continue se pouziva next - pokracovat novym cyklem od zacatku, redo - pokracovat znovu aktualnim cyklem, last - ukoncit cyklus (obdoba break), continue - rozdeli cyklus na casti, ktere se zvlast vykonaji pri redo a next. Jinak pro kompletni manual k perlu (seznam funkci, knihoven atd.) viz http://perldoc.perl.org/....