...n Randall L. Schartz, Programming Perl, 2nd Edition September 1996, 670 pages, OReilly and Associates, Inc., ISBN 1-56592-149-6, 39.95. The Camel Book. 3. Utilizatori Perl.Doua categorii de programatori indragesc Perl. Administratori de sistem, deoarece imbina foarte elegant comenzi sistem pentru manipularea datelor si proceselor, si are facilitati de cautare care usureaza cautarile si afisarea de informatie intr-un sistem. Dezvoltatorii de aplicatii eb pe servere unix, deoarece este mai usor de invatat decat C si ofera mai multe functii decat acesta, respectiv pentru validarea datelor si gestionarea de baze de date simple.Codul Perl din acest document ruleaza sub Perl 4.036 ultima versiune din seria 4 cat si sub Perl 5.0. Perl 5.0 adauga facilitati pentru programarea orientata obiect.4. Stilul de programare Perl.Multe programe utile scrise in Perl sunt scurte. Sa presupunem ca vrem sa schimbam acelasi text in mai multe fisiere. In loc sa editam toate fisierele sau sa construim niste comenzi criptice in find, ak, sau sed , putem scrie o simpla comandaperl -e srosunegrugi -p -i.bak .htmlAcesta comanda, tastata la un promp Unix, executa programul Perl scris intre ghilimele. Acest program executa o singura operatiune inlocuieste cuvantul rosu cu cuvantul negru , global, intr-un mod case-insensitive. Restul liniei de comenzi specifica, ca rularea sa se faca pentru fiecare fisier cu extensia .html din directorul curent, iar daca vre-un fisier trebuie modificat test.html atunci se va crea o copie de siguranta cu extensia .bak test.html.bak.Pentru cei acomodati cu stilul de programare C sau Pascal, programul de mai sus poate fi expandat in forma urmatoare astfel incat sa urmareasca stilul de programare din cele doua limbaje de mai sus Pascal si C!usrlocalbinperl - File schimb Program Perl pentru substituirea cuvantului rosu cu cuvantul negru in toate specificate in linia de comandavechi rosunou negrunrschimbari 0 Separatorul de inregistrari in fisierele de intrare este definit de variabila globala Perl .Poate fi orice sir de caractere. In mod normal este tn . Aici il specificam ca fiind ca fiind null, deci intreg fisierul va fi citit ca un singur campundef Presupunand ca programul a fost apelat cu parametrii schimb 1.html, 2.html, 3.html, atunci lista iARGV va contine 3 elemente 1.html, 2.html, 3.html Acestia pot fi accesati prin ARGVi0s, ARGVi1s, ARGVi2sforeach fileiARGVIif ! openINPUT,fileIprint STDERR Nu pot deschide fisierul bakfile tnnextS Citesc fisierul de intrare ca si un singur camp de inregistraredata INPUTclose INPUTif data svechinougiIbakfile file.bak Iesire daca nu pot salva fisierul de siguranta sau nu pot deschide fisierul destinatieif ! renamefile, bakfileIdie Nu pot redenumi file !Sif ! openOUTPUT,fileIdie Nu pot deschide fisierul destinatie file tnSprint OUTPUT dataclose OUTPUTprint STDERR file inlocuit tnnrschimbariSelse I print STDERR file nu a fost schimbattn SSprint STDERR nrschimbari fisiere inlocuite. tnexit0Observam din programul de mai sus ca anumite elemente se aseamana cu limbajul C. De exemplu linia in linia !openINPUT,... semnul ! este operatorul boolean de negare si se foloseste identic ca si in C, orice valoare pozitiva este adevarata, iar orice valoare pozitiva cu ! in fata este fals, iar 0 cu ! in fata este adevarat. Totodata observam ca si constructia if...else este similara cu ceea din C.In linia nrschimbari observam ca incrementarea unei variabile se face analog ca in C. Filozofia Perl este There is more than one ay, exista mai multe modalitati. Din acesta nobila libertate de exprimare rezulta prima din cele patru paradoxuri Perl Programele Perl sunt usor de scris dar nu intotdeauna usor de citit. Pentru exemplificare, urmatoarele linii de cod Perl sunt echivalente.if x 0 Iy 10S else Iy 20Sy x 0 10 20y 20 y 10 if x 0unless x 0 Iy 0S else Iy 10Sif x Iy 20S else Iy 10Sy 10,20 ix ! 10sObservam ca liniile 1, 2 si 5 sunt similare ca si sintaxa cu limbajul C. In multe aspecte Perl este similar cu C, dupa cum vom vedea si in cele ce urmeaza.5. Stocarea si rularea programelor Perl.Exemplul Hello orld. Continutul fisierului hello este !usrlocalbinperl -if ARGV 0 Iho join , iARGV Selse Iho orld Sprint Hello, ho! tnPresupunem ca programul de mai sus este stocat in fisierul Unix binhello. Programul poate fi rulat cu una din comenzileperl binhelloperl binhello oameniperl hello daca ne aflam in directorul bin.Pentru executarea acestui program ca si o comanda, trebuie parcursi urmatorii pasi Prima linie din program trebuie sa contina dupa ! calea spre comanda perl, asa cum s-a aratat si in exemplul de mai sus. Totodata in aceasta linie se pot specifica si optiuni de comanda, de exemplu - arnings - avertismente.Pentru a permite citirea si executarea fisierului de catre toti utilizatorii trebuie introdusa comanda Unixchmod arx binhelloSe editeaza fisierul .cshrc sau .login pentru a aduga directorul bin in calea de cautare a fisierelor executabile. In aceste fisiere se adauga o linie in genulset path path binDupa acestea, programul se poate lansa in executie tastand hello.6. Elemente PerlStructurile de date in Perl. Scalari pot valori numerice sau caractere, determinate de contextul in care apar.Exemple123 12.4 5E-10 0xff valoare hexazecimala 0377valoare octala Eu sunt nume si sunt in anul tn 2Ce mai faci Inlocuirea valorilor x si tn in t ghilimele.adatea uptime -uax listai5s tabelakeyGhilimelele simple permit doar inlocuirea in textul cuprins intre ele a semnelor tt si t. Ghilimelele duble permit inlocuirea in textul cuprins intre ele si a variabilelor gen nume si a caracterelor de control gen tn linie noua. Ghilimelele intoarse a a permit toate inlocuirile de mai sus , dupa care incearca sa execute sirul rezultat ca si o comanda sistem si intorc textul afisat de sistem ca urmare a executiei comezi reprezentate de sirul de caractere.Sirurile de scalari numite si liste reprezinta scalari aranjati secvential.ExempleLuni, Marti, Miercuri, Joi, Vineri, Sambata, Duminica1,2,3,4,5,6,7,8,9 echivalent cu 1..91,2,3,4,5,6,7 i2,4s echivalent cu 3,4,5iListaSirurile asociative, ajuta la retinerea anumitor lucruri des folositeExempleZileInLunaIanuarie 31 StudentMuresan Robert 1NumeStudentI28602S Muresan RobertNotaNrStudent, NrExamen 10listasintreagaPerl 5 permite permite combinarea celor mai de sus, cum ar fi liste de liste sau siruri asociative de liste.Conventii de notare in Perl.Numele variabilelor scalare incepe cu , chiar si atunci cand ne referim la un element dintr-o lista. Numele variabilelor care reprezinta liste incepe cu i, iar numele unei variabile care se refera la o lista asociativa incepe cu .Listele sunt indexate cu paranteze patrate is si contin inchis intre ele un indice, indexarea incepand cu i0s ca si in C. In Perl 5 indicii negativi inseamna indexare de la capatul listei.De exemplu Zilei5s este al saselea element al element al listei iZile siLuni,Marti,Miercurii1s este egal cu MartiListele asoci...
Download