Daten per POST versenden mit Zugriff auf HIDDEN field, HILFE dringend ! - #113096 (Webframeworks, Sonstige Fragen zur Webprogrammierung mit Perl)

Gast Gast

2008-08-05 11:44

Das Skript läuft firmenintern !

Wen ein User auf ein Verzeichnis klickt, möchte ich den Verzeichnisnamen übergeben und dann auslesen.

Wenn ich eine Variable gesetzt habe, lese ich die Dateien aus dem Verzeichnis, sonst my $Verzeichnis = "D:/CM/xampp".

Wie mache ich das ???????????????????

so sieht es aus :

Code (perl): (dl )

use strict;
use CGI::Carp qw(fatalsToBrowser);

my $Verzeichnis = "D:/CM/xampp";
opendir(DIR, $Verzeichnis) || die "$Verzeichnis: $!";
my @Dateien = readdir(DIR);
closedir(DIR);

print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">', "\n";
print "<html><head><title>Index</title></head><body>\n";

print "<style type=\"text/css\">";
print "h1 { color:red; font:arial; font-size:48px; }";
print "td { color:black; font:arial; font-size:16px; }";
print "</style>";

print $0;

print "<form action=\"http://localhost/perl/cc_index.pl/\" method=\"post\">";

print "<table>";
print "  <tr>";
print "    <td width=\"300\">Dateiname</td>";
print "    <td width=\"300\">Typ</td>";
print "  </tr>";

foreach(@Dateien) {
print "<input type=\"hidden\" name=\"Datei\" value=\"$_\">";

print "  <tr>";
print "    <td width=\"300\">$_</td>";
if(-d $_) { 
print "<td width=\"300\"><input type=\"submit\" value=\"weiter\"></td>";
}
else {
print "<td width=\"300\"><img src=\"D:\/CM\/bilder\/Reader-32.pdf\" width=\"14\" height=\"10\" alt=\"PDF\">&nbsp;<br></td>";
}
print "  </tr>";
}

print "</table>";
print "</form>";
print "</body></html>\n";