@_可以不用写出来的吗？

gouera

刚才做learning perl中的习题，没有想到怎么做，就看了下答案，发现答案的代码中@_是没有写出来。但是变量还是获取的@_的值， 难道子程序中对@_的赋值操作，可以不写@_的吗？ $_等同？

1. 
   
2. #!/usr/bin/perl                                                            
   
3. use warnings;
   
4. use strict;
   
5. use 5.010;
   
6. 
   
7. sub greet {
   
8.      state $last_person;
   
9. 
   
10.      my $name = pop;
    
11.      print "Hi $name\n";
    
12. 
    
13.      if(defined $last_person) {
    
14.          print "$last_person is also here!\n";
    
15.      }else{
    
16.          print "you are the first one here!\n";
    
17.      }
    
18.      $last_person = $name;
    
19. }
    
20. greet( 'fred' );
    
21. greet( 'wsl' );
    

复制代码

jason680

回复 1# gouera

$ perldoc -f pop
   

gouera

回复 2# jason680


    在问一个问题啊，大神。。。
在perl中，数据是被当成字符串来操作的吧。

huacheyu

我也是菜鸟一枚，凑个热闹~

你的问题似乎问的不是很清楚，什么叫“数据”被当成字符串？

在我的理解里，Perl 里其实没有所谓“字符串”这种东西的，只有 标量($)、数组(@) 和 哈希(%)，不论你说的“数据”是什么，在 Perl 里面都只可能是这三种东西的一种~~

gouera

回复 4# huacheyu


打错 是数组...

Monox

回复 5# gouera


    当然不是，字符串是标量的一种，属于基本数据结构，而数组是组合数据结构，这两者之间没有直接关联。即使在C里面也只是字符串被当作（字符）数组来使用，也没说数组被当作字符串来使用。

liunerd

子例程中pop或者shift的缺省操作对象都是@_。在子例程外面是@ARGV。
$_也一样，比方说直接用say;，打印出来的就是$_。

jason680

简单的说...
perl的生於有sed, awk, grep, shell , c, ... 环境中,
用来统一语法或当作代替品, 故 s/old/new/, print, shift ...等等有缺省的语法,
源自sed, awk, shell, ...