I think you should have posted this Seekers
for Perl wisdom... but anyways...
sub ArchiveDir
{
my $Directory=shift||'.';
my $OutputFile=shift||'dircontents.txt';
opendir INDIR,$Directory or die "Cannot open $Directory: $!\n";
open OUTFILE,">$OutputFile" or die "Cannot open $OutputFile for outpu
+t: $!\n";
print OUTFILE "$Directory/$_\n" for (readdir(INDIR));
close OUTFILE;
closedir INDIR;
};
OR:
sub ArchiveDir
{
my $Directory=shift||'.';
my $OutputFile=shift||'dircontents.txt';
open OUTFILE,">$OutputFile" or die "Cannot open $OutputFile for outpu
+t: $!\n";
print OUTFILE "$_\n" for <$Directory/*>;
close OUTFILE;
};