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?
Regards
Mimi
###############################################################
#!/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 />);
}
}
}
#######################################################
