新手请教，如何用PERL获取某个目录的所文件的文件名

fang3984581

Cu_fans 发表于 2011-06-04 12:32

    大侠，调不出来啊

fang3984581

next if /^\.{1,2}$/;
兰花仙子 发表于 2011-06-04 12:31

    不懂，能帮写个完整的吗？谢了啊

Cu_fans

1. opendir(DIR,'d:/www');
   
2. my @arrFile = grep {!/^\./} readdir DIR;
   
3. for my $file(@arrFile )
   
4. {
   
5. 
   
6.        print $file,"\n";
   
7. }

复制代码

这样应该可行

x9x9

不懂，能帮写个完整的吗？谢了啊
fang3984581 发表于 2011-06-04 12:43

这样应该可以懂了。

1. opendir(DIR,'d:/www');
   
2. 
   
3. while(my $file = readdir(DIR))
   
4. 
   
5. {
   
6.           next if ($file eq '.');
   
7.           next if ($file eq '..');
   
8. 
   
9.        print $file,"\n";
   
10. 
    
11. }
    
12. 
    
13. closedir(DIR);

复制代码

fang3984581

都是大好人，谢绝各位啦

doiob

谢绝？？？

aef25u

以下代码适用于XP系统

1. use Cwd;
   
2. use Win32::OLE;
   
3. use Moo***;
   
4. 
   
5. #use Data::Dumper;
   
6. #############################################################################
   
7. class SearchFile {
   
8.     has regex =>
   
9.       ( is => 'rw', isa => 'Str', required => 1, default => '.*\.doc$' );
   
10. 
    
11.     #弹出窗口，以供选择目标文件夹
    
12.     method _Path {
    
13.         my $shell     = Win32::OLE->new("shell.Application");
    
14.         my $objFolder = $shell->BrowseForFolder( 0, "Select a folder:", 0 );
    
15.         my $Path      = $objFolder->Self->{Path};
    
16.         $Path =~ s/(\\)/\//g;
    
17.         return $Path;
    
18.     }
    
19. 
    
20.     #遍历搜索文件，支持正则表达式
    
21.     method File_Find {
    
22.         my $tem      = $self->regex;
    
23.         my $qr_regex = qr/$tem/;
    
24.         my $Path     = $self->_Path();
    
25.         my @dirs     = ( $Path . '/' );
    
26.         my ( @retFile, $dir, $file );
    
27.         while ( $dir = pop(@dirs) ) {
    
28.             local *DH;
    
29.             if ( !opendir( DH, $dir ) ) {
    
30.                 warn "Cannot opendir $dir: $! $^E";
    
31.                 next;
    
32.             }
    
33.             foreach ( readdir(DH) ) {
    
34.                 if ( $_ eq '.' || $_ eq '..' ) {
    
35.                     next;
    
36.                 }
    
37.                 $file = $dir . $_;
    
38.                 if ( $file =~ /$qr_regex/ ) {
    
39.                     push( @retFile, $file );
    
40.                 }
    
41.                 if ( !-l $file && -d _ ) {
    
42.                     $file .= '/';
    
43.                     push( @dirs, $file );
    
44.                 }
    
45.             }
    
46.             closedir(DH);
    
47.         }
    
48.         return \@retFile;
    
49.     }
    
50. 
    
51. }
    
52. #############################################################################
    
53. my $objFind=SearchFile->new(regex=>'.*\.xls');
    
54. #my $objFind=SearchFile->new();
    
55. my $ffn=$objFind->File_Find();
    
56. print join("\n",@{$ffn});

复制代码

第三行用

zhlong8

敏感词，真的是敏感词啊

kakane1

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my $dir_to_files = "E:\\沉淀目录\\Perl\\源代码\\csdn测试\\文本处理";
   
7. my $all_file;
   
8. my $file;
   
9. opendir DH, $dir_to_files or die "Can't open $dir_to_files:$_!\n";
   
10. foreach $file (readdir DH) {
    
11.         #print "one file in $dir_to_files if $file\n";
    
12.     next if $file =~/^\./;  #跳过以点号开头的文件
    
13.         #如果要排除当前目录和上层目录，则可直接写明：
    
14.         #next if $file eq "." or $file eq "..";
    
15.         $all_file ="$dir_to_files/$file";#合并为完整路径
    
16.                 print "$all_file\n";
    
17.         print "$file\n";
    
18. }
    
19. 
    
20. closedir DH;
    

复制代码

aef25u

敏感词，真的是敏感词啊
zhlong8 发表于 2011-06-06 17:13

我都不只郁闷一回了{:3_204:}