Question

写一个perl程式，调用了一个函数&fun()，函数会在屏幕上print一些信息，想要获取屏幕上的这些信息该怎么做

不是调用shell命令，是函数哦，这个函数改不了。

Answer 1

open (STDOUT, '>', "foo.out") or die "Can't redirect STDOUT: $!";
&fun()

Answer 2

这问题问得。不明确你说什么。
获取屏幕信息？用什么获取？用眼睛看就可以，然后复制粘贴。

如果需要自动保存为文件的话，可以用nohup运行，屏幕输入保存在nohup.out里。（仅限linux 系统）

当然最好的办法就是更改fun（）函数。