今天很累,還好這節(jié)課比較簡(jiǎn)單,就是獲取用戶檔的信息,而對(duì)你獲取的用戶信息采取一定的處理.....
$passwd = "/etc/passwd";? #要處理的文件
open(PW,$passwd) or die "Can't open $passwd:$!\n";? #打開(kāi)文件句柄
while (<PW>){???? #循環(huán)讀取每一行,將每一行賦值給系統(tǒng)變量$_
??? ($name,$passwd,$uid,$gid,$gcos,$dir,$shell) = split(/:/); #用:分隔默認(rèn)的$_的值,將其值賦值給相? 應(yīng)的變量
??? # <your code here>? #干活
}
close(PW); #關(guān)閉文件句柄
[擴(kuò)展]
$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); 還有很多擴(kuò)展呢,就是對(duì)文本就行處理!大家可以借助正則,能處理很多東西呢......有時(shí)間,我再把正則搞出來(lái)......

總結(jié)

以上是生活随笔為你收集整理的跟我一起学perl系统管理脚本 第3课的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。