in reply to (tye)Re: Recursive opendir without
in thread Recursive opendir without

No, it's not a problem of "/" (even if my first exemple could be wrong).
I mean : if I take ton's code and replace $dh by $dir :

use strict;  # ---> IMPORTANT

my $dir = "toto";
my $file;

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

[download]
(I comment important lines).
use strict warm me : Can't use string ("toto") as a symbol ref while "strict refs" in use at test.pl line 13. (that mean during the readdir()).
And when I was trying to explain you, I think I understood why ;) (but not sure)
It could be that readdir() don't know if $dir is a "Directory Handler" or the "Directory" itself...

BoBiOne

Replies are listed 'Best First'.
Re (tilly) 3: Recursive opendir without
by tilly (Archbishop) on Apr 12, 2001 at 06:04 UTC
    $dir is a string (aka "toto") and you are trying to use it as a directory handle. How do you expect that to work?

    Let me give you a hint.

    Create a file called "tst" and run the following snippet without strict on. 

    my $file = "tst";
open ($file, $file) or die "Cannot read $file: $!";
print <tst>;

    [download]
    How did a filehandle get opened on the filehandle tst?

    Now read what strict 'refs' is supposed to disallow.

    UPDATE
    Not my link. tye pointed his tutorial out to me and I made the change...

[reply]
[d/l]
      Great thanks for your link strict. !
      BoBiOne
[reply]

In Section Seekers of Perl Wisdom