Programujeme v PERLu - I

6. 1. 2004 | Jindřich Skupa | Programování | 21842×

Dvoudílný článek vás provede základními principy práce s tímto univerzálním skriptovacím jazykem.

Asi by se slušelo na začátek vysvětlit, co je PERL vlastně zač. Je to skriptovací programovací jazyk, jehož "otcem" je Larry Wall. Původně byl určen pro práci s textem. Evoluce, která na PERL nezapomněla, z něho vytvořila mocný programovací jazyk použitelný téměř na cokoli. Syntaxí je velice podobný Céčku, proto pro Céčkaře nebude problém si tento jazyk velice rychle osvojit. Perl se dá použít na psaní webových aplikací, práci s textem, automatizačních nástrojů pro Linux, psaní síťových nástrojů a podobně. Vzhledem k tomu, že se bavíme o skriptovém jazyku, nebude problém s kompatibilitou aplikací, pokud bude stroj osazen interpretem jazyka.

První program, který se píše ve všech jazycích, je program "hello world".

#!/usr/bin/perl print "Hello world \n"; printf ("Hello world \n");

První řádek říká, jaký intepret se má pro spuštění skriptu použít. Samotný # se používá pro psaní komentářů, vše od tohoto znaku do konce řádky perl ignoruje. Pro výpis se dá použít několik příkazů, buď céčkovský printf nebo prostý print.

Syntaxe:

print [kam] "výpis" ;

Pokud vynecháte [kam], použije se STDOUT.

printf ("text a odkazy na proměnné",seznam proměnných);

Teď jsme schopni něco vypsat, ale vypisovat statické texty je málo, budeme potřebovat nějaké proměnné. Filozofie proměnných je v perlu zcela odlišná například od Céčka. Máme jen tři typy proměnných: skalár, pole a hash. Ani deklarace proměnných není potřeba, prvním použitím se proměnné deklarují samy.

Do skalární proměnné (označuje se $ před názvem) můžeme uložit "libovolně" dlouhý text nebo čísla. Pokud budeme chtít spočítat třeba nákup, tak napíšeme:

#!/usr/bin/perl $cena="15Kč"; $mnozstvi="3kg"; $celkovácena=$cena*$mnozstvi; print "$celkovacena";

Perl se v tomto případě pokouší vše od začátku proměnné až k prvnímu písmenu brát jako číslici a jako s takovou s ní i zachází.

Dalším datovým typem je pole (více skalárních proměnných v jedné, na jednotlivé prvky se odkazujeme indexem), které se jako celek označuje @. Prvky pole se označují $název_pole[5]. Pokud zadáme jako index -1, bude to znamenat poslední prvek. První prvek se skrývá pod indexem 0. Pole lze plnit po jednom prvku nebo následujícím přiřazením:

@pole=(seznam hodnot);

Třetím typem jsou hashe (asociativní seznamy). Volně se dají přirovnat k polím, jen se na jejich prvky místo indexem odkazujeme pomocí jejich názvů. Označují se % před názvem, opět se k jednotlivým prvkům přistupuje přes $NAZEV{'jmeno_prvku'}. Plní se následujícím postupem:

#!/usr/bin/perl %HASH=('FIRST',"prvni",'SECOND',"druhy",'THIRD',"třeti"); #%HASH=('FIRST=>"prvni",'SECOND'=>"druhy",'THIRD'=>"třeti"); - druhý způsob plnění hashe print "$HASH{'FIRST'}\n"; print "$HASH{'SECOND'}\n"; print "$HASH{'THIRD'}\n";

Většinou je třeba přijímat data od uživatele. To můžeme pomocí parametrů při spuštění nebo ze souboru či klávesnice (ta je taky soubor - STDIN) za chodu programu. Uvedu nejprve třetí možnost a postupně se dopracuji k ostatním. Načtení řetězce z klávesnice (i souboru) se provádí prostým přiřazením:

