win下哪个模块查找文件最好用？

justin764

原来一直使用 file::find，最近发现它遇到windows的超长文件名时会出错，导致整个perl退出，请问各位觉得哪个文件查找模块最好用？

ulmer

Using Win32::OLE and call WSH/VBS Object such as "Scripting.FileSystemObject".

sample code:

1. 
   
2. use strict;
   
3. use warnings;
   
4. use Win32::OLE qw/in/;
   
5. 
   
6. my $searchDir = "C:\\temp";
   
7. my $objFolder = $fso->GetFolder($searchDir);
   
8. 
   
9. sub findFile {
   
10.     my ($objFolder, $searchPattern) = @_;
    
11.     my $colFolders = $objFolder->SubFolders();
    
12.    
    
13.    
    
14.     foreach my $objSubFolder (in $colFolders) {
    
15.         # processing folder        
    
16.         ...
    
17.         foreach my $objFile (in $colFiles) {
    
18.             # processing file
    
19.             ...
    
20.             #  regexp pattern
    
21.            }
    
22.         }
    
23.         # print result
    
24.         ....
    
25.         # recursive
    
26.         findFile($objSubFolder, $searchPattern);
    
27.     }
    
28. }
    
29. 
    
30. # main
    
31. findFile($objFolder, qr /.inf$/i);
    
32. 
    

复制代码

兰花仙子

ulmer is right.
I do remember there is such a module doing that, but I forgot the name.