Sudarsan Raghavan wrote:
> Bryan R Harris wrote:
>
> > I have a large directory tree that I'd like to build index files for,
> > essentially an
> >
> > ls > index.txt
> >
> > in each directory in the tree. Obviously I'm having trouble figuring it
> > out. =)
> >
> > I've tried the following:
> >
> > use File::Find;
> > sub process_file {
> > if (-d) {
> > $tmp = `ls $_`;
> > open(OFILE, "> index.txt") || die ("Couldn't open index.txt: $!\n");
>
> You are opening the file in write mode always, this will clobber the
> contents.
> Finally you will end up with just entry that was written
Sorry, should have read your code properly
This is why you were having problems
Assume this dir structure
top_level_dir
sub_dir_1
sub_dir_2
When find passes sub_dir_1 to process_file subroutine your current directory
is top_level_dir, where you are also opening and writing into index.txt (the
files inside sub_dir_1).
When sub_dir_2 is passed you do the same, actually the file listing of
sub_dir_1 is lost
and replaced by that of sub_dir_2.
As you can see the file listing of sub_dir_1 is actually being written into
index.txt of its parent.
This also explains why the last level directory does not have a index.txt.
>
>
> >
> > print OFILE $tmp;
> > close(OFILE);
> > }
> > }
> > find(\&process_file, @ARGV);
> > print "\n";
> >
> > But it misses the deepest level of directories. Is there an established
> > way of doing this kind of thing?
>
> $File::Find::dir contains the current directory being processed and $_ the
> current file
> This should work for you
> #!/usr/local/bin/perl -w
> use strict;
> use File::Find;
>
> find (\&process_file, @ARGV);
> sub process_file {
> open (INDEXFILE, ">> $File::Find::dir/index.txt") or
> die "Cannot open $File::Find::dir/index.txt : $!\n";
> print INDEXFILE;
> close (INDEXFILE);
> }
>
> But this seems like a lot of opens considering that you have huge directory
> tree
> You can build a hash of arrays with the directory name as the key and a
> array
> of filenames. After you are finished processing dump them individually into
>
> their respective files.
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