$my_string=<ovladač_souboru>;

- u klávesnice se používá STDIN nebo se ovladač neuvede.

Ze souboru je to stejné, jen je třeba soubor nejprve otevřít. K tomu slouží následující kód:

#!/usr/bin/perl open SOUBOR,"soubor.fil"; @file=<SOUBOR>; print "@file"; close SOUBOR;

Za příkaz open se píše název ovladače souboru (slušňáci ho píší velkými písmeny), po kterém následuje v "" název souboru s právy, se kterými se má otevřít. Následně ho celý uloží do pole, kde každý prvek je jeden řádek souboru. Po použití je třeba soubor zavřít, k tomu slouží příkaz close, jehož parametrem je ovladač souboru.

Režimy otevírání souborů

• soubor - otevře soubor pro čtení
• >soubor - otevře soubor s právy pro zápis, pokud je to nutné, tak ho vytvoří
• >>soubor - přidávání dat na konec existujícího souboru
• +<soubor - otevře soubor s právy pro čtení a zápis
• +>soubor - smaže obsah starého souboru, nebo vytvoří nový s právy pro čtení a zápis

Třetím možným způsobem jak programu předat data, je pomocí jeho argumentů. Ty se uloží do pole s názvem @ARGV. Počet parametů (prvků pole) se získává pomocí příkazu scalar @ARGV.

Na závěr prvního dílu uvedu takový malý seznam funkcí pro práci s poli, hashi a skaláry. V příštím díle nás čekají příkazy cyklů, podmínky, práce se soubory a podobně.

Funkce řetězců

• chomp seznam; - odstraňuje konce řádků ze všech prvků seznamu, vrací počet odstraněných znaků
• chop seznam; - odebere poslední znak ze všech prvků, vrací jejich počet
• lc výraz; - vrací výraz s malými písmeny
• lcfirst výraz; - vrací výraz, s prvním malým písmenem
• length výraz; - vrací délku výrazu v bajtech.
• uc výraz; - vrací výraz s velkými písmeny
• ucfirst výraz; - vrací výraz, s prvním velkým písmenem
• crypt řetězec, základ; - zakóduje řetězec pomocí základu

Funkce polí a hashů

• delete $hash{'jméno_prvku'}; - smaže zadanou hodnotu z hashe
• exists výraz; - kontroluje, jestli se prvek nachází v hashi
• keys %hash; - v seznamovém kontextu vrací seznam prvků hashe, ve skalárním jejich počet
• values %hash; - vrací seznam všech hodnot hashe
• scalar @pole; - vrací počet prvků pole
• split [vzorek[,výraz[,limit]]]; - rozdělí výraz podle zadaného vzorku, pokud je zadán limit, dělí ho na na tento maximální počet polí

       

Komentáře

[b0rmann]

Spatne.
Dve chyby v popisu syntaxe tak primitivni funkce jako print je nejak moc.
Filehandler od pole (ne skalaru!) carkou se neotdeluje.

(duveruhodny zdroj: perldoc -f print)

[Lukáš Zapletal]

To se snad nemusi dokazovat to je jasne, ze to nefunguje s carkou :) Typicka chyba zacatecnika :)))

[Kraus]

Jen když to někdo zkušený dovede takto pěkně odhalit.

[David Olszyński]

Takovych clanku uz bylo hodne. Mnohe dokonce i v cestine a mnohe i lepsi nez print [kam] "výpis" ;

[honza]

Citim z vaseho prispevku volani po kvalite a ne po kvantite a svobode? Mily zlaty, to jste asi ve spatnem filmu. Seznamte se prosim ze zakladnimi dily pana Stallmana. V jeho filosofii se nikde nehovori o kvalite. Nebo clanky ceskych free-apostolu napr. pan Hanke (viz zive). My o free HOVORIME. Vzpamatujte se proboha.

[Skupa Jindra]

