listing files in a directory in perl

Soumya_R

I want to retrieve a list of files in a given directory.
I take the directory path through an HTML form. This directory path has to be passed on to a cgi/perl file which should in turn return a list of all files in that particular path.

Kindly suggest some function for this issue.

PS : Development box is on WINDOWS
I am an amateur at Perl. check the code snippets i tried.

Trial.ipl
=============

#!c:\iw-home/iw-perl/bin/iwperl

use CGI;
my $cgi = new CGI;
print $cgi->header('text/html');
if (defined $cgi->param('ok')) {
my %params = $cgi->Vars;
print "My name is: ${params{filepath}}
";
} else {
print qq(


Trial



filepath :






);
}


mycgi.ipl
==============================
#!c:\iw-home/iw-perl/bin/iwperl

use CGI;
my $cgi = new CGI;
print $cgi->header('text/html');
if (defined $cgi->param('ok')) {
my %params = $cgi->Vars;
print "My Filepath is: ${params{filepath}}
";
$stat=opendir(IMD,$params{filepath}) || die("could not open");
print "\n Contents of the directory is \n";
@theFiles=readdir(IMD);
foreach(@theFiles)
{
print $_. "\n \n ";
}
}

Adam Stoller

I want to retrieve a list of files in a given directory. I take the directory path through an HTML form. This directory path has to be passed on to a cgi/perl file which should in turn return a list of all files in that particular path. Kindly suggest some function for this issue. PS : Development box is on WINDOWS

Do you know Perl?
Do you know about perldoc?
Have you read any Perl books?

Getting a list of files in a directory with Perl is pretty trivial and basic stuff. If you're having problems with it - perhaps its better that you show what you've tried before we just do your work for you and hand you something that you use blindly and don't learn from.