• 丰搜首页
• 文档中心
• 视频中心
• 丰搜贴吧
• 问题集锦
• 更多功能

选择显示字体大小

• 最大
• 较大
• 标准

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

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

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

### 删除

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

### 改名

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

### 拷贝

open(file1,&quot;<&#36;cgidir/file1.dat&quot;);

open(file2,&quot;>&#36;cgidir/file2.dat&quot;);

binmode(file1);

binmode(file2);

while (<file1>) { print file2; }

close(file1);

close(file2);

### 设置文件权限

chmod(0777,&quot;&#36;cgidir/file.dat&quot;);

### 创建目录

mkdir(&quot;&#36;cgidir/newdir&quot;,0777);

### 删除目录

rmdir(&quot;&#36;cgidir/newdir&quot;);

### 当前日期/时间

&#36;date = scalar localtime(time);

print &#36;date;

 

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

　　

 

关键字 本文所属关键字

相关 与本文相关文章

分类 所有文章关键字导航

标准 网站致力的规范