perl中的队列代码,Perl代码库,德仔网

代码语言

代码分类

【Perl】 perl中的队列

作者:宝仔love / 发布于2013/6/4/ 899

队列基本上是一个列表。新项添加在列表的结尾。当队列“向前移动”时，列表的第一项被删除，其他项目“向前移动


	#!/usr/bin/perl
	use strict;
	#use warnings;
	use feature 'say';

	
	my @people = ("Foo", "Bar");
	while (@people) {
	 my $next_person = shift @people;
	 print "$next_person\n"; # do something with this person
	
	 print "Type in the names of more people:";
	 while (my $new = <STDIN>) {
	 chomp $new;
	 if ($new eq "") {
	 last;
	 }
	 push @people, $new;
	 }
	 print "\n";
	}

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

　　

试试其它关键字

　队列　

同语言下

可能有用的

宝仔love贡献的其它代码(9)