论坛 › Perl › Perl处理Unix命令输出

774530750 发表于 2017-5-17 08:30:55

Perl处理Unix命令输出

#!/usr/bin/perl-w

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

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

close(FILE);

查看完整版本: Perl处理Unix命令输出