#
!/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 发布