Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number

How to view all files in the directory using CGI

by ArmandoG (Sexton)
on Dec 24, 2007 at 18:01 UTC ( #658907=perlquestion: print w/replies, xml ) Need Help??

ArmandoG has asked for the wisdom of the Perl Monks concerning the following question:

Hello !! I am not going to lie to you guys, I have no Idea on how to do this
being honest, I need to do a script that it will show me a specific directory (c:/file/out) in a webpage and that all the files be a link to be able to download them. Please is not for some homework

  • Comment on How to view all files in the directory using CGI

Replies are listed 'Best First'.
Re: How to view all files in the directory using CGI
by jZed (Prior) on Dec 24, 2007 at 18:11 UTC
    Which part are you having problems with - reading the directory? looping through the files? forming the correct URL from the filename? creating the html link with a template? displaying the web page?

    Whether it's homework or not, if you don't try something and tell us where you are stuck, we can't help.

      you are absolutly right! :o), sorry if did not read you sooner
      I have been working on some code, as far as now it show me only on /cgi-bin/ folder the file I want, but I like to change it to something like a server folder but for know just C:/files/err folder for now, I can display it on the Firefox browser, but if I click a link to the file is giving me an error, but i want a dialog to say if you open it or save it to disk. heres the code :
      #!c:/perl/bin/perl.exe use strict; use CGI; my $list = new CGI; my $fileDir = "./"; my @files; opendir DIR, "$fileDir" or die "Can't open $fileDir $!"; @files = grep { /\.(?:txt|err|csv)$/i } readdir DIR; closedir DIR; print $list->header("text/html"), $list->start_html("Archivos in $fileDir"), $list->p("Estos son los archivos de $fileDir"); foreach my $file (@files) { print $list->p( $list->a({-href=>$file}, $file) ); } print $list->end_html;
        If your only problem is reading the right directory,then all you need to do is change the line that sets $filedir to:
        my $fileDir ='c:/file/out';
        You'll also need to figure out what relation there is between that directory and a reachable URL path.

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://658907]
Approved by Corion
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others meditating upon the Monastery: (4)
As of 2023-12-04 20:03 GMT
Find Nodes?
    Voting Booth?
    What's your preferred 'use VERSION' for new CPAN modules in 2023?

    Results (25 votes). Check out past polls.