Perl中如何实现堆栈

原始栈：1 2 3

更新后的堆栈：1 2 3 scalar h e l l o PHP 10 Perl 20

$popped_element = pop(@stack);

# 初始化堆栈

@stack = (1..3);

# 原始栈

print "原始栈： @stack";

# 移除并返回最上面的元素，即3。

$popped_element = pop(@stack); 

# 输出弹出元素

print "\n弹出元素：$popped_element";

# 弹出操作后更新堆栈

print("\n更新后的堆栈：@stack");

原始堆栈：1 2 3

弹出元素：3

更新后的堆栈：1 2

$popped_element=splice(@stack, -1);

# 初始化堆栈

@stack = (1..3);

# 原始栈

print "原始栈： @stack";

# 使用splice()函数弹出

$popped_element = splice(@stack, -1);

# 输出弹出元素

print "\n弹出元素：$popped_element";

# 弹出操作后更新堆栈

print("\n更新后的堆栈：@stack");

原始堆栈：1 2 3

弹出元素：3

更新后的堆栈：1 2