Perl处理Unix命令输出

wind9984

#!/usr/bin/perl-w

open(FILE,"ls-l|");

while($line=<FILE>)
{
chop($line);
print$line,"\n";
}

close(FILE);