Perl中如何实现堆栈-木庄网络博客

本文摘自PHP中文网，作者青灯夜游，侵删。

在Perl中堆栈是一种线性数据结构，遵循LIFO（后进先出）或FILO（先进先出）顺序；那么如何实现堆栈？下面本篇文章就来给大家介绍在Perl中实现堆栈的方法，希望对大家有所帮助。

如何创建堆栈？

简单来说，堆栈是一个数组，其中插入和删除仅发生在称为堆栈顶部的一端。

在Perl中创建堆栈非常简单。我们需要做的就是声明一个数组。

示例：

创建一个可能为空的堆栈：

@stack;

或者可以初始化一下：

1	`@stack = (1, 2, 3);`

堆栈中如何进行推送？

推送就是一种将元素插入堆栈的过程。可以使用push()函数或splice()函数完成推送。

1、使用push()推送：

基本语法：

1	`push（@stack，list）;`

参数：

●　@stack：要执行推送的堆栈。

●　list：要压入堆栈的元素。这些元素可能是标量，数组，哈希或这些元素的任意组合。

示例：

#初始化堆栈
@stack = (1..3);
   
#输出原始栈
print "原始栈： @stack";
   
#要推送的标量
$scalar = "scalar";
   
# 要推送的数组
@array = ("a", "r", "r", "a", "y");
   
# 要推送的哈希
%hash = ("PHP" => 10,  
         "Perl" => 20);
            
# 可以同时插入标量、数组和哈希
push(@stack, ($scalar, @array, %hash)); 
   
# 推送操作后更新堆栈
print("\n更新后的堆栈：@stack");

输出：

1 2	`原始栈：1 2 3` `更新后的堆栈：1 2 3 scalar a r r a y PHP 10 Perl 20`

2、使用splice()推送：

基本语法：

1	`splice(@stack, scalar(@stack), 0, list);`

参数：

●　splice()函数在@stack末尾附加'list'。

●　'list'可以是标量，数组或散列。

示例：

#初始化堆栈
@stack = (1..3);
   
#输出原始栈
print "原始栈： @stack";
   
#要推送的标量
$scalar = "scalar";
   
# 要推送的数组
@array = ("h", "e", "l", "l", "o");
   
# 要推送的哈希
%hash = ("PHP" => 10,  
         "Perl" => 20);
   
# 可以同时插入标量、数组和哈希
splice(@stack, scalar(@stack), 0,  
       ($scalar, @array, %hash));
          
#  推送操作后更新堆栈
print("\n更新后的堆栈：@stack");