Funkcje

Perl oferuje wiele bardzo przydatnych funkcji. Poniżej zaprezentujemy kilka użytecznych funkcji do obsługi tablic:

  @jeden_do_pieciu = ("jeden","dwa","trzy","cztery","pięć");
 
  $wartosc = pop(@jeden_do_pieciu);
  # usuwa "pięć", ostatnią wartość z tablicy jeden_do_pieciu.
 
  $wartosc = shift(@jeden_do_pieciu);
  # usuwa "jeden", pierwszą wartość z tablicy jeden_do_pieciu.

Powyższe przykłady prócz użycia funkcji usuwającej element nadają wartość zmiennej skalarnej $wartosc. Nie jest to jednak konieczne. Można skorzystać z funkcji tak, jakby była procedurą (bez nadawania wartości), aby usunąć element tablicy: pop(@jeden_do_pieciu) aby usunąć ostatni, lub shift(@jeden_do_pieciu) by usunąć pierwszy. Obie funkcje służą właśnie do tego - do usuwania elementu z tablicy. Równie łatwo można do tablicy dodawać nowe elementy:

  push(@jeden_do_pieciu,"sześć");
  # dodaje "sześć" na końcu tablicy @jeden_do_pieciu
 
  @szesc_do_dziewieciu = ("sześć","siedem","osiem","dziewięć");
 
  push(@jeden_do_pieciu,@szesc_do_dziewieciu);
  # dodaje @szesc_do_dziewieciu na końcu @jeden_do_pieciu

Poniżej podajemy krótką listę użytecznych funkcji wykorzystywanych do manipulacji tablicami:

  sort(@jeden_do_pieciu)
  # sortuje tablicę @jeden_do_pieciu alfabetycznie

  reverse(@jeden_do_pieciu)
  # odwraca kolejność elementów w @jeden_do_pieciu

  $#jeden_do_pieciu
  # zwraca długość @jeden_do_pieciu

  join(",",@jeden_do_pieciu)
  # zamienia tablicę w ciąg znaków, oddzielając wartości podanym znakiem ","