Perl/Funzioni: differenze tra le versioni

esempio :

sub miafunzione

{

miafunzione;

 

nell'esempio indicato la funzione "miafunzione" non usa parametri e non esplicita un valore di ritorno.

quindi se si vedono nel codice comandi tipo

 

@a = shift ;

 

in realtà è come se il codice scritto fosse:

 

@a = shift @_;

 

== I parametri ==

vediamo questo esempio:

 

sub miafunzione

{

 

miafunzione "pippo" , "pluto";

 

che produrrà:

Se non specificato è il valore di ritorno dell'ultima istruzione eseguita:

 

{

my $x=print "ciao mondo\n";

{

print "Questa funzione è vera!\n";

 

che produrrà :

Se si vuole invece specificare un valore allora useremo return :

 

{

my %x=("pippo" , "questo e' pippo" , "pluto" , "questo e' pluto");

{

print "chiave=$c , valore=$v\n";

 

che produrrà :

Vediamo ora questo fenomeno:

 

{

my %x=("pippo" , "questo e' pippo" , "pluto" , "questo e' pluto");

print "chiave=$c , valore=$v\n";

}

 

che produrrà :

Vediamo l'esempio

 

{

if ( wantarray )

 

print "a=$a\n";

 

che produce:

Precedentemente alle variabili si è visto come è possibile assegnare diverse cose. Fra queste ci sono anche le funzioni:

 

{

if ( wantarray )

print "f=$f\n";

print "array fun:".join(" , ",@fun)."\n";

Da notare che non c'è il nome dopo sub e che il nome "nell'uso" è stato sostituito dal nome della variabile (con il $ davanti !)

 

 

Guardiamo ora questo codice:

sub estrazione

{

my $a = &$f();

my @b = &$f();

Quindi in questo modo si è sostituito il "nome" della funzione con la variabile $f.

Prestate molta attenzione alla sintassi.

Infatti $f viene assegnato un reference "\" alla funzione "&" chiamata "estrazione".

Ben diverso è una chiamata, così fatta:

my $f = \&estrazione();

Infatti in questo caso verrà interpretato come:

$f viene assegnato un reference "\" al valore di ritorno della funzione "&" chiamata "estrazione" con parametri nulli.

Infatti &estrazione() da luogo alla chiamata della funzione così come &$f(). Mentre \&estrazione fa solo un riferimento ma non invoca la funzione.

 

print "a=$a\n";

print "b:".join(" , ",@b)."\n";

Dato che $f è una variabile è possibile usarla come un reference (infatti lo è), pertanto è possibile usare la sintassi -> :

my $a = $f->();

my @b = $f->();

== Funzioni con ritorno a funzione (nome o anonima) ==

 

Se si torna una funzione poi questa deve essere lanciata per poter ottenere un risultato.

Vediamo ora questo codice:

sub estrazione

{

print "---\n";

$f ->(6)->(3,0,2);

che produce :