Personally, I would learn about recursion from a text book and use File::Find instead:

use strict;
use File::Find;

@ARGV = '.' unless @ARGV;

find sub {
    # do something with $_ 
    # which is the name of the current file
    print "got one!\n" if m/\.mp3$/;
}, @ARGV;
[download]

Jeff

R-R-R--R-R-R--R-R-R--R-R-R--R-R-R--
L-L--L-L--L-L--L-L--L-L--L-L--L-L--

I realise that i can't update my post in this section so...
You're right, I forgot the my in my question but that's not my real problem...
Thanks for your link.

I do believe you can update your node... =)

Greetz
Beatnik
... Quidquid perl dictum sit, altum viditur.

  use strict;

  my $dir = "/";
  my $file;

  sub openNewDir {
      my $dir = shift;
      my $dh;
      opendir ($dh, $dir);
      while ($file = readdir ($dh)) {
          next if (($file eq '.') || ($file eq '..'));
          if (-d "$dir/$file") { openNewDir("$dir/$file"); } 
          else {
              # Do something with the file
          }
      }
      close ($dh);
  }

  openNewDir ($dir);
[download]

1. Open to an anonymous typeglob ($dh) instead of a handle (DIR).
2. Test -d on "$dir/$file" instead of "$file".
3. Keep $dir in lexical scope by "my"ing it at the beginning of the subroutine.
4. Concatonate the directory and file correctly for the recursive call.
5. UPDATE: Skip the '.' and '..' directories.

-Ton

-----

Be bloody, bold, and resolute; laugh to scorn
The power of man...

That is exactly what I wanted. I need to declare a my $dh.
But I steel don't understand why my opendir ($dir, $dir) doesn't work :(
Thank you very much.
BoBiOne

I assume that you mean "why my opendir($dh,$dir) doesn't work". That is because when you opendir($dh,"/") and then readdir($dh), you'll get a file name like "usr" and then try to do opendir($dh,"usr") which isn't the same as opendir($dh,"/usr"). If your current working directory happens to be "/", then that call will work (by luck) and you'll read a file name like "home" and try opendir($dh,"home") when you should be doing opendir($dh,"/usr/home").

So you either need to chdir into each directory before you open the next one (and then chdir back out when you are done) or you need to keep track of the full path to each directory as you go so you can prepend it in several places.

        - tye (but my friends call me "Tye")

Alternatively, have a look at Re: How can I create an array of filenames?. That's truly recursive, and simple.

Jeroen
"We are not alone"(FZ)

With a little change:

our @list;
findfile('*');
sub findfile{
  my $glob = shift;
  for ( glob $glob ){
    push( @list, $_) if -f;
    findfile( $_.'/*' ) if -d;
  }
}
[download]

HTH
Dex

It's a good idea but is it really necesary ? Does an open file/dir handler use more ressource than @array ?
I am sure File::Find is THE way, as jeffa, idnopheq and you said, but my topic was "Recursive opendir without File::Find" (and it was troncate. ???).
Thanks again.
BoBiOne