今天很累,还好这节课比较简单,就是获取用户档的信息,而对你获取的用户信息采取一定的处理.....
$passwd = "/etc/passwd";  #要处理的文件
open(PW,$passwd) or die "Can't open $passwd:$!\n";  #打开文件句柄
while (<PW>){     #循环读取每一行,将每一行赋值给系统变量$_
    ($name,$passwd,$uid,$gid,$gcos,$dir,$shell) = split(/:/); #用:分隔默认的$_的值,将其值赋值给相 

    应的变量
    # <your code here>  #干活
}
close(PW); #关闭文件句柄
[扩展]
$sname="jack";
$passwd = "/etc/passwd";
open(PW,$passwd) or die "Can't open $passwd:$!\n";
while (<PW>){
    ($name,$passwd,$uid,$gid,$gcos,$dir,$shell) = split(/:/);
       if($name=$sname){
            print "System has $sname!";  
       }
}
close(PW);

还有很多扩展呢,就是对文本就行处理!大家可以借助正则,能处理很多东西呢......有时间,我再把正则搞出来......

本文转自hahazhu0634 51CTO博客，原文链接：http://blog.51cto.com/5ydycm/115706，如需转载请自行联系原作者