Re: [Omaha.pm] Perl and recursion...

["Daniel Linder" <dan@linder.org>]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

On Tue, November 15, 2005 13:31, Theodore Katseres wrote:
> It appears that no recursion is happening passed the initial dive.
{
> ProcFiles("/tmp") }

I agree -- when I take out the '&ProcFiles("$dir/$file");' line, it
continues through the /tmp directory fine.  With the recursive call
to itself, I can watch the script dive into the sub-directory (/tmp/dir1),
and it processes all the files in /tmp/dir1, but when it finishes with the
files in "dir1" the program quits.  Unless I am missing
something, I thought it should go back one level to the initial invocation
of ProcFiles and continue where it left off there...

> Check my comments.
> 
> <Snip && Replace>
> #!/bin/perl -w
> use strict;
> 
> sub ProcFiles {
>     my $dir = shift;
> 
>     opendir( DIR, $dir ) or die $!;
> 
>     while ( my $file = readdir(DIR) ) {
> 
>         next if ( -d "$dir/$file" && $file =~ /^\./
);
> 
>         # above makes sure this block of code never gets executed

The line you mention ("next if ...") is used to make sure I skip
the "." and ".." entries in the subdirectory --
otherwise it would back out of the "/tmp" to "/" and
work there! :(  (It also has the effect of ignoring files with a
leading "." -- that's also by design.)

>         if ( -d "$dir/$file" ) {
> 
>             printf( "Diving into\"%s/%s\".\n",
$dir, $file );
> 
>             &ProcFiles("$dir/$file");
> 
>             next;
> 
>         }
> 
>         # your printing files that don't begin with "."

True -- in my real script, this print line is replaced with a small bit of
code to do some real work! In the example I posted to OLUG I wanted to
keep it simple and see if I could make it work...

>         printf( "Adding\"%s/%s\".\n", $dir, $file
);
> 
>     }
> 
>     closedir(DIR);
> 
> }
> 
> &ProcFiles("/tmp");

Ted, thanks for your input.

Dan

- - - - -
"Wait for that wisest of all counselors, time." -- Pericles
"I do not fear computer, I fear the lack of them." -- Isaac
Asimov
GPG fingerprint:6FFD DB94 7B96 0FD8 EADF  2EE0 B2B0 CC47 4FDE 9B68

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.1 (GNU/Linux)

iD8DBQFDejqusrDMR0/em2gRAtT2AJ9cL6zR+u/XpmGtjXNCCM/Y9WDcvwCfY1Fp
qXscyNVDA6vb5H8MuKUrEtM=
=mFaZ
-----END PGP SIGNATURE-----