glob用法显示文件夹下所有文件和文件夹+perl Cwd

glob用法显示文件夹下所有文件和文件夹

use Cwd;
$dir = "kernel-based/*";
my @files = glob( $dir );
 $i=0;
foreach (@files ){
   print $_ . "\n";
   $i+=1;
}
 print $i;

perl Cwd

这个模块提供了用来确定当前工作目录的路径名的方法。

use Cwd;
my $dir = getcwd;