>>797 Perl5

�����ƭ�قɏ�����Ă���ʂ�splice�֐����g����push, pop���L�q�ł���B
�@splice(@a,@a,0,$x);�@# push(@a, $x)
�@splice(@a,-1);�@�@�@ # pop(@a)
�Ȃ񂾂���splice���g�킸�����statement������push, pop�֐����L�q����Ɓc����Ȋ���

use v5.18;
use feature 'signatures';
no warnings "experimental::signatures";
sub Push($a, $x) {
�@@$a = (@$a, $x);
}
sub Pop($a) {
�@my @a = @$a;
�@my $b = $a[-1];
�@@$a = @a[0..$#a-1];
�@$b;
}
my @s = (1,2,3); # test main
Push(\@s, 4);
say "@s";
my $y = Pop(\@s);
say $y;


���s����
~ $ perl 18_787_push_pop.pl
1 2 3 4
4
1 2 3