Perl处理Unix命令输出

来源:互联网 发布:流程图软件有哪些 编辑:程序博客网 时间:2024/06/04 00:33

#!/usr/bin/perl -w

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

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

close(FILE);