#!/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真是太强大了,呵呵。