下面是一些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;
通过使用上面介绍的这些技巧,你不仅可以节省时间,而且也可以写出更好的程序。
--------------------------------------------------------------------------------
文章整理:站长天空 网址:http://www.z6688.com/
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!




