Perl处理Unix命令输出-Unix-操作系统-六狼论坛-IT论坛-计算机论坛

wind9984 发表于 2013-2-7 05:45:55

Perl处理Unix命令输出

http://www.blogjava.net/Images/OutliningIndicators/None.gif#!/usr/bin/perl-w
http://www.blogjava.net/Images/OutliningIndicators/None.gif
http://www.blogjava.net/Images/OutliningIndicators/None.gifopen(FILE,"ls-l|");
http://www.blogjava.net/Images/OutliningIndicators/None.gif
http://www.blogjava.net/Images/OutliningIndicators/None.gifwhile($line=<FILE>)
http://www.blogjava.net/Images/OutliningIndicators/None.gif{
http://www.blogjava.net/Images/OutliningIndicators/None.gifchop($line);
http://www.blogjava.net/Images/OutliningIndicators/None.gifprint$line,"\n";
http://www.blogjava.net/Images/OutliningIndicators/None.gif}
http://www.blogjava.net/Images/OutliningIndicators/None.gif
http://www.blogjava.net/Images/OutliningIndicators/None.gifclose(FILE);

页: [1]

六狼论坛's Archiver

Perl处理Unix命令输出