小程序，用Perl显示Windows目录中的Log文件

#!/usr/bin/perl

`cd c:\\windows`;
@lines=`dir c:\\windows\\*.log`;
for($i=0; $i<@lines; $i++){
    print"$i\t\t$lines[$i]\n";
}

 

Perl真是太强大了，呵呵。

~~the end~~

尹曙光