一个签到函数

[root@mysql1 perl]# cat 27.pl 
#!/usr/bin/env perl


use strict;
use warnings FATAL => 'all';
use 5.010;


sub greet {


  state $last_person;
  my $name=shift;
  print "hi $name! ";


  if (defined $last_person) {
    print "$last_person is also here!\n";
  } else {
    print "you are the first one here!\n";
  }
  $last_person=$name;



sub greet1 {
  state @names;
  my $name=shift;
  print "hi $name! ";
  
  if (@names) {
    print "i've seen: @names\n";
  } else {
    print "you are the first one here!\n";
  }
  push @names,$name
}


greet('fred');
greet('barney');


greet1('fred');
greet1('barney');
greet1('wilma');
greet1('betty');






















[root@mysql1 perl]# ./27.pl   
hi fred! you are the first one here!
hi barney! fred is also here!
hi fred! you are the first one here!
hi barney! i've seen: fred
hi wilma! i've seen: fred barney
hi betty! i've seen: fred barney wilma
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值