[ Pobierz całość w formacie PDF ]
.Innymi słowy, sposób traktowania danych jest w Perlu określonyniejawnie, przez kontekst, w którym danych się używa  nie można tego sposobu określić jawnie, programowo.Tabela A.2.Znaki specjalneZnak specjalny Znaczenie\ Cudzysłów pojedynczy.\ Cudzysłów podwójny.\t Tabulator.\n Znak nowego wiersza.\u Zamiana następnego znaku na wielką literę.\l Zmiana następnego znaku na małą literę.\U Zmiana wszystkich dalszych znaków na wielkie litery.\L Zmiana wszystkich dalszych znaków na małe litery.\Q Dodanie lewego ukośnika do wszystkich dalszych znaków niealfanumerycznych.\E Kończy działanie \U, \L lub \Q.\r Znak powrotu kursora.\f Otwarcie strony.\b Backspace.\a Sygnał dz
więkowy.\e Escape.\033 Znak zapisany w postaci kodu ósemkowego.\x1b Znak zapisany w postaci kodu szesnastkowego.\c[ Znak kontrolny.TabliceZmienne tablicowe zaczynają się znakiem @.Tablicę tworzy się, przypisując takiej zmiennej listę: @tablica = (l, 2, 3).Doelementów tablicy można się odwoływać jako do skalarów, poprzedzając odwołania znakiem $, a żądany indeks podaje się w nawiasachkwadratowych.Jeśli tablica nazywa się @tablica, to wyrażenie $#tablica określa indeks ostatniej wartości z tej tablicy.AsocjacjeAsocjacje są nazywane także tablicami asocjacyjnymi.Ta ostatnia nazwa dość dobrze opisuje ich konstrukcję: do wskazywaniadanych  zamiast indeksów numerycznych  używa się w nich klucza, który ma postać napisu, a jest związany z potrzebną wartością.Nazwy asocjacji poprzedza się znakiem %.Jak w przypadku tablic, przy pracy z poszczególnymi elementami asocjacji używa się wyróżnik^$.Do wartości można odwoływać się przez ich klucz:$wartość = $asocjacja{$klucz}Typy ogólneCzarna Księga - PERL 147Typy ogólne Perla zachowują się jak aliasy.Typów tych można używać do wiązania nazwy zmiennej (na przykład dane) z innąnazwą (na przykład takzedane).W ten sposób wszystkie zmienne, w których użyto nowej nazwy, czyli $takzedane, @takzedane, %takzedanei tak dalej, odnoszą się do tych samych danych, co zmienne zawierające pierwszą nazwę, odpowiednio $dane, @dane, %dane i tak dalej.OperatoryW tabeli A.3 zestawiono operatory Perla w kolejności malejącego priorytetu.Przypisywanie wartościOperator przypisania, =, przypisuje zmiennej wartość:$zmiennal = 5Można też użyć skróconego zapisu operatorów przypisania, polegającego na połączeniu przypisania z innym operatorem, naprzykład:$dwarazy *= 2Powyższe przypisanie przemnoży wartość $dwarazy przez 2 i wynik zapisze z powrotem w tej samej zmiennej.Oto kompletdozwolonych operatorów przypisania:= **= += &= = ||=.= %= ^= x=Operatory porównaniaOperatory porównania pozwalają porównać ze sobą dwa argumenty i zwracają wartość zgodnie z tabelą A.4.Tabela A.3.Operatory PerlaOperatory A
Ä…cznośćTermy i lewostronne operatory list lewostronna-> lewostronna++ -- nie dotyczy** prawostronna! ~ \ unarny + unarny - prawostronna=~ !~ lewostronna* / % x lewostronna+ -.lewostronnalewostronnanazwane operatory unarne, operatory testowania plików nie dotyczylt gt le ge nie dotyczy++ != óð eq ne cmp nie dotyczy& lewostronna| ^ lewostronna&& lewostronna|| lewostronna.nie dotyczy?: prawostronna= += -= *= prawostronna, => lewostronnaprawostronne operatory list nie dotyczynot prawostronnaand lewostronnaor xor lewostronnaOperatory równoÅ›ciOperatory równoÅ›ci porównujÄ… dwa argumenty i zwracajÄ… wartość zależnÄ… od wyniku porównania zestawiono je w tabeli A.5.Tabela A.4.Operatory porównaniaOperator Typ danych Zwracaliczbowe PrawdÄ™, jeÅ›li lewy argument jest wiÄ™kszy od prawego.= liczbowe PrawdÄ™, jeÅ›li lewy argument jest wiÄ™kszy lub równy z prawym.lt tekstowe PrawdÄ™, jeÅ›li lewy argument jest mniejszy od prawego.gt tekstowe PrawdÄ™, jeÅ›li lewy argument jest wiÄ™kszy od prawego.le tekstowe PrawdÄ™, jeÅ›li lewy argument jest mniejszy lub równy z prawymge tekstowe PrawdÄ™, jeÅ›li lewy argument jest wiÄ™kszy lub równy z prawym.Tabela A.5.Operatory równoÅ›ciOperator Typ danych Zwraca== liczbowe PrawdÄ™, jeÅ›li lewy argument jest równy prawemu argumentowi.!= liczbowe PrawdÄ™, jeÅ›li lewy argument nie jest równy prawemu argumentowi.liczbowe -1, 0 lub 1 w zależnoÅ›ci od tego, czy lewy argument jest numerycznie odpowiednio mniejszy, równybÄ…dz
większy od prawego argumentu.eq tekstowe Prawdę, jeśli lewy argument jest równy prawemu argumentowi.ne tekstowe Prawdę, jeśli lewy argument nie jest równy prawemu argumentowi.cmp tekstowe -1, 0 lub 1 w zależności od tego, czy lewy argument jest odpowiednio mniejszy, równy bądz
większyInstrukcja ifInstrukcja i f sprawdza, czy podany w nawiasach warunek jest spełniony.Jeśli wyrażenie w nawiasach zwraca wartość prawdy(czyli nie 0), wykonywany jest blok kodu instrukcji if.Istnieje też możliwość wykorzystania frazy else zawierającej kod wykonywany wprzypadku niespełnienia warunku, można w końcu zastosować frazę elsif (nie mylić z else if czy elseif), która pozwala zrealizowaćdodatkowe kontrole.Oto składnia instrukcji i f:if (WYRA%7łENIE) BLOKif (WYRA%7łENIE) BLOK else BLOKCzarna Księga - PERL 148if (WYRA%7łENIE) BLOK elsif (WYRA%7łENIE) BLOK.else BLOKInstrukcja unlessInstrukcja unless działa wprost przeciwnie niż instrukcja if  blok kodu jest wykonywany wtedy, gdy podany warunek niezostanie spełniony.Oto składnia unless:unless (WYRA%7łENIE) BLOKunless (WYRA%7łENIE) BLOK else BLOKunless (WYRA%7łENIE) BLOK elsif (WYRA%7łENIE) BLOK.else BLOKInstrukcja forPętli for używa się do wielokrotnego wykonywania instrukcji, zwykle stosuje się przy tym indeks pętli.Oto konstrukcja pętli for:ETYKIETA for (WYRA%7łENIE; WYRA%7łENIE; WYRA%7łENIE) BLOKPierwsze wyrażenie jest wykonywane przed wykonaniem bloku, drugie natomiast jest sprawdzane przed każdą iteracj ą pętli ijeśli jego wartością jest fałsz, pętla jest kończona (w związku z tym blok może nie wykonać się ani razu).Trzecie wyrażenie jest wyko-nywane po każdej iteracji.Instrukcja foreachPętla ta jest właściwie tą samą pętlą co for, ale programiści często używają jej do iteracji po elementach listy.Oto obowiązującaskładnia:ETYKIETA foreach ZMIENNA (LISTA) BLOKInstrukcja whilePętla wykonuje blok tak długo, jak długo WYRA%7łENIE jest prawdziwe:ETYKIETA while (WYRA%7łENIE) BLOKETYKIETA while (WYRA%7łENIE) BLOK continue BLOKUżycie pętli untilPętla wykonuje blok tak długo, jak długo wyrażenie ma wartość fałszu (czyli odwrotnie niż while):ETYKIETA until (WYRA%7łENIE) BLOKETYKIETA until (WYRA%7łENIE) BLOK continue BLOKModyfikowanie instrukcji za pomocą fraz if, unless, until i whileW Perlu niekoniecznie trzeba używać formalnych instrukcji warunkowych i instrukcji pętli, można też zastosować modyfikatoryumieszczane za zwykłymi instrukcjami:if WYRA%7łENIEunless WYRA%7łENIEwhile WYRA%7łENIEuntil WYRA%7łENIEInstrukcje pętliOto instrukcje dostępne wewnątrz pętli:* Polecenie next loop powoduje natychmiastowe rozpoczęcie następnej iteracji pętli, z pominięciem wszelkichinstrukcji znajdujących się za tym poleceniem;* Polecenie las t kończy natychmiast wykonywanie bieżącej pętli;* Polecenie redo powoduje ponowne wykonanie bieżącej iteracji pętli bez powtórnej ewaluacji warunku pętli.Instrukcja gotoPerl zawiera instrukcję goto, ale jej stosowanie może zaowocować dzikimi skokami, które bardzo trudno będzie śledzić, gdyżwykonanie zostaje przeniesione w całkiem inne miejsce [ Pobierz całość w formacie PDF ]