you can use opendir, like this:
opendir($refdir, "/home/user") or
die "Err in opendir($refdir,/home/user) : $!";
my $filedir;
while ($filedir = readdir($refdir))
{
next if ($filedir =~ /\.{1,2}/);
push(@dirs, $filedir) if (-d "/home/user/$filedir");
}
closedir($refdir);
I don't know if this resolve your problem.
bye
> ---------- Mensagem original -----------
>
> De : "Ruslan U. Zakirov" <[EMAIL PROTECTED]>
> Para : [EMAIL PROTECTED]
> Cc :
> Data : Sun, 27 Oct 2002 20:30:23 +0300
> Assunto : Get file list of the dir.
>
> I'm writing handler which generate some html from files in requested
> dir if requested file does not exist.
> I have a problem with getting file list of the directory.
> I've tried to use IO::Dir, like this
> my @htmls;
> my $dh = new IO::Dir ($req_dir);
> if (defined $dh)
> {
> while (defined($_ = $dh->read))
> {
> if(m/(\w*?\.html)/)
> {
> unshift(@htmls,$_);
> }
> }
> }
> This code successfully create array, but at the same time apache pri
nts
> something to user. And I have an abbracadabra in browser.
> May be I've missed some better way of getting file names?
>
>
>
