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 of the dir.
>
> 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 request
ed
> > 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 p
ri
> nts
> > something to user. And I have an abbracadabra in browser.
> > May be I've missed some better way of getting file names?
> >
> >
> >
>
>
>
