Perl/Variabili scalari: differenze tra le versioni

Inoltre essendo un linguaggio "case sensitive" le lettere maiuscole e le lettere minuscole sono differenti.

 

$a; # è la variabile a

$A; # è la variabile A diversa da a

 

'''NOTA:''' il nome di una variabile non può iniziare con numeri!

Vediamo alcuni esempi:

 

$primo_numero = 5; # decimale

$primo_numero = 0x5; # esadecimale (cifre da '''0''' a '''9''' e lettere da '''a''' a '''f''' )

 

sono tutti modi di far valere la variabile primo_numero il numero intero 5.

Vediamo insieme alcune operazioni:

 

$p = 7; # assegnamento

$s = 9;

$r = $p % $s; # modulo r vale ora 7

$r = $p ** $s; # elevamento r vale ora 40353607 ( 7 elevato alla 9 )

 

'''NOTA''' per operazioni più complesse ci sono delle apposite funzioni

vediamo un esempio:

 

$p = 7; # assegnamento

$q = 0;

$r = $p--; # post decremento ora $r = 7 , $p = 6

$q = --$p; # pre decremento ora $q = 5 , $p = 5

 

 

===La stringa===

 

ESEMPI:

# ESEMPIO 1

$a = '1234'; # in $a c'è una stringa di quattro caratteri (1234).

$a = 'questa è una stringa di caratteri'; # in $a c'è una stringa di 33 caratteri .

$a = '' # in $a c'è una stringa vuota !

 

 

Vediamo gli esempi precedenti con le "" al posto di ''.

 

# ESEMPIO 1

$a = "1234"; # in $a c'è una stringa di quattro caratteri (1234) uguale all'esempio precedente.

$a = "questa è una stringa di caratteri"; # in $a c'è una stringa di 33 caratteri .

$a = "" # in $a c'è una stringa vuota !

 

Per il gruppo di stringhe dell'esempio 1 scriverle con "" o con <nowiki>''</nowiki> è esattamente la stessa cosa : il valore finale sarà lo stesso.

quindi è possibi scrivere:

 

$a = "questa e' una stringa di caratteri";

 

senza problemi.

Come nel caso precedente se dovessimo scrivere il carattere ->"<- come carattere all'interno della stringa, occorrerà farlo precedere dal carattere ->\<- :

 

$a = "\"virgolettato\""; # a ora ha il valore "virgolettato"

 

Vediamo ora le caratteristiche di usare il simbolo ->"<- al posto di ->'<-

 

#ESEMPIO 2

$a = "quest'estate farà caldo"; # in $a c'è una stringa 22 caratteri (quest'estate farà caldo).

$b = "$a"; # in $b c'è una stringa 22 caratteri (quest'estate farà caldo) dato dalla sostituzione del valore di $a.

$a = "$a"; # in $a c'è il valore di $a cioè lo stesso valore di prima !.

 

Quindi con il delimitatore ->"<- è possibile usare il valore delle variabili al posto del nome della variabile stessa.

Ma se all'interno di una stringa delimitata da ->'<- ci fosse il carattere ', come si potrebbe scrivere il seguente codice (errato)?

 

$a = 'questa e' una stringa'; # stringa di 21 caratteri ERRATA SINTASSI.

 

E se all'interno di una stringa delimitata da ->"<- ci fosse il carattere "?

 

$a = "questa e' una "stringa""; # stringa di 23 caratteri ERRATA SINTASSI.

 

Per evitare limitazioni e poter scrivere il carattere ->'<- all'interno di una stringa "pura" occorre anticiparlo dal carattere ->\<- che fa in modo di dire all'interprete che il carattere che segue (in questo caso il ') è da considerarsi in modo particolare.

Vediamo ora come si deve scrivere la riga precedente:

 

$a = 'questa e\' una stringa'; # in $a c'è una stringa di 21 caratteri GIUSTA SINTASSI.

 

quindi il successivo esempio occorre scriverlo:

 

$a = "questa e' una \"stringa\""; # stringa di 23 caratteri GIUSTA SINTASSI.

I caratteri speciali sono delle combinazioni di caratteri semplici che "servono a informare" che si vuole fare una "azione" particolare.

Se si volesse scrivere la frase : "pippo" corre nel prato

 

$b = 'pippo';

$c = 'corre nel prato';

$d = " \"$b\" $c contento"; # contiene : "pippo" corre nel prato contento

# (un po' meglio)

 

