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 |
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?Casiano Rodríguez León