lhp@nereida:~/Lperl/src/testing$ cat -n shift.pl 1 use strict; 2 3 my @puf = (1..10); 4 toto(\@puf); 5 6 sub toto { 7 my @a = @{shift}; 8 print "@a\n"; 9 } lhp@nereida:~/Lperl/src/testing$ perl -c shift.pl Global symbol "@shift" requires explicit package name at shift.pl line 7. shift.pl had compilation errors.¿Que ocurre si sustituimos la línea 5 por
my @a = @{shift()};
?
Casiano Rodríguez León