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
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
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
