Šis vienkāršais skripts importē stingro un brīdinājumu pragmas, kas palīdz uztvert iespējamās kļūdas jūsu kodā. Funkcija print izvada virkni "Sveika, pasaule!" kam seko jaunrindas rakstzīme.

Pamata sintakse

Perl sintakse ir izstrādāta tā, lai tā būtu elastīga un viegli lasāma. Šeit ir daži galvenie jēdzieni, lai sāktu darbu:

Mainīgie

Perl atbalsta trīs veidu mainīgos: skalārus, masīvus un jaucējvārdus.

• Skalāri: skalāri satur atsevišķas vērtības, piemēram, skaitļus vai virknes. Tie ir apzīmēti ar dolāra zīmi ($), kam seko mainīgā nosaukums. Piemēram:
  $skaitlis = 42; $string = "Sveiks, perl!";
• Masīvi: masīvi glabā sakārtotus vērtību sarakstus. Tie ir apzīmēti ar at zīmi (@), kam seko mainīgā nosaukums. Atsevišķiem elementiem var piekļūt, izmantojot to indeksu, sākot no 0. Piemēram:

  @fruits = ("ābols", "banāns", "ķirsis");
  drukāt $augļi[1]; # Izvadi "banāns"
  

• Jaukšana: jaucējkodi glabā nesakārtotas atslēgu un vērtību pāru kolekcijas. Tie ir apzīmēti ar procentu zīmi (%), kam seko mainīgā nosaukums. Vērtībām var piekļūt, izmantojot atbilstošos taustiņus. Piemēram:

  %person = ("vārds" => "Alise", "vecums" => 30);
  drukāt $persona{"vārds"}; # Izvadi "Alise"
  

Vadības struktūras

Perl nodrošina vairākas vadības struktūras, lai kontrolētu programmas plūsmu. Dažas izplatītas ir if, ja vien, for un while.

• Ja/cits:
  $rezultāts = 85; if ($score >= 90) { drukāt "A"; } elsif ($score >= 80) { drukāt "B"; } cits { drukāt "C vai zemāks"; }
• Cilpai:
  @skaitļi = (1..10); foreach $num (@numbers) { drukāt "$num\n"; }
• Kamēr cilpa:
  $skaits = 0; while ($count < 5) { drukāt "$count\n"; $count++; }

Papildu Perl līdzekļi

Kad esat apguvis pamatus, varat sākt izpētīt dažas no Perl uzlabotajām funkcijām.

Regulārās izteiksmes

Perl ir slavena ar savām spēcīgajām regulārās izteiksmes iespējām. Regulāras izteiksmes jeb regex ļauj meklēt un manipulēt ar virknēm, pamatojoties uz modeļiem. Šeit ir daži piemēri:

• Atbilstoši modeļi:
  $string = "Ātrā brūnā lapsa lec pāri slinkajam sunim"; if ($string =~ /lapsa/) { drukāt "Atrasts 'lapsa' virknē!"; }
• Aizvietošana:
  $string = "Sveika, pasaule!"; $string =~ s/world/perl/; drukāt $string; # Izvadi "Sveiks, perl!"
• Kvantifikatori:
  $string = "aaaaaaah"; if ($string =~ /a{6}/) { drukāt "Atrasti seši "a" pēc kārtas!"; }

Moduļi un CPAN

Visaptverošais Perl arhīvu tīkls (CPAN) ir vairāk nekā 350 000 moduļu krātuve, kas paplašina Perl funkcionalitāti. Šo moduļu instalēšana un izmantošana var ietaupīt laiku un pūles, izstrādājot projektus. Lūk, kā instalēt moduli, izmantojot cpan: