Traversing folders

[Dirk]

Hi,

I am new to Perl and I am trying to list all the folders within a given folder and I have the following code. I know it is simple but for some reason the program just stops and I am not seeing any error code being returned.

Does anybody have a good example of File::Find that they are willing to share. Examples are easier for me to follow.


#!/usr/bin/perl
#

use warnings;
use strict;
use File::Find;

my $path_name;
$path_name = '/test';

find sub {
return unless -d;
print "$File::Find::name\n";
},$path_name;

exit;

[Rainer Weikusat]

Dirk <dirk....@usa.net> writes:
> I am new to Perl and I am trying to list all the folders within a
> given folder and I have the following code. I know it is simple but
> for some reason the program just stops and I am not seeing any error
> code being returned.

[...]

> #!/usr/bin/perl
> #
>
> use warnings;
> use strict;
> use File::Find;
>
> my $path_name;
> $path_name = '/test';
>
> find sub {
> return unless -d;
> print "$File::Find::name\n";
> },$path_name;
>
> exit;

Works for me.

[Henry Law]

On 11/07/12 16:40, Dirk wrote:
> Hi,

>
> but for some reason the program just stops and I am not seeing any error code being returned.

Hmm; it works for me. Are you sure you're not getting anything? Does
"/test" exist? (That's the only thing I changed before I ran your code).

Try putting some "print" statements in, to make sure it's running at
all. Or use perl -d.

--

Henry Law Manchester, England

[Ben Morrow]

Quoth Dirk <dirk....@usa.net>:

You don't need to call 'exit' unless you want to exit early, or with an
error code. Falling off the end of a Perl program is the usual way to
exit successfully.

This program works correctly for me, with or without the 'exit'. How
exactly are you invoking it, and what output do you see?

Ben

[Hans Mulder]

On 11/07/12 17:40:59, Dirk wrote:
> Hi,
>
> I am new to Perl and I am trying to list all the folders within a given
> folder and I have the following code. I know it is simple but for some
> reason the program just stops and I am not seeing any error code being
> returned.
>

> #!/usr/bin/perl
> #
>
> use warnings;
> use strict;
> use File::Find;
>
> my $path_name;
> $path_name = '/test';
>
> find sub {
> return unless -d;
> print "$File::Find::name\n";
> },$path_name;
>
> exit;

Does '/test' exist on your system?

What happens if you try $path_name = '..'; ?

-- HansM

[Rainer Weikusat]

Ben Morrow <b...@morrow.me.uk> writes:
> Quoth Dirk <dirk....@usa.net>:

[...]

>> #!/usr/bin/perl
>> #
>>
>> use warnings;
>> use strict;
>> use File::Find;
>>
>> my $path_name;
>> $path_name = '/test';
>>
>> find sub {
>> return unless -d;
>> print "$File::Find::name\n";
>> },$path_name;
>>
>> exit;
>
> You don't need to call 'exit' unless you want to exit early, or with an
> error code. Falling off the end of a Perl program is the usual way to
> exit successfully.

JFTR: This is not necessarily always true. For instance, the embedded
perl interpreter Nagios may use for executing plugins written in Perl
complains about plugins which didn't exit 'properly' if there is no
explicit exit statement at the end of the code.

[Henry Law]

On 11/07/12 16:40, Dirk wrote:
>

> I am new to Perl and I am trying to list all the folders within a given folder and I have the following code.
> I know it is simple but for some reason the program just stops and I am not seeing any error code being returned.

> #!/usr/bin/perl
> #
>
> use warnings;
> use strict;
> use File::Find;
>
> my $path_name;
> $path_name = '/test';
>
> find sub {
> return unless -d;
> print "$File::Find::name\n";
> },$path_name;
>
> exit;

I'm home now and I went as far as making "/test" and a couple of
subdirectories on my personal machine, and ran your code exactly as it
is, superfluous "exit" statement and all. It runs perfectly. So you
have another problem; if you'd reply to some of the posts we'll try to
help you with it.

henry@eris:~/Perl/tryout$ sudo mkdir /test
henry@eris:~/Perl/tryout$ sudo chown henry:henry /test
henry@eris:~/Perl/tryout$ mkdir /test/one
henry@eris:~/Perl/tryout$ mkdir /test/two
henry@eris:~/Perl/tryout$ ./clpm
/test
/test/two
/test/one

[Dirk]

Thanks to everybody for their input. When I first ran the code I was running it for a folder that did not have a lot of sub-folders. When I ran it agains a very large folder I could not verify all folders and it appeared that I had some missing folders. After being able to verify all the folders and it appears that the code did return all sub-folders.

However, I did notice that I am getting a permission error. Something about not being able to change directory.

Thanks again for all the replies.