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'm sorry, change -d by -f, for get file names and not directory
bye
-- Mensagem original ---
De : masilva3 [EMAIL PROTECTED]
Para: cubic [EMAIL PROTECTED]
Cc : modperl [EMAIL PROTECTED]
Data: Sun, 27 Oct 2002 15:59:53 -0300
Assunto : Re: Get file list
Hi list,
I converted an cgi for mod_perl and sometimes it execute ok, in the
others, it show the code of cgi in browser.
Anybody know what occur ?
thank, Mauricio
