Re: Process Directory and subdirectories Recursively

On Jan 28, 2008 6:56 AM, Mimi Cafe <[email protected]> wrote:
> Hi,
>
> I am trying to process a directory and all subdirectory recursively and
> generate a list as the Unix command "ls -R" will display, but this seems not
> to behave as it should.
> My script only goes as far as processing the directory and the 1 step below
> not more.
>
> I have some like, but the script goes as far as 1_child and 2_child but no
> further:
> /parent/1_child/1_grant_child/././
> /parent/2_child/2_grant_child/././
>
> The script will finally be used on Windows OS,  Unix system command cannot
> be used.
>
> Can anyone help?

I would suggest trying to use a CPAN module for this type of thing.
There may be others, but look at File::Find:

http://search.cpan.org/search%3fmodule=File::Find


>
> ###############################################################
> #!/usr/bin/perl -w
>
>
> # Recursively read content of a folder and dynamically create a list on an
> html page.
>
> use CGI qw(:standard);
> #use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
> #use warnings;
> use strict;
>
>
>
> print header(),
>  start_html("Documents list");
> print "<h1> Documents List</h1><br>\n";
>
> my $source = "/depot/my_directory";
>
> opendir (SOURCE, $source) or die "Cannot open the source folder for reading:
> $!\n";
>
> my $file;
> while (defined($file = readdir(SOURCE))){
>  next if $file =~ /^\.{1,2}$/;
>  my $full_name = "$source/$file";
>  if (-d $full_name){
>   #my $full_name = "$source/$file";
>   print qq(<b>$file</b><br>);
>   process($full_name);
>  }else{
>   print qq(<a href="$full_name>$file</a><br>);
>  }
>  #next;
> }
> closedir (SOURCE);
>
>
> print end_html();
>
>
>
> # Subroutine to process subdirectory and list content.
>
> sub process{
>
>  my ($path, $file, @files, $file_full_path);
>  $path = shift;
>  opendir (SUBDIR, $path) or die "Cannot open the subfolder for reading:
> $!\n";
>
>  @files = sort grep {!/^\.{1,2}$/} readdir(SUBDIR);
>  closedir (SUBDIR);
>
>  for (@files){
>   $file_full_path = "$path/$_";
>
>   if (-d $_){
>    print qq(<b>$_</b><br />);
>    process($_);
>
>
>   }else {
>
>    print qq(<a href="$file_full_path">$_</a><br />);
>
>   }
>
>  }
>
>
> }
> #######################################################
>