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

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

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

### 删除

vd;k;l www.it55.com rdfg

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

www.it55.com

### 改名 免费资源www.it55.com

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

IT资讯之家 www.it55.com

### 拷贝

免费资源www.it55.com

open(FILE1,"<$cgidir/file1.dat"); vd;k;l www.it55.com rdfg

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

http://www.it55.com/

binmode(FILE1);

binmode(FILE2);

while (<FILE1>) { print FILE2; }

close(FILE1); IT资讯之家 www.it55.com

close(FILE2);

### 设置文件权限

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

it55.com

### 创建目录 sflj www.it55.com kg^&fgd

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

### 删除目录

rmdir("$cgidir/newdir");
www.it55.com在线教程

### 当前日期/时间 免费资源www.it55.com

$date = scalar localtime(time);

免费资源www.it55.com

print $date;

 

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

（编辑：IT资讯之家 www.it55.com）