站长论坛 站长下载

用Perl语句来代替常用的操作系统命令

　 2007年10月14日23:52:17　 评论(0条) 字体:[大 中 小]
相关热点： 操作系统 命令 常用 代替 语句 ### FILE2 FILE1

虽然许多CGI程序在不同的服务器上都运行得很好，但是还有一个问题，当程序员需要对文件进行拷贝，改名或删除时，他用的是特定的操作系统上的shell命令，而没有采用perl语句。 (例如， system("cp $file1 $file2")；) 这样做仅在Unix下行得通，而且，当你把未经检查的变量传给shell时，还将可能产生潜在的安全隐患。

下面是一些Perl语句，可以用来替换常用的操作系统命令，这些语句可以工作于任何操作系统上。

### 删除

unlink("$cgidir/file.dat");


### 改名

rename("$cgidir/oldfile.dat","$cgidir/newfile.dat");


### 拷贝

open(FILE1,"<$cgidir/file1.dat");

open(FILE2,">$cgidir/file2.dat");

binmode(FILE1);

binmode(FILE2);

while (<FILE1>) { print FILE2; }

close(FILE1);

close(FILE2);


### 设置文件权限

chmod(0777,"$cgidir/file.dat");


### 创建目录

mkdir("$cgidir/newdir",0777);


### 删除目录

rmdir("$cgidir/newdir");


### 当前日期/时间

$date = scalar localtime(time);

print $date;



通过使用上面介绍的这些技巧，你不仅可以节省时间，而且也可以写出更好的程序。



--------------------------------------------------------------------------------

责任编辑：

上一篇：用 perl 实现文件上传  
下一篇：用Perl制作页面计数器 (转载于上海热线)

收藏本文 打印本文 　 告诉好友　 投稿邮箱

相关新闻

·访问CGI变量
·LB5000XP论坛配合SERV-U获取系统管理员权限
·获取随机的由大小写字母和数字组成的八位密
·Perl在NT下的快速简便安装方法 （转）
·用Perl制作页面计数器 (转载于上海热线)
·用Perl语句来代替常用的操作系统命令
·用 perl 实现文件上传

最新评论共有 0 位网友发表了评论

发表评论

评论内容：不能超过250字，需审核，请自觉遵守互联网相关政策法规。

用户名： 密码： 验证码： 匿名? 注册

最新图文

• 
  做就做自己喜欢的
• 
  什么样的网上简历最“抢
• 
  一个女站长的网络历程
• 
  盘点"非主流"的发展史

• 
  Photoshop简单几步快速
• 
  Photoshop参数预设与图
• 
  Photoshop简单几步打造
• 
  无价：Photoshop制作一

新闻线索

如果你有站长界人事变动、重组并购、变革技术出现，以及产品投诉等重要新闻线索，请告诉我们，我们会给予特别关注。
0631-3653338
站长中国编辑部
站长中国24小时新闻热线： 13256307008