listing files with fullpath in dir and sub dir

There was a post long time ago which had a snippet where one can read all files from a given directory and its sub directories along with the fullpath to each file, and also had a grep statement to list all .html files.

Do any one happen to have that snippet. I didn't find it in the devnet.

Thank You

Find more posts tagged with

Comments

nipper

I don't know the post you are referring to, however you can use something like this


use File::Find;
my $start = "y:/default/main/branch/WORKAREA/Content/";
my @flist=();

find(\&wanted, $start);

foreach $file(@list) {
print "$file\n" if ($file =~ m|\.html$|);
}

sub wanted {-f && push(@list, $File::Find::name);}

Bhargav Coca

thanks Andy, some how this worked better, **** but these two took like a min to run on my IDE.


use File::Find;

my @directory = ("y:/default/main/branch/WORKAREA/Content/");
my @sourcefiles;

find(\&sourcefind, @directory);

sub sourcefind {
    open(FL, $File::Find::name);
    push @sourcefiles, $File::Find::name if -f and /\.html*/ ; 
    close(FL);
}

foreach $srcfile (@sourcefiles) {
    print "$srcfile\n";
}

Thank You

nipper

Did both take about a minute ? You can improve mine with:

sub wanted {-f && $File::Find::name=~m|\.html$|i && push(@list, $File::Find::name);}

But if they are equally so then it may not help much.

How many files in your workarea ?

Bhargav Coca

i will try that too. Very few files, just 450.

Thanks

Adam Stoller

I don't know the post you are referring to, however you can use something like this


use File::Find;
my $start = "y:/default/main/branch/WORKAREA/Content/";
my @flist=();

find(\&wanted, $start);

foreach $file(@list) {
print "$file\n" if ($file =~ m|\.html$|);
}

sub wanted {-f && push(@list, $File::Find::name);}

Besides a typo or two (you declared @flist, but then used @list) - you could simplify this a bit (for the case stated) like:

use File::Find;
my $start = "y:/default/main/branch/WORKAREA/Content";
my @flist;
find(\@wanted, $start);
print join("\n", @flist) . "\n";

sub wanted {
    -f && /\.html$/ && push(@flist, $File::Find::name);
}

nipper

i will try that too. Very few files, just 450.

Thanks

That is extremely strange. I ran my code on a structure with about 1500 files (matching 1200 xml files) in about 10 seconds.

Mind you this is on a VMWare instance of TS on my laptop. So I really doubt it is more powerful than your server.

It took about 1 1/2 minutes for my 20K file workarea. How many files (total) in your workarea ?

Andy