请教：如何保存system函数执行中的显示信息

scooyy

我在编写主机间目录自动同步脚本时，使用了system函数去调用aix scp命令，同步数据没有问题，但发现无法将system部分的输出内容写入同步日志（$path/syn.log），不知道这块perl是否有内部变量或其它方法将system函数信息保存到文件？保存日志需采用追加模式，请高手指点，谢谢

我的程序架构如下:
open(LOG,">$path/syn.log" or die("Can't open $path/syn.log!" ;
print LOG "begin information\n";
system("scp -r scr_path1 username\@ip_address:desc_path1>>$path/syn.log";
system("scp -r scr_path2 username\@ip_address:desc_path2>>$path/syn.log";
print  LOG "end information\n";
close(LOG);

[ 本帖最后由 scooyy 于 2007-9-6 15:29 编辑 ]

nkcsx

用qx//

scooyy

如何来写，能否提示一下，谢谢

zhangkeyijian

常用  通用  含义  替换  
` `  qx//  执行命令  是  
qx/system/

scooyy

好，谢谢，我去试试，有问题再请教，3x:wink:

scooyy

你好，我还是不太会用这个函数，我是这样写的：
open(LOG,">$path/syn.log" or die("Can't open $path/syn.log!") ;
print LOG "begin information\n";
my $tmp=qx("scp -r scr_path1 username\@ip_address:desc_path1");
print LOG "$tmp";
close(LOG);
发现不行，$tmp始终为空，换了一种方法
open(LOG,">$path/syn.log" or die("Can't open $path/syn.log!" ;
print LOG "begin information\n";
my $tmp=`scp -r scr_path1 username\@ip_address:desc_path1`;
print LOG "$tmp";
close(LOG);
还是不行，$tmp依然为空
不知是何缘故？请高手指点

nkcsx

没出错的时候scp本来就没有回显，你要什么结果呀？

$tmp = qx/ls/;
print $tmp;

这个能显示么？

[ 本帖最后由 nkcsx 于 2007-9-6 18:14 编辑 ]

scooyy

我想要它执行时显示的copy文件名和进度信息，这些信息执行时是打在屏幕上的，我想输出一份日志中，毕竟脚本是crontab执行的，能实现吗？

nkcsx

用 scp -v .... 呢？

scooyy

好的，谢谢，我去试试