perl捕获system的输出

今天想做个小工具,需要对system所调用的程序的输出再次处理,又不想用临时文件的方法,上网查了好久才搞明白,为了后来者,就写出来好了

 

1.使用重定位的方法,比如:

 

system "path >> d:\\path.txt";

 

然后再对临时文件 path.txt 处理

 

2.使用 `  (这个是tab上面的`)

 

就是这个东东,弄了好久才搞明白...一定是 TAB 上面的 ` 不是 ~,也不是单引号'

my $path = `path`;
print $path;

 

3.使用qx//

//是分隔符,也可以用其他符号代替,比如!,[],()

my $path = qx/path/;
print $path;