打印欢迎信息并输出前一位来宾

最新推荐文章于 2025-11-15 11:12:41 发布

原创最新推荐文章于 2025-11-15 11:12:41 发布 · 901 阅读

0 ·

CC 4.0 BY-SA版权

Ruby&Perl 专栏收录该内容

16 篇文章

订阅专栏

本文探讨了如何通过Perl编程语言实现用户姓名的全局存储与动态个性化问候功能，旨在为首次访问者提供独特的欢迎信息，并对后续访问者进行个性化的问候。

#!/usr/bin/perl

@names=qw();#全局变量,用来存放所有用户的姓名
print "@names";
sub greet
{
        #push(@names,@_)
        if( "@names" eq "" ) #判断有没有用户来了
        {
                print "@_ you are the first one to be here !\n\n";
        }
        else
        {
                $name=pop(@names);
                print "$name before you !\n";
                print "@_ welcome you !\n\n";
        }
        push(@names,@_);
}
&greet(lily);
&greet(lucy);
&greet(Green);