用Perl语句来代替常用的操作系统命令 - 开源中国社区
来源:百度文库 编辑:神马文学网 时间:2024/07/01 10:50:40
虽然许多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 () { print FILE2; }
close(FILE1);
close(FILE2);
### 设置文件权限
chmod(0777,"$cgidir/file.dat");
### 创建目录
mkdir("$cgidir/newdir",0777);
### 删除目录
rmdir("$cgidir/newdir");
### 当前日期/时间
$date = scalarlocaltime(time);
print $date;
通过使用上面介绍的这些技巧,你不仅可以节省时间,而且也可以写出更好的程序。
![](http://www.zoomino.cn/static-blackgold/images/z-keyword.gif)
![](http://www.zoomino.cn/static-blackgold/images/z-keyword.gif)
![](http://www.zoomino.cn/static-blackgold/images/z-keyword.gif)
![](http://www.zoomino.cn/static-blackgold/images/z-keyword.gif)
![](http://www.zoomino.cn/static-blackgold/images/z-keyword.gif)
下面是一些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 (
close(FILE1);
close(FILE2);
### 设置文件权限
chmod(0777,"$cgidir/file.dat");
### 创建目录
mkdir("$cgidir/newdir",0777);
### 删除目录
rmdir("$cgidir/newdir");
### 当前日期/时间
$date = scalarlocaltime(time);
print $date;
通过使用上面介绍的这些技巧,你不仅可以节省时间,而且也可以写出更好的程序。
用Perl语句来代替常用的操作系统命令 - 开源中国社区
perl 文件读写详细说明 - 开源中国社区
Windows操作系统的常用运行命令,修复系统最佳命令【在网上找的一篇也发给大家看下】
常用的网络命令
常用的Ubiquity命令
利用键盘代替鼠标的常用操作
常用的SQL语句
常用的Flash语句
windows操作系统的ping命令大全
几个常用的操作系统简介
常用的DOS命令及注册表命令
用10大免费软件来代替盗版
用10大免费软件来代替盗版
为什么不准用短线来代替接地线?
常用的dos命令使用手册
Linux的常用网络命令
常用MySQL的命令集锦
几个常用的 Informix 命令
常用MySQL的命令集锦
一些常用的运行命令
Windows常用的网络命令
网络管理员常用的cmd命令
最常用的flash语句
最常用的Flash语句