#!/usr/bin/perl -w # dirlist.pl use strict; # just declare the variables used later on my $dirname; my $filetype; ########################### # Begin editable variables ########################### # Filetypes to include my @filetypes=qw("*.pdf" "*.PDF" "*.txt"); # Directories to scan my @dirnames= qw( ./ test/ ); # filename to create my $filename="index.html"; ######################### # End editable variables ######################### foreach my $dirname (@dirnames) { print "\n"; print "$dirname$filename"; print "\n"; open FH, ">$dirname$filename" or die $!; print FH "\n Directory Listing\n \n"; print FH "Contents of the current directory:\n"; for my $filetype (@filetypes) { for (<$dirname/$filetype>) { print FH $_; print FH "\n"; } } print FH " \n \n"; } close FH