Hello dear monks,
I have a script that displays the content of a folder, the thing is that the script works half way, you see after displaying the list of files listed there if you try to save the file like "save link as" or even click on the file it gives you an error message this is the error message :
Internal Server Error
The server encountered an internal error or misconfiguration and was u
+nable to complete your request.
Please contact the server administrator, you@your.address and inform t
+hem of the time the error occurred, and anything you might have done
+that may have caused the error.
More information about this error may be available in the server error
+ log.
Oracle HTTP Server Powered by Apache/1.3.22 Server at localhost Port 8
+0
This is the whole code that I have right now
#!c:/perl/bin/perl.exe
use strict;
use CGI;
my $list = new CGI;
my $fileDir = "c:/files/err";
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;
Can someone help me ?
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.