Ta preprost skript uvozi pragmi strict in warnings, ki pomagajo odkriti morebitne napake v vaši kodi. Funkcija print izpiše niz "Hello, World!" ki mu sledi znak za novo vrstico.

Osnovna sintaksa

Perlova sintaksa je zasnovana tako, da je prilagodljiva in lahko berljiva. Tukaj je nekaj ključnih konceptov za začetek:

Spremenljivke

Perl podpira tri vrste spremenljivk: skalare, nize in zgoščene vrednosti.

• Skalarji: Skalarji vsebujejo posamezne vrednosti, kot so števila ali nizi. Označeni so z znakom za dolar ($), ki mu sledi ime spremenljivke. Na primer:

  $število = 42;
  $string = "Pozdravljen, perl!";
  

• Matrike: Matrike shranjujejo urejene sezname vrednosti. Označeni so z znakom at (@), ki mu sledi ime spremenljivke. Do posameznih elementov lahko dostopate z njihovim indeksom, začenši z 0. Na primer:

  @fruits = ("jabolko", "banana", "češnja");
  natisni $fruits[1]; # Izhodi "banana"
  

• Zgoščene vrednosti: Zgoščene vrednosti shranjujejo neurejene zbirke parov ključ-vrednost. Označeni so z znakom za odstotek (%), ki mu sledi ime spremenljivke. Do vrednosti lahko dostopate z ustreznimi ključi. Na primer:

  %person = ("name" => "Alice", "age" => 30);
  natisni $person{"ime"}; # Izhodi "Alice"
  

Kontrolne strukture

Perl ponuja več nadzornih struktur za nadzor poteka vašega programa. Nekateri pogosti vključujejo if, unless, for in while.

• Če/drugače:
  $rezultat = 85; if ($score >= 90) { tisk "A"; } elsif ($score >= 80) { tisk "B"; } drugače { natisnite "C ali nižje"; }
• Zanka:
  @števila = (1..10); foreach $num (@numbers) { natisni "$num\n"; }
• While Loop:
  $count = 0; medtem ko ($count < 5) { natisni "$count\n"; $count++; }

Napredne funkcije Perla

Ko osvojite osnove, lahko začnete raziskovati nekatere naprednejše funkcije perla.

Regularni izrazi

Perl je znan po svojih zmogljivih zmožnostih regularnih izrazov. Regularni izrazi ali regex vam omogočajo iskanje in upravljanje nizov na podlagi vzorcev. Tukaj je nekaj primerov:

• Ujemanje vzorcev:
  $string = "Hitra rjava lisica preskoči lenega psa"; if ($string =~ /fox/) { print "Našel 'lisico' v nizu!"; }
• Zamenjava:
  $string = "Pozdravljen, svet!"; $string =~ s/svet/perl/; natisni niz $; # Izhodi "Hello, perl!"
• Kvantifikatorji:
  $string = "aaaaaaah"; if ($string =~ /a{6}/) { print "Našel sem šest zaporednih 'a-jev!"; }

Moduli in CPAN

Comprehensive Perl Archive Network (CPAN) je repozitorij več kot 350.000 modulov, ki razširjajo perl funkcionalnost. Namestitev in uporaba teh modulov vam lahko prihranita čas in trud pri razvoju projektov. Tukaj je opisano, kako namestiti modul s cpan: