Función de prototipo de Perl

Descripción

Esta función devuelve una cadena que contiene el prototipo de la función o referencia especificada por EXPR, o undef si la función no tiene prototipo.

También puede usar esto para verificar la disponibilidad de funciones integradas.

Sintaxis

A continuación se muestra la sintaxis simple para esta función:

prototype EXPR

Valor devuelto

Esta función devuelve indef si no hay prototipo de función; de lo contrario, devuelve una cadena que contiene el prototipo de la función o referencia especificada por EXPR.

Ejemplo

A continuación se muestra el código de ejemplo que muestra su uso básico:

#!/usr/bin/perl -w

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

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

Cuando se ejecuta el código anterior, produce el siguiente resultado:

myprint prototype is $$