PERL 5 - Kurs





ODWOŁANIA
document.write(("" + getDateStr()+"").fontcolor("white"))



Spis treści
Strona główna
O języku Perl
Zmienne skalarne
Operatory
Tablice i listy
Tablice rozproszone
Wyrażenia warunkowe
Pętle
Operacje na zmiennych
Wyrażenia regularne
Procedury
Pliki, wejście/wyjście
Odwołania
Struktury danych
CGI
Pola formularzy
Odczyt danych
Generowanie strony



Odwołania

Co to są odwołania
Odwołania można zdefiniować jako typ danych wskazujący na inne dane. Odwołanie jest zmienną skalarną i jako takie może zostać przypisane do zmiennej skalarnej. Dzięki ich istnieniu możliwe staje się budowanie złożonych struktur danych takich jak tablice tablic lub tablice wielowymiarowe, przekazywanie dużych porcji danych do wnętrza procedur i zwracanie przez nie niemal dowolnych typów danych.

Tworzenie odwołań
Weźmy następujący łańcuch:

$lancuch = "Dziś jest piękny dzień";

Aby utworzyć odwołanie do niego, należy użyć operatora \:

$odwolanie = \$lancuch;

Poniższe przypisanie powoduje zapis do zmiennej $odwolanie lokalizacji zmiennej $lancuch a nie jej wartości. W przypadku przypisania do $lancuch innego łańcucha, odwołanie nadal nie zmieni swojej wartości.
Odwołania można stosować także do tablic:

$odw_do_tablicy = \@tablica;
$odw_do_tabl_rozpr = \%tabl_rozpr;

Także i w tym przypadku odwołania są skalarami.

Dostęp do wartości wskazywanych przez odwołania
Istnieje wiele możliwych sposobów docierania do wartości wskazywanych przez odwołania. Jeden z nich jest następujący:

$wartosc = $$odwolanie;

Zastosowane są tutaj dwa znaki dolara, które znaczą mniej więcej tyle co "zwróć element, na który wskazuje odwolanie $odwolanie".
Do tablicy wskazywanej przez odwolanie możemy dotrzeć stosując zapis jak poniżej:

$tablica = @$odwolanie;

Można także odwołać się do konkretnego elementu tablicy:

$element_1 = $$odwolanie[0];

Na podobnych zasadach docieramy do tablic asocjacyjnych:

%tablica = %$odwolanie;
$element = $$odwolanie{klucz};
@klucze = keys %$odwolanie;


Zmiana wskazywanych danych
Odwołanie wskazuje konkretne miejsce w pamięci a nie konkretną wartość. Jeśli wartość wskazywana przez odwołanie ulegnie zmianie, odwołanie to zwróci tę właśnie nową wartość, gdyż teraz to właśnie ona znajdzie się w miejscu, na które ono wskazuje. Stwórzmy zmienną $lancuch i odwołanie do niej:

$lancuch = "To jest tekst";
$odwolanie = \$lancuch;

Jeśli teraz użyjemy następującego polecenia:

print "$$odwolanie";

otrzymamy na ekranie napis "To jest tekst". Jeśli w dalszej części programu zmienimy zawartość zmiennej $lancuch i jeszcze raz wykonamy drukowanie:

$lancuch = "Drugi tekst";
print "$$odwolanie";

na ekranie otrzymamy napis "Drugi tekst". Dzieje się tak dlatego, gdyż odwołanie $odwolanie wskazuje na zmienną $lancuch, a nie na jej wartość.


Autor: Wiercioch Łukasz