Constante scalare în notaţie octală şi hexazecimală

88

            Câteodată este utilă folosirea scrierii numerelor în baza 8 (octală) sau 16 (hexazecimală).

            Pentru a utiliza notaţia octală este suficientă adăugarea unui 0 (zero) în faţa cifrelor reprezentând numărul dorit, spre exemplu

$result = 047;

Această instrucţiune atribuie variabilei $result valoarea 47 octală, sau în baza zece 39.

            Pentru a utiliza notaţia hexazecimală se adaugă secvenţa 0x, astfel instrucţiunea

$result = 0x1f; 

atribuie variabilei $result valoarea hexazecimală 1f, sau în baza zece 31.

Constante scalare de tip şir între ghilimele simple

            Perl permite deasemenea utilizarea şirurilor delimitate de ghilimele simple ' (single quotation mark):

$text = 'This is a string in single quotes';

            Există două diferenţe între cele două moduri de delimitare a şirurilor. În şirurile delimitate de ghilimelele simple variabilele scalare nu sunt substituite cu valoarea lor, şi tot aici caracterul \ nu are nici o semnificaţie specială.

$string = "a string";
$text = "This is $string";  # devine "This is a string"
$text = 'This is $string';  # rămâne 'This is $string'
print('This is a string.\n');# tipăreşte "This is a string.\n"

            Caracterul \ este tratat special numai în două cazuri la şirurile delimitate cu ghilimele simple. Atunci când se doreşte includerea unei ghilimele simple în şir, ca în exemplu următor.

print('This string contains \', a quote character'); 

caz în care este tipărit textul This string contains ', a quote character.

            A doua situaţie se referă la includerea în şir a caracterul \. Exemplul care urmează ilustrează cum se face acest lucru.

print('This string ends with a backslash \\'); 

care conduce la tipărirea textului This string ends with a backslash \.

Valorile iniţiale ale variabilelor scalare

            În Perl toate variabilele scalare sunt iniţializate cu 0. Programul următor ilustrează acest lucru (tst11.pl).

#!/usr/local/bin/perl
$result = $undefined + 2;   # $undefined is not defined
$sir= $undefined + "2";
print ("The value of \$result is $result.\n");
print ("The value of \$sir is $sir.\n");
$undefined='n';
print ("The value of \$sir is $sir.\n");

După execuţie consola text conţine:

The value of $result is 2.
The value of $sir is 2.
The value of $sir is 2.

© Cornel Mironel Niculae, 2003-2004

13-Nov-2009