# !/usr/bin/perl -w
open ( FILE , " ls -l | " );
while ( $line = < FILE > )
{
chop ( $line );
print $line , " /n " ;
}
close (FILE);
Perl处理Unix命令输出
最新推荐文章于 2020-07-18 18:27:30 发布