跟我一起学 第3课

今天很累,还好这节课比较简单,就是获取用户档的信息,而对你获取的用户信息采取一定的处理.....
$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);
还有很多扩展呢,就是对文本就行处理!大家可以借助正则,能处理很多东西呢......有时间,我再把正则搞出来......

你可能感兴趣的:(脚本,管理,perl,系统)