testglob.pl

测试glob的使用

use strict;
my @fileName;
chdir "e:/testsg" or die"Cannot move the directory:$!";
@fileName=glob "*.pl";
my $numFiles=@fileName;
foreach (@fileName){
	print "$_\n","$numFiles";
	}