一个子程序两个问题【已解决】

wuduzui

LP5：277页有这样一个程序：我想问1.为什么作者把shift赋给$name?这里的shift是操作符吗？2.Fred首先是赋给了谁？$last_person还是$name ？为什么？
#!/usr/bin/perl
use 5.010;
use strict;
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;
    }
greet( 'Fred' );
greet( 'Barney' );

jason680

回复 1# wuduzui

1. my $name = shift(@_);

2. $name
    the reason is as same as step 1, my $name = shift(@_);

Perlvim

shift 是 shift @_; 的简写
取输出参数的第一个值。
首先赋给$name;
这里面的$last_person 纯属混淆视听，每次调用子程序，这个值都被重新初始化

wuduzui

回复 2# jason680

为什么Fred首先是赋给$name而不是 $last_person？

jason680

回复 4# wuduzui

sub greet{
  state $last_person;  # didn't assign value
  my $name = shift;   # assign value
  ...
  $last_person = $name; # assign value
}
   
would you tell us which one assign value early