Psal jsem to pro zacatecniky tak aby to dobre pochopili. Pokud jsi "starej perlar" tak si myslim ze nemas ani potrebu cist tenhle clanek. Pokud jsi neznaly veci tak ti to takhle staci a myslim si ze v tom clanku bylo mnohem vic informaci nez jak se vypisuje.

[cartman]

Dobry serial o perli najdete na paranoity.sk

[mj]

taky na LinuxZone a koukněte taky na PerlWiki

[Lumír Vonásek]

Velice díky, teprve tento článek mě zavedl na cestu k perlu. Polopatickým způsobem vysvětlené problémy, které nám, méně počítačově zdatným jedincům dodává sílu k dalšímu boji s PC. Takže z kritiky si nic nedělej kingu a jen tak dál!

[unchallenger]

teprve tento článek mě zavedl na cestu k perlu

Tak to možná neměl vůbec vyjít... hlavní sílou Perlu je, že spoustu věcí nemusíš psát a on interpret odhadne, cos asi tak mohl chtít ... což je zároveň jeden z jeho největších problémů a důvod, proč by v něm neměl psát možná nikdo, ale zejména ne začátečníci. Svádí to k nesrozumitelnému a nevyzpytatelně se chovajícímu kódu (malinkou ukázkou je i uvedený výpočet ceny nákupu, kde se spoléhá na to, že se při aritmetické operaci provede konverze na číslo, čímž se zahodí jednotky -- Američanovi, který napíše $15, by to z ničeho nic nefungovalo...).

[Honza]

No ten priklad s vypocetem ceny nefunguje ani tak. Je tam totiz definovana promenna $celkovácena a print se odkazuje na promennou $celkovacena. Navic s tou carkou nad a me to hodi chybu Unrecognized character \xE1 at ./pokus.pl line 4. No proste dukaz toho, ze Perl opravdu neni jazyk pro zacatecniky. Jinak zacatecnikum a mozna i prokrocilym doporucuji dat do kodu use strict a takove chyby vas to proste nedovoli udelat. Myslim si, ze pro zacatecniky je vhodny takovy jazyk, ktery nuti k psani prehledneho kodu a to Perl rozhodne neni.

[social]

