Perl处理Unix命令输出的一个例子

#!/usr/bin/perl -w
open ( FILE ,   " ls -l | "  );
while  (  $line   =   < FILE >  )
{
     chop ( $line );
     print   $line ,   " n " ;
}
close (FILE);