Ejemplos

Veamos otros ejemplos de declaraciones de prototipos de operadores ya existentes en Perl:

myreverse (@)	myreverse $a,$b,$c
myjoin ($@)	myjoin ":",$a,$b,$c
mypop (\@)	mypop @array
mysplice (\@$$@)	mysplice @array,@array,0,@pushme
mykeys (\%)	mykeys %{$hashref}
myopen (*;$)	myopen HANDLE, $name
mypipe (**)	mypipe READHANDLE, WRITEHANDLE
mygrep (&@)	mygrep { /foo/ } $a,$b,$c
myrand ($)	myrand 42
mytime ()	mytime

Ejercicio 4.16.1   Suponga que quiere escribir una función mypush que actúa exactamente como lo hace push: La llamada push @a, 4, 5, 6 empuja los elementos de la lista (4, 5, 6) en @a. ¿Como deberıa ser el prototipado de dicha subrutina?