perl 怎么得到一个目录下的所有子目录名

zjm6533637

写的简单点  我没做过perl  复杂了 不好理解

谢谢各位

lululau

grep {-d} (<.*>,<*>)

zqy1005

這個你search一把，結果一堆。。

Perl_Er

回复 1# zjm6533637

给点提示 http://www.tutorialspoint.com/perl/perl_files.htm
   

Working with Directories

Following are the standard functions used to play with directories.

opendir DIRHANDLE, EXPR  # To open a directory
readdir DIRHANDLE        # To read a directory
rewinddir DIRHANDLE      # Positioning pointer to the begining
telldir DIRHANDLE        # Returns current position of the dir
seekdir DIRHANDLE, POS   # Pointing pointer to POS inside dir
closedir DIRHANDLE       # Closing a directory.

Here is an example which opens a directory and list out all the files available inside this directory.

#!/usr/bin/perl

opendir (DIR, '.') or die "Couldn't open directory, $!";
while ($file = readdir DIR)
{
  print "$file\n";
}
closedir DIR;

Another example to print the list of C source code files, you might use

#!/usr/bin/perl

opendir(DIR, '.') or die "Couldn't open directory, $!";
foreach (sort grep(/^.*\.c$/,readdir(DIR)))
{
   print "$_\n";
}
closedir DIR;

You can make a new directory using the mkdir function:

To remove a directory, use the rmdir function:

To change the directory you can use chdir function.

iamxesam

更复杂的File::Find模块可以用··

zjm6533637

回复  zjm6533637

给点提示
Perl_Er 发表于 2010-09-03 19:18

    你好，我想问下你这个可以达到遍历多层嵌套的目录吗？ 即子目录下还有子目录

Perl_Er

回复 6# zjm6533637


不行，你用File::Find模块吧

zjm6533637

LS的　关键是这个模块我不会啊

paktc

我来一个间接的，列出所有文件，然后判断是否为目录……
foreach (<*>) {
  if (-d $_) {print "$_\n"};
}

不过我发现可以控制层次
像这样，
foreach (<*/*/*>) {
  if (-d $_) {print "$_\n"};
}
会指定列出三层的目录。


遍历所有的话要么自己写递归，要么用模块吧
俺是学习中人，还没成的，模块还不会用。

songguoqiang122

其实方法很多，比如楼上说的 find package，
其实如果你熟悉shell的话，也可以用system调用shell，比如 system “ls -lR|grep ^d|less”；
当然你也可以自己写一个递归，类似如：
#!/usr/bin/perl
sub get_dir () {
my @my_path = @_;
foreach my $file (@my_path) {
    if (-d $file) {
        print "Find The Dirfile\n";
         my @list=glob "$file/*";
         if ( ! @list) { #empty dir
              print "Find The Dirfile\n";
              } else {
                       &get_dir ( @list ); #recall get_dir
              }
           }
     }
}
&get_dir (glob " $target_dir/*";

.......


当然可能还有其他的更好的方式吧，我就不多说了。。。。