Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight

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 taking refuge in the Monastery: (7)
As of 2023-12-03 21:37 GMT
Find Nodes?
    Voting Booth?
    What's your preferred 'use VERSION' for new CPAN modules in 2023?

    Results (20 votes). Check out past polls.