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

版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文链接： https://blog.csdn.net/zhoutianzi12/article/details/100065155

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