Perl获取目录下文件或者包含子目录下文件

 1 my $dir = "D:\\My_Work\\Temp";
 2 my @files = ();
 3 
 4 #获取给定目录下文件
 5 @files = get_dir_files($dir);    
 6 
 7 #获取给定目录以及子目录下文件
 8 @files = get_dir_files_x($dir);
 9 
10 #获取目录下以及子目录下文件，返回的结果中包含路径
11 sub get_dir_files_x{
12     my ($dir_p) = @_;
13     my