$okshell{$_}++; 什么意思

czq_linux

1. use User::pwent;
   
2. 
   
3. $shells = "/etc/shells";
   
4. open (SHELLS,$shells) or die "Unable to open $shells:$!\n";
   
5. while(<SHELLS>){
   
6.     chomp;
   
7.     $okshell{$_}++;
   
8. }
   
9. close(SHELLS);
   
10. 
    
11. while($pwent = getpwent(  )){
    
12.    warn $pwent->name." has a bad shell (".$pwent->shell.")!\n"
    
13.      unless (exists $okshell{$pwent->shell});
    
14. }
    
15. endpwent(  )

复制代码

以上代码是perl for SA中的，其中不太明白 $okshell{$_}++; 作用，请指点指点，生成的是散列？why？

x9x9

对/etc/shells文件中重复行进行统计。

perlcrack

你加我我给你讲。。。QQ群：81087030

czq_linux

我要拜师~

2gua

重点要先搞清楚$_是什么意思！

yang200218

对/etc/shells文件中重复行进行统计。
x9x9 发表于 2011-05-24 17:07

    正解

flw

正解个毛。

典型的散漫 Perl 指导思想下的垃圾代码。
=1 不好么，非要 ++。

ttcn_cu

编程思想抄10遍

一个人取暖

正解个毛。

典型的散漫 Perl 指导思想下的垃圾代码。
=1 不好么，非要 ++。
flw 发表于 2011-05-25 14:18

    为什么perl 不推荐用 ++ 呢?

ttcn_cu

回复 9# 一个人取暖


    一个是flag，一个是累加，两者混用，不是给自己和维护的人找麻烦么。