ITPub博客

首页 > Linux操作系统 > Linux操作系统 > perl 实现shell 命令的文件保存操作

perl 实现shell 命令的文件保存操作

原创 Linux操作系统 作者:season0891 时间:2008-10-30 11:17:35 0 删除 编辑

my $file="test.txt";

my $cmd="ls";
open(FILE,"> ".$file);
print FILE $cmd."\n";
system($cmd." >>$file");
close(FILE);

$cmd="date";
open(FILE,">> ".$file);
print FILE $cmd."\n";
system($cmd." >>$file");
close(FILE);

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/90618/viewspace-481931/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2008-06-10

  • 博文量
    791
  • 访问量
    1939192