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