print $y; $y = Con. catena. re; print $y Acest program va afisa: 013 este numar prim 4 nu este numar prim. 10 4 Nu afiseaza variabila $x si linie noua
. Afiseaza 7 si linie noua Linie ce contine 7 si se termina cu salt la linie noua Concatenare Observam ca instructiunea print nu sare la linie noua decat daca se specifica caracterul
intre ghilimele . Aceasta o greseala des intalnita in programele Perl.
Totodata observam operatorul. (punct) care are ca efect concatenarea celor trei siruri de caractere.
Exemple: Comparatiile O greseala des intalinta in programele Perl este confundarea operatorului de atribuire = cu operatorul de comparare numerica ==. Totodata este recomandata folosirea operatorilor eq, ne, lt, gt pentru siruri de caracatere: if ($x eq unu) { print Siruri egale. } Bucle si sistemul I/O in Perl.
Exemplu: Parametrii in linia de comanda si bucle iterative print $#ARGV este indicele ultimului argument din linia de comanda.
# Itereaza de la indicele 0 pana la indicele $#ARGV: # Observam ca, constructia for este similara cu cea din C for ($i = 0; $i perl exemplu. pl Buna Dimineata, Elevi!
2 este indicele ultimului argument din linia de comanda Parametrul 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 I/O print STDOUT Tastati un text: ; while ($input = ) { chop $input; print STDOUT Ati tastat: $input
if ($input eq ) {print STDERR Nu ati tastat nimic!
} print STDOUT Mai tastati ceva sau apasati CTRL - D pentru terminare } print STDOUT Atat a fost. Obs1. Conditia din directiva while 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 while ($input = ) 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 ...
Pentru a descărca acest document,
trebuie să te autentifici in contul tău.