testglob.pl

来自「测试glob的使用」· PL 代码 · 共 8 行

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