Funzione prototipo Perl

Descrizione

Questa funzione restituisce una stringa contenente il prototipo della funzione o del riferimento specificato da EXPR o undef se la funzione non ha prototipo.

È inoltre possibile utilizzarlo per verificare la disponibilità delle funzioni integrate.

Sintassi

Di seguito è riportata la semplice sintassi per questa funzione:

prototype EXPR

Valore di ritorno

Questa funzione restituisce undef se nessun prototipo di funzione altrimenti restituisce una stringa contenente il prototipo della funzione o il riferimento specificato da EXPR.

Esempio

Di seguito è riportato il codice di esempio che mostra il suo utilizzo di base:

#!/usr/bin/perl -w

$func_prototype = prototype ( "myprint" );
print "myprint prototype is $func_prototype\n";

sub myprint($$) {
   print "This is test\n";
}

Quando viene eseguito il codice sopra, produce il seguente risultato:

myprint prototype is $$