perl中的队列

Posted 2021-04-17 海文国际

代码简介

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

在计算机科学中有很多标准的数据结构。队列的抽象描述为FIFO - 先进先出。第一个加入队列的也会第一个离开队列。

在Perl里，普通的数组通过push和shift函数就可以实现队列

Perl代码片段

#!/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";
}

源自：程序员之家

http://www.chengxuyuans.com/Perl/65162.html