Se si volesse scrivere la frase : PIPPO corre nel prato (indipendentemente da cosa c'è in $b)

 

$d = " \U$b\E $c contento"; # verrà mostrato come : PIPPO corre nel prato contento

'''ATTENZIONE''' i simboli ' e " sono operatori ( e non solo convenzioni di sintassi !)

 

quindi avremmo potuto scrivere anche :

 

$a = q//; # stringa vuota

$a = qq//; # stringa vuota

$d = qq/$b $c contento/; # contiene : pippo corre nel prato contento

$e = q/$b $c contento/; # contiene : $b $c contento

 

Inoltre è possibile sostituire al carattere / con i caratteri {,(,% per migliorare la leggibilità : per esempio se dovessi scrivere 2006/12/22 con qq/ dovrei distinguere fra / usato come simbolo di separazione della data e / usato come termine di qq/.

Quindi potremmo scrivere:

 

$f = "2006/12/22";

$f = qq(2006/12/22);

$f = qq{2006/12/22};

 

====Operazioni con le stringhe====

Con il carattere . è possibile concatenare più stringhe per esempio:

 

$d = $b . " " . $c . " contento"; # contiene : "pippo corre nel prato contento"

 

=====istruzione "complessa" con le stringhe=====

 

$d = q/$b=/ . qq/$b/ . "\n"; # contiene "$b=pippo" e un ritorno a capo

ma forse è meglio scriverla:

$d = '$b=' . "$b\n"; # contiene "$b=pippo" e un ritorno a capo

oppure anche:

$d = '$b=' . $b. "\n"; # contiene "$b=pippo" e un ritorno a capo

 

===I reference (piccola introduzione)===

 

Esaminiamo la scrittura sintattica:

$a = 5;

Vuol dire che associamo "all'etichetta" '''$a''' il contenuto '''5''' ed usiamo poi l'etichetta nel programma al posto del valore:

print $a."\n";

Il reference associa '''all'etichetta''' una sua '''''etichetta''''' pertanto lo stesso contenuto può essere scritto utilizzando "l'etichetta" '''$a''' o in '''modo adatto''' il suo reference.

*'''Un''' modo per creare un reference è quello di anteporre alla variabile il simbolo '''\'''.

*'''Un''' modo per riottenere il valore originale è quello di anteporre '''$''' :

 

$a = 5; # variabile a

$ref_a = \$a; # Ora sia ref_a che a "associano" lo stesso contenuto 5

print $a."\n"; # si ottiene 7

print $$ref_a."\n"; # si ottiene 7

 

'''NOTA''': nell'esempio si è associato ad uno scalare $ref_a un altro scalare $a.è possibile associare '''qualsiasi''' tipo di variabile !

 

È possibile assegnare ad una variabile il valore undef:

$u = undef;

 

===Dove sono i booleani?===

Vediamo il codice:

 

$a = 0;

$b = 1;

print "or:".( $a or $b )."\n";

print "and:"( $a and $b )."\n";

che produrrà:

Esempio con le stringhe:

 

$a = "";

$b = "vero";

print "or:".( $a or $b )."\n";

print "and:"( $a and $b )."\n";

 

che produrrà:

 

Date le tre variabili:

$a = 10; # numero 10

$b = '10'; # stringa 10

print "a:$a , b:$b , c:$c , d:$d\n"; # scrive a:10 , b:10 , c:dieci , d:dieci

 

===Conversione implicita a numeri===

print '( $a + $b )='.( $a + $b )."\n"; # scrive ( $a + $b )=20 $b è stato convertito in 10 numerico

print '( $d + $e )='.( $d + $e )."\n"; # scrive ( $d + $e )=0 $d ed $e sono stati convertiti in 0 numerico

 

===Conversione implicita a stringa===

print " $a ha il valore $a\n"; # scrive 10 ha il valore 10 è stato interpretato $a

print ' $a ha il valore $a'."\n"; # scrive $a ha il valore $a NON è stato interpretato $a

print ' $e ha il valore '.$e."\n"; # scrive $e ha il valore infatti undef viene tradotto come ""

 

==Assegnamento oltre "=" ==

Vediamo un esempio che chiarisce molto:

L'espressione

$a += $b;

viene "espansa" nella sua equivalente:

$a = $a + $b;

e così tutte le altre:

$a -= $b; $a = $a - $b;

$a *= $b; $a = $a * $b;

$a .= $b; $a = $a . $b;

$a x= $b; $a = $a x $b;

 

Vediamo ora degli esempi con dei valori:

$a = 32;

$b = 5;

$a .= $b; # ora $a è uguale a '645' ( '64' . '5' )

$a x= $b; # ora $a è uguale a '645645645645645' ( '645' cinque volte )

 

E con le stringhe ?

Un esempio è meglio delle parole:

$a = "ciao"; # nota in numero 0

$b = 5;

$a .= $b; # ora $a è uguale a '05' ( '0' . '5' )

$a x= $b; # ora $a è uguale a '0505050505' ( '05' cinque volte )

 

=Riassunto=