program s nakupem v dobe psani fungoval, mozna doslo k chybe pri korekci nebo pri mych upravach, co se tyce chyb v printf, tak ty tam taky nemeli byt (nevim kde se stala chyba :( Opravdu se za ne omlouvam, ruzne zmeny jsem v tom clanku delal asi petkrat tak jsem je tam asi omylem vytvoril pri "dolazovani", to udelam obycejne nejvetsi neplechu. Omlouvam se pokud jsem nekoho spletl

[MarSik]

Kdyz ony vsechny skriptovaci jazyky (lepe receno vsechny rozsirene) kaslou na typy promennych ;( proste si je vytvori jak se jim to hodi (dobre i jak se jim to rekne, jenze si pak prevadeji typy jak se jim to hodi a obcas to celkem vadi) Neznate nejakej skriptovaci (nechci javu) jazyk, ktery by byl rozumne rychly, pouzitelny a umoznil mi deklarovat typy promennych, ale pritom se tak nejak prijemne misto me staral o pamet? ;) - jo pokud by si umel povidat s mysql vubec bych nebyl proti

[Honza]

Perl nebo Python nejsou spatny. Jen je potreba nektery veci ohlidat. Jak jsem jiz psal, podle me to nejsou jazyky pro zacatecniky. Kdyz clovek vi co dela, tak nektere veci praci usnadni.

[Martin Kysela]

Perl pro zacatecniky skutecne neni. Ale hazet ho do jednoho pytle s Pythonem je blbost. Python ma velmi cistou a dobre navrzenou syntaxi, ktera zacatecnikum vyhovovat bude a hodne je programovani v tomto jazyku nauci.

// Martin Kysela

[Honza]

Ja bych zase dal prednost Perlu. Ono totiz dost zalezi na pouziti. Pokud bude budouci uzivatel chtit "pouze" napsat par skriptu, ktere mu budou zpracovavat textove soubory, tak neni podle me nutne se ucit Python, protoze s nim se musi naucit i zakladnim principum OOP a to uz je lepsi se zacit ucit Javu nebo C++. Uplne jsem zapomnel na nize zminovanou knihu "Perl pro zelenace", podle ktere se muze Perl naucit i zacatecnik.

[Martin Kysela]

Perl skutecne pro zacinajici programatory neni nejlepsi, protoze si zvyknou na znacnou benevolenci a volnost, ktera se jim v jinych jazycich nevyplati.

ad OOP - Jen tak mimochodem, Perl byl jeden z prvnich jazyku, ktery mel OOP implementovane.

ad knizka - Ano, take doporucuji. I kdyz osobne davam prednost "Learning Perl" (vysla i v CJ, ale bohuzel uz se neda sehnat ().

// Martin Kysela

[Honza]

Zalezi na oblasti, kterou se budouci programator bude zabyvat. Nekdy muze byt lepsi zacit se ucit rovnou C nebo treba i assembler pro nejaky uC nebo DSP processor. Prechod na vyssi uroven abstrakce je rozhodne jednodussi nez naopak. Ja chapu Perl jako zastresujici nastroj, ktery nahrazuje cat,awk,sed, grep atd.. Pouzivam ho "jen" jako jazyk pro psani scriptu a ne programu.

[Martin Kysela]

Osobne si myslim, ze pro zacatecnika je vhodnou volbou Python. Mno jo, no... Perl je mnohem vic, nez jen zastresujici nastroj pro zminene programy nebo jazyk pro psani skriptu. A proto ho mam rad.

// Martin Kysela

[Honza]

To ja vim, ze Perl ma na vic. Ja ho pouzivam jen jako "uzivatel". V dnesni dobe je takove mnozstvi aplikaci, ze je opravdu staci vhodne pospojovat pomoci skriptu. Na to me nekdy staci i Bash.

[Jan Matuska]

Podle meho nazoru je lepsi pro zacatecnika obetovat par korunek a poridit si knihu pana Satrapy "Perl pro zelenace". Diky ni jsem pred mesicem pronikl do PERLu a tak mi nedela pochopit prvni cast tohoto clanku, ktery ma v podtitulu "Dvoudílný článek vás provede základními principy práce s tímto univerzálním skriptovacím jazykem" Ovšem co ostatní, kteri vidi PERL poprve? Preji pekny zbytek dne.

[Jux]

Je to malicko OT, ale neni na skriptovani dostatecny bash a na programy lepsi C, prip.C++?

[derhaa]

Chyba v linku na druhy dil - Programujeme v PERLu - II

[Knahaka]

$ ./scalarargvIV.pl 1 2 3 4 5 6 7 8
8, 8
User@acer-6e40e97492 ~
$ cat scalarargvIV.pl
#!/usr/bin/perl
$i = scalar @ARGV;
$ii = @ARGV;
print "$i, $ii";
User@acer-6e40e97492 ~
$ ./scalarargvV.pl 1 2 3 4 5 6 7 8
8 1 2 3 4 5 6 7 8
User@acer-6e40e97492 ~
$ cat scalarargvV.pl
#!/usr/bin/perl
$i = scalar @ARGV;
$ii = @ARGV;
print "$i @ARGV";
User@acer-6e40e97492 ~
---------------------------------------------------------
$ perl -version
This is perl, v5.10.1 (*) built for i686-cygwin-thread-multi-64int (with 13 registered patches, see perl -V for more detail) Copyright 1987-2009, Larry Wall Perl may be copied only under the terms of either the Artistic License or the GNU General Public License, which may be found in the Perl 5 source kit. Complete documentation for Perl, including FAQ lists, should be found on this system using "man perl" or "perldoc perl". If you have access to the Internet, point your browser at http://www.perl.org/, the Perl Home Page. ---------------------------------------------------------
$ perl -V Summary of my perl5 (revision 5 version 10 subversion 1) configuration: Platform: osname=cygwin, osvers=1.7.5(0.22553), archname=i686-cygwin-thread-multi-64in t uname='cygwin_nt-5.1 reini 1.7.5(0.22553) 2010-04-12 19:07 i686 cygwin ' config_args='-de -Dlibperl=cygperl5_10.dll -Dcc=gcc-4 -Dld=g++-4 -Dmksymlink s -Dusethreads -Dmad=y -Doptimize=-O3 -Accflags=-g3' hint=recommended, useposix=true, d_sigaction=define useithreads=define, usemultiplicity=define useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef use64bitint=define, use64bitall=undef, uselongdouble=undef usemymalloc=y, bincompat5005=undef Compiler: cc='gcc-4', ccflags ='-DPERL_USE_SAFE_PUTENV -U__STRICT_ANSI__ -g3 -fno-stri ct-aliasing -pipe -fstack-protector -I/usr/local/include', optimize='-O3', cppflags='-DPERL_USE_SAFE_PUTENV -U__STRICT_ANSI__ -g3 -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include' ccversion='', gccversion='4.3.4 20090804 (release) 1', gccosandvers='' intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=12345678 d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12 ivtype='long long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t', lsee ksize=8 alignbytes=8, prototype=define Linker and Libraries: ld='g++-4', ldflags =' -Wl,--enable-auto-import -Wl,--export-all-symbols -Wl ,--stack,8388608 -Wl,--enable-auto-image-base -fstack-protector -L/usr/local/lib ' libpth=/usr/local/lib /usr/lib /lib libs=-lgdbm -ldb -ldl -lcrypt -lgdbm_compat perllibs=-ldl -lcrypt libc=/usr/lib/libc.a, so=dll, useshrplib=true, libperl=cygperl5_10.dll gnulibc_version='' Dynamic Linking: dlsrc=dl_dlopen.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' ' cccdlflags=' ', lddlflags=' --shared -Wl,--enable-auto-import -Wl,--export- all-symbols -Wl,--stack,8388608 -Wl,--enable-auto-image-base -L/usr/local/lib -f stack-protector' Characteristics of this binary (from libperl): Compile-time options: MULTIPLICITY MYMALLOC PERL_DONT_CREATE_GVSV PERL_IMPLICIT_CONTEXT PERL_MAD PERL_USE_SAFE_PUTENV USE_64_BIT_INT USE_ITHREADS USE_LARGE_FILES USE_PERLIO USE_REENTRANT_API Locally applied patches: CYG11 no-bs CYG12 no archlib in otherlibdirs CYG14 Dynaloader CYG15 static-Win32CORE CYG17 utf8-paths CYG21 LibList-Kid.patch CYG22 cygwin-1.7 hints CYG23 544-stat CYG24 build man pages CYG25 rebase_privlib Module-Build-0.36_13 Bug#55162 CYG18 File::Spec::case_tolerant performance disable ExtUtils::MakeMaker::Coverage in Sys-Syslog Built under cygwin Compiled at Aug 28 2010 20:17:29 %ENV: CYGWIN="" @INC: /usr/lib/perl5/5.10/i686-cygwin /usr/lib/perl5/5.10 /usr/lib/perl5/site_perl/5.10/i686-cygwin /usr/lib/perl5/site_perl/5.10 /usr/lib/perl5/vendor_perl/5.10/i686-cygwin /usr/lib/perl5/vendor_perl/5.10 /usr/lib/perl5/vendor_perl/5.10 /usr/lib/perl5/site_perl/5.8 /usr/lib/perl5/vendor_perl/5.8 . ---------------------------------------------------------
Vite nekdo duvod?

[Knahaka]

Omlouvam se - duvod je (pravdepodobne) ten, ze pole se dava do skalaru.