Perl小技巧:文件操作($uid,$gid)=(getpwnam($username))[2,3]ordie"$usernotinpasswdfile";chown($uid,$gid,$file)orwarn"couldn'tchown$file.";运行结果:无输出代码讨论:有的时候,你可能知道一个用户名,而你想用这个用户名做些事,比如改变一个文件的所有者。但是不幸的是,Perl的chown命令不能接受用户名作为参数,但是可以接受一对数字:userid和groupid。虽然有这些不便之处,Perl并没有让我们陷入困境,我们可以把用户名作为getpwnam函数的参数,获得一个数组,里面包含了用户名对应的userid和groupid,分别对应着数组里的第二和第三个元素。 上一篇:构建一个Perl/CGI投票系统 下一篇:如何使用strict和warnings 更多相关文章
|
推荐文章
精彩文章
|