perl 学习之捕获系统输出

目的：捕获调用系统命令的输出并打印到控制台。

#!/usr/bin/perl
use warnings;

# 捕获输出到列表。 
my @outs = `tasklist`;
# 输出列表行数。
print "out lines count is " . @outs . "\n";
#输出列表的每一行。
foreach $line(@outs){
	print $line;
}