请教一个perl抓可执行程序print到屏幕的信息的问题
用perl运行一个可执行程序
system("aaa.exe","test.in","test.out");
运行程序aaa test.in 和test.out是两个参数
我现在想用perl来抓aaa程序运行后打印到屏幕上的信息,请问怎么抓,试了好几个都有问题。
my $fun = sub{return system("aaa.exe","test.in","test.out");};
&{$fun};
open (OPP,'<',$fun)
while(<OPP>){
pring "$_\n";
}
#总是报句柄已经关闭 也就是说 没有成功打开$fun。 请问哪里错了!
或者有其他方法可以获取到吗?谢谢了
[解决办法]
$fun是一个函数。为啥你觉得可以打开这个函数?
[解决办法]
路过,帮顶。
[解决办法]
使用文件重定向。
system("aaa.exe test.in test.out >OUT");
然后打开OUT文件,去读里边的内容,应该是你想要的。
[解决办法]
攒一个。