... ARGV iIprint Paramtrul i este ARGViis.tnS O alta varianta a buclei de mai susforeach itemiARGVIprint Cuvantul este item. tnS O varianta similara folosind de data asta variabila implicita Perl sforeach iARGVIprint Spun s . tnSRularea programului va afisa perl exemplu.pl Buna Dimineata, Elevi!2 este indicele ultimului argument din linia de comandaParametrul 0 este Buna.Parametrul 1 este Dimineata,.Parametrul 3 este Elevi!Cuvantul este Buna.Cuvantul este Dimineata,.Cuvantul este Elevi!Spun Buna.Spun Dimineata,.Spun Elevi!.Exemplu Sistemul standard IOprint STDOUT Tastati un text hileinput STDINIchop inputprint STDOUT Ati tastat input tnif input eq Iprint STDERR Nu ati tastat nimic!tnSprint STDOUT Mai tastati ceva sau apasati CTRL - D pentru terminareSprint STDOUT Atat a fost.Obs1. Conditia din directiva hile este o directiva de asignare, asigneaza urmatoarea inregistrare de la intrarea standard, variabilei input. La sfarsit de fisier acesta nu va asigna variabilei input valoarea null, ci o valoare nedefinita, care in acest context este evaulata ca fiind null. Deci lini a hileinput STDIN face trei lucruri citeste o inregistrare, o asigneaza variabilei input si verifica daca input este nedefinita, in acest context ea fiind evaluata la valoarea null. In alte contexte, Perl evauleaza o variabila ca fiind zero sau null. De exemplu daca i nu este definita, atunci i va atribui variabilei i valoare 1. De aici rezulta al treilea paradox Perl Side effects can yield an elegant face or a pain in the rear. Efectele secundare pot conduce la lucruri elegante sau batai de cap.Obs2. Campurile de date sunt in mod implicit delimitate de caracterul tn, care in exemplul de mai sus este inclus ca si ultimul caracter al variabilei input. Functia chop elimina acest ultim caracter din variabila input. In Perl 5 este introdusa o noua functie chomp care elimina ultimele caractere doar daca acestea sunt definite ca delimitatori de inregistrari, prin variabila globala .Exemplu Executarea unui string ca si porgram Perl!usrbinperlforIprint , join, ,iResult, last unless Input STDIN i ! iResult eval Inputif Iprint status, , Sif i Iprint eroare, i, Sif! Iprint nreroare,!0, ,!, SSFunctia eval, evalueaza un sir de caractere interpretand-ul ca un program scris in Perl. i reprezinta mesajul de eroare rezultat din ultimul apel al functiei eval sau do.Rularea programului va afisaperl perls.pl sqrt21.4142Exemplu IO cu fisiere! usrbinperl program pentru inversarea fiecarei linii dintr-un fisier. 1 Obtinerea numelui fisierelor din parametrii transmisi in linia de comandaifARGV ! 1Idie Folosire 0 fisierssursa fisiersdestinatie tnSinfile,outfile iARGVif ! -r infileIdie Nu pot citi fisierul de intrare infile tnS2 Validarea fisierelor Daca prima parte a expresiei in cazul operatorului or este adevarata, Perl nu mai evalueaza si restul continutului. Daca fisierul de intrare sa putut deschide atunci executia programului continua, altfel se evalueaza instructiunea die si executia programului se incheie.openINPUT,infile die Nu pot deschide fisierul infile ! tnif -e outfileIprint STDERR Fisierul outfile exista!tnuntil ans eq i ans eq a ans eq eIprint STDERR Inlocuiesc, Adaugare, or iEsireans getcSTDINSif ans eq e IexitSSif ans eq a Imode Selse Imode SopenOUTPUT,modeoutfile die Nu pot deschide fisierul destinatie!3 Citeste fiecare linie din fisierul sursa, inverseaza linia si o scrie in fisierul destinatiehileINPUTIchop ss reverse sprint OUTPUT s,tnS4 Terminareclose INPUT, OUTPUTexit6OZ -NOisi4CJQsBphBph6Bph6Bph56a5Bpha6CJ 6CJ 57GPivCOQssvxXXZmp23i 8sbcbI,-LNqHKKhisnx7ehi34DRtsuvacqiAbvxx,Hisvx...
Download