Įvadas į PERL

PERL - tai trumpinys sekančių žodžių: Practical Extraction and Report Language (Praktinė informacijos išgavimo ir ataskaitų kalba) arba kaip pats kalbos autorius Larry Wall sako, tai gali būti traktuojama ir taip: Patalogically Eclectic Rubish Lister. PERL kalba padeda UNIX vartotojams atlikti bendros paskirties užduotis mažesnėmis pastangomis, nei naudojant C, awk ar rašant shell script'us, tačiau būtent šių programavimo kalbų savybės sudaro PERL pagrindą. Tai interpretacinė kalba, optimizuota operacijoms su eilutėmis, I/O procedūrų bei sisteminių užduočių atlikimui. PERL sintaksė sudaro Bourne shell, csh, awk, sed, grep, and C elementai.
PERL kalba plačiai naudojama UNIX operacinių sistemų administravime, CGI programų kūrime, duomenų integravimui į įvairias sistemas ir t.t.

PERL yra platinama su GNU licenzija, kuri sako, kad "Jūs galite platinti PERL binarinius kodus tik tuomet, jei kartu nemokamai yra pateikiamai ir išeities kodai. Atlikti PERL pakeitimai, turi būti taip pat nemokamai platinami." Taigi iš esmės PERL platinama nemokamai ir be jokių apribojimų vartotojui. Šiuo metu galima atsiųsti stabiliai veikiančią PERL versiją 5.8 (palaiko Unicode), taip pat jau pristatoma ir 6.0 versija.

Operacinės sistemos, palaikančios PERL :

UNIX

Microsoft Windows

MacOS

MS-DOS

OS/2

Pirmoji PERL programa

PERL programa yra paleidžiama interpretatoriaus režime panašiai kaip shell script'as arba kompliuojamas ir gaunamas vykdomasis failas. PERL programos failų vardai paprastai turi pėtinius .pl, .p arba .bat. Paleidžiant programą interpretatoriaus rėžime komandinėje eilutėje surinkite:

$ perl programos_pavadinimas

arba suteikus programos failui vykdymo teises (chmod +x programos_pavadinimas), jį surinkite komandinėje eilutėje ir paleiskite vykdyti:

$ ./programos_pavadinimas

Jei jūsų programai reikalingas argumentų sąrašas, tuomet programos paleidimas būtų:

$ ./programos_pavadinimas argumentų sarašas

Pavyzdžiai

PERL programa, išvedanti į standartinį išvedimo įrenginį (paprastai tai monitorius) pranešimą "Pirmoji PERL programa!":

#!/usr/bin/perl -w
print ("Pirmoji PERL programa!",\n");

Pirmoji eilutė pasako, jog tai PERL programa. Raktą -w rekomenduotina naudoti, nes jis išveda papildomus perspėjimus kompiliuojant programą. Tai naudinga, siekiant ištaisyti visas klaidas. Antroji eilutė išveda pranešimą į ekraną.

Antroji programa, nuskaito jūsų vardą, įvestą klaviatūra, bei į ekraną išveda pasveikinimą.

#!/usr/bin/perl -w
print "Koks tavo vardas? ";
$name = <STDIN>;
chomp ($name);
print "Sveikas, $name!\n";

Toliau įveskime sąlygos sakinius.

#!/usr/bin/perl
print "Koks tavo vardas? ";
$name = <STDIN>;
chomp ($name);
if ($name eq "Jonas") {
    print "Sveikas, ${name}! Kaip sekasi?\n";
} else {
    print "Sveikas, $name!\n";   # paprastas pasisveikinimas
}

Na o dabar pridėkime ciklą.

#!/usr/bin/perl -w
$secretword = "perl"; 
print "Koks tavo vardas?";
$name = <STDIN>;
chomp $name;
if ($name eq "Jonas") {
    print "Sveikas, ${name}! Kaip sekasi?\n";
} else {
    print "Sveikas, $name!\n";
    print "Ivesk slaptazodi... ";
    $guess = <STDIN>;
    chomp ($guess);
    while ($guess ne $secretword) {
        print "Slaptazodis neteisingas, prasau pakartoti spejima... ";
        $guess = <STDIN>;
        chomp ($guess);
  }
}

Iš pateiktų pavyzdžių tikriausiai matote, kad PERL programos sintaksė labai primena C, o naudojami operatoriai C, Bourne shell, awk.

Į turinį