网站建设| 数据库类| 图形图象| 程序设计| 现代办公| 操作系统| 考试认证| 网络技术| 软件工程| 电脑相关| 文学作品
网站开发| 网页制作| 操作系统| 图象图形| 考试认证| 数据库类| 程序设计| 硬件技术| 现代办公| 网络技术| 笑话频道
 
您的位置: 电脑书库首页-> 电脑文摘-> 网站开发-> CGI/PERL-> 用Perl语句来代替常用的操作系统命令

用Perl语句来代替常用的操作系统命令
作者:佚名 来源:InterNet 加入时间:2005-3-31
相关文章
  • 用Perl制作页面计数器
  • 用 perl 实现文件上传
  • perl 域名查询程序
  • 一个支持HTTP续传下载的PERL程序
  • Perl的经典用法
  • Perl 程序的属性祥解
  • perl中的日期处理
  • perl在win32平台上直接操作打印机
  • Perl用于实现遗传算法
  • Perl 字符匹配实例解说
  • 相关书籍:
  • PERL 编程24学时教程
  • Perl Template Toolkit
  • Perl 24 小时自学通
  • CGI-Perl实例起步
  • 虽然许多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;

     

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


    [文章录入员:nancy]

    相关文章
  • 用Perl制作页面计数器
  • 用 perl 实现文件上传
  • perl 域名查询程序
  • 一个支持HTTP续传下载的PERL程序
  • Perl的经典用法
  • Perl 程序的属性祥解
  • perl中的日期处理
  • perl在win32平台上直接操作打印机
  • Perl用于实现遗传算法
  • Perl 字符匹配实例解说
  • 相关书籍:
  • PERL 编程24学时教程
  • Perl Template Toolkit
  • Perl 24 小时自学通
  • CGI-Perl实例起步
  • 本站推荐内容

    近期主机类热搜关键词:
    美国服务器 美国服务器租用 海外服务器租用 国外服务器租用

    CGI/PERL
    ASP/ASP.NET
    PHP技术
    JSP技术
    XML技术
    CGI/PERL
    WEB服务器
    WordPress专题
    其它
    电脑教程阅读排行
    ·perl中的日期处理
    ·深入研究表单提交方式:GET/P...
    ·如何利用Perl开发Intern...
    ·CGI应用程序开发基础
    ·本地调试PERL CGI程序
    ·PERL与MySQL(DBI接口...
    ·PerlScript编写ASP
    ·CGI编程--Perl的安装配置
    ·Perl用于实现遗传算法
    ·ASP、CGI、ISAPI、OD...