自定义简易的面向对象的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}};
}

1;

 

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}};
}

1;

 

 

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(1);
$queue->en_queue('a');
$queue->en_queue('2');
print $queue->toString(),"\n";
$queue->de_queue();
print $queue->toString();

 以上Stack与Queue只是个简单实现，其他操作未添加