perl 学习之捕获系统输出 目的: 捕获调用系统命令的输出并打印到控制台。
#!/usr/bin/perluse warnings;# 捕获输出到列表。 my @outs = `tasklist`;# 输出列表行数。print "out lines count is " . @outs . "\n";#输出列表的每一行。foreach $line(@outs){print $line;}