You need opendir and readdir.

"The first rule of Perl club is you do not talk about Perl club."
-- Chip Salzenberg

use IO::Dir;

my $d = IO::Dir->new('.') or die("ack: $!");
print $_,"\n" for grep -f, $d->read;
[download]

_________
broquaint

It'll need a little work to adapt it to your environment, but it does most of what you asked for. Come back with your code when you've made your adaptions if you have any problems

perl -MCGI=:standard -e"print header, html({-title=>'My Files'}, map{ 
+a({href=>$_},$_).br().$/} <$ARGV[0]>);" *
[download]

use strict;

my $dir = "c:\\temp\\";

opendir (DIR, $dir) or die "Unable to open dir $dir : $!";
my @files = readdir(DIR) or die "Unable to readdir $dir : $!";
closedir DIR;

for (@files) { print "$_\n" }
[download]

my $dir = "c:\\temp\\";

For the benefit of any who might not know: You don't need to use backslashes when running on a Windows machine; Perl will do the right thing and convert a forward-slash path delimiter to the appropriate delimiter for whatever platform it's running on. That way you don't have to backslash escape your backslashes. You can just write:

my $dir = "c:/temp/";

which is just a little easier and less error prone, not to mention makes your programs a little less platform-specific. : )

Jon

Actually, it's not perl that does it. Forward slashes are recognized by Windows as equivalent to backslashes for purposes of path delimiting. It's only certain of the windows-based programs -- including the braindead command shell! -- that insist that forward slashes are only for indicating command-line options.

Thanks for the tip!
I can see it is useful in this and most other cases, but would it cause a problem if I wanted to concatenate $dir back with $_ and use it in a system call to DOS?
i.e. Perl likes /, but does DOS?

thank you for your help, but now how can create a link in my html page with @files ??? example: the folder is c:\temp the file is pippo.tif how can create ??? thank you claudia

i'm sorry but i have lost a part of question: example: the folder is c:\temp - the file is pippo.tif. I need to create a href ..... of all files in $dir how can create ??? thank you claudia

Try replacing the print statement above with :

print "<a href=\"$dir$_\">$_</a>\n"
[download]

I wonder if that is what you mean?