perl自定义简易的面向对象的栈与队列类

perl中的数组其实已经具备了栈与队列的特点，下面是对数组经过一些封装的stack，queue对象

1、Stack类

创建一个Stack.pm文件

package Stack;
sub new{
    $self={
        arr=>[]
    };
    return bless $self;
}  

sub push{
    $self=shift;
    $d=shift;
    push @{$self->{arr}},$d;
}
sub pop{
    $self=shift;
    return pop @{$self->{arr}};
}  

sub toString{
    $self=shift;
    return  @{$self->{arr}};
}  

;  

2、Queue类

创建一个Queue.pm

package Queue;
sub new{
    $self={
        arr=>[]
    };
    return bless $self;
}  

sub en_queue{
    $self=shift;
    $d=shift;
    push @{$self->{arr}},$d;
}
sub de_queue{
    $self=shift;
    return shift @{$self->{arr}};
}  

sub toString{
    $self=shift;
    return  @{$self->{arr}};
}  

;  

3、调用

use Stack;
$stack=new Stack;
$stack->push('gg');
$stack->push('aa');
$stack->push('123');
print $stack->toString(),"\n";
$stack->pop();
print $stack->toString(),"\n";
$stack->pop();
print $stack->toString(),"\n";
$stack->pop();
print $stack->toString(),"\n";  

use Queue;
$queue=Queue->new();
$queue->en_queue();
$queue->en_queue('a');
$queue->en_queue('2');
print $queue->toString(),"\n";
$queue->de_queue();
print $queue->toString(); 

参考的链接

https://www.lagou.com/lgeduarticle/.html