Perl轻松分析数据两例

颇为阿娇978

　　某日在网上溜达，看见一网友博客（http://rainbird.blog.51cto.com/211214/165779）上的两道题，作者说没有两年linux道行,很难做出其中三道。这里我们看看这些题究竟有多难（仅针对脚本编程）。
　　第一道：
　　

• 取出/etc/passwd中shell出现的次数
  

　　

　　顺便贴一下我的/etc/passwd文件
　　

• root:x:0:0:root:/root:/bin/bash
  
• bin:x:1:1:bin:/bin:/sbin/nologin
  
• daemon:x:2:2:daemon:/sbin:/sbin/nologin
  
• adm:x:3:4:adm:/var/adm:/sbin/nologin
  
• lp:x:4:7:lp:/var/spool/lpd:/sbin/nologin
  
• sync:x:5:0:sync:/sbin:/bin/sync
  
• shutdown:x:6:0:shutdown:/sbin:/sbin/shutdown
  
• halt:x:7:0:halt:/sbin:/sbin/halt
  
• mail:x:8:12:mail:/var/spool/mail:/sbin/nologin
  
• news:x:9:13:news:/etc/news:
  
• uucp:x:10:14:uucp:/var/spool/uucp:/sbin/nologin
  
• operator:x:11:0:operator:/root:/sbin/nologin
  
• games:x:12:100:games:/usr/games:/sbin/nologin
  
• gopher:x:13:30:gopher:/var/gopher:/sbin/nologin
  
• ftp:x:14:50:FTP User:/var/ftp:/sbin/nologin
  
• nobody:x:99:99:Nobody:/:/sbin/nologin
  
• nscd:x:28:28:NSCD Daemon:/:/sbin/nologin
  
• vcsa:x:69:69:virtual console memory owner:/dev:/sbin/nologin
  
• rpc:x:32:32:Portmapper RPC user:/:/sbin/nologin
  
• mailnull:x:47:47::/var/spool/mqueue:/sbin/nologin
  
• smmsp:x:51:51::/var/spool/mqueue:/sbin/nologin
  
• oprofile:x:16:16:Special user account to be used by OProfile:/home/oprofile:/sbin/nologin
  
• pcap:x:77:77::/var/arpwatch:/sbin/nologin
  
• dbus:x:81:81:System message bus:/:/sbin/nologin
  
• avahi:x:70:70:Avahi daemon:/:/sbin/nologin
  
• sshd:x:74:74:Privilege-separated SSH:/var/empty/sshd:/sbin/nologin
  
• rpcuser:x:29:29:RPC Service User:/var/lib/nfs:/sbin/nologin
  
• nfsnobody:x:4294967294:4294967294:Anonymous NFS User:/var/lib/nfs:/sbin/nologin
  
• haldaemon:x:68:68:HAL daemon:/:/sbin/nologin
  
• avahi-autoipd:x:100:156:avahi-autoipd:/var/lib/avahi-autoipd:/sbin/nologin
  
• xfs:x:43:43:X Font Server:/etc/X11/fs:/sbin/nologin
  
• ntp:x:38:38::/etc/ntp:/sbin/nologin
  

　　

　　这道题真的很简单，要知道处理文本那可是Perl的强项。熟悉perl的童鞋，一个hash就能搞定。
　　

• #!/usr/bin/perl -w
  
• 
  
• use strict;
  
• 
  
• my %hash;
  
• 
  
• open my $file,'