关于$_ 变量的问题

zlgod

哪一位大侠用一个实例来解释一下 $_ 变量是如何使用和工作的.
谢谢!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

deathcult

ls | perl -ne '{print uc}'

将文件名改为大写。
$_是默认的变量。

deathcult

perl -e 'map {print "$_\n"} @INC'

$_是@INC的每个元素。

deathcult

perl -ne 'chomp $_; print $_' filename

$_是filename的每一行数据，
上面2个$_都可以省略。

deathcult

perldoc perlvar :

1. 
   
2. .................
   
3. $_      The default input and pattern-searching space.
   
4.                The following pairs are equivalent:
   
5. 
   
6.                    while (<>;) {...}    # equivalent only in while!
   
7.                    while (defined($_ = <>;)) {...}
   
8. 
   
9.                    /^Subject:/
   
10.                    $_ =~ /^Subject:/
    
11. 
    
12.                    tr/a-z/A-Z/
    
13.                    $_ =~ tr/a-z/A-Z/
    
14. 
    
15.                    chomp
    
16.                    chomp($_)
    
17. ..................
    

复制代码

auddi

这家伙"$_"变得真快...