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