您的位置：首页 > 其它

Perl处理Unix命令输出

2009-07-31 08:44 281 查看


#
!/usr/bin/perl -w





open
( FILE
,

"
ls -l |
"
);





while
(
$line

=

<
FILE
>
)



{



chop
(
$line
);



print

$line
,

"
/n
"
;



}





close
(FILE);
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 点击这里给我发消息
标签： 
相关文章推荐
新的分享
章节导航