跟我一起学 第3课
应的变量 # #干活}
close(PW); #关闭文件句柄
[扩展]
$sname="jack";
$passwd = "/etc/passwd";
open(PW,$passwd) or die "Can't open $passwd:$!\n";
while (){
($name,$passwd,$uid,$gid,$gcos,$dir,$shell) = split(/:/);
if($name=$sname){
print "System has $sname!";
}
}
close(PW);
页:
[1]