Select Liste ...: HTML::Template - #286 (Perl/CGI)

BlackExe

2007-07-07 03:19

User since
2007-03-25
49 Artikel
BenutzerIn
[default_avatar]

Hallo Leute ... :)

Mal wieder eine Frage?
Ich habe mir ein Script Programmiert, welches .dat Daten aus einen Pfad auflistet und in eine "Html Select Liste" einliest.
Per Button Klick wird dann ein ausgewählter Name in ein neues Textfeld geladen.
So das funktioniert alles wunderbar ...
Jetzt wollte ich das ganze in ein "HTML::Template" ausgeben aber das schaffe ich nicht.

Ich Sende mal den Source Code der Beispiel Datei:

Code: (dl )

#!C:\perl\bin\perl.exe
##!/usr/bin/perl -w
use strict;
use warnings;
use CGI qw(param);
use CGI::Carp qw(fatalsToBrowser);
$CGI::DISABLE_UPLOADS = 1;
print "Content-type: text/html\n\n";

my $auswahl = param('dateien');
my $dateiname;

print <<END;
<html><head>
<title>Test</title>
</head><body>
END

my $dir = "C:/xampp/cgi-bin";
print "<form action=\"\" method=\"post\">";
print "<select name=\"dateien\">";
opendir(DIR, "$dir") or die("Fehler beim Öffnen: $!");
while ( defined($dateiname = readdir(DIR)) ) {
next if ($dateiname !~ m/\.dat$/);
print '<option>'.$dateiname.'</option>', "<br>\n";
}
closedir(DIR) or die("Fehler beim Schließen: $!");

print <<END;
</select>
<input type="submit" value="Senden"> <br/>
<input tpye="text" name="data" value="$auswahl">
</form></body></html>
END

Code: (dl )

print '<option>'.$dateiname.'</option>', "<br>\n";

Und diese Daten wollte ich in das "HTML::Template" übergeben aber ich schaffe es nicht, das Ergebnis in eine Variable zuspeichern.

Code: (dl )

1
2
3

<select name="ergebnis">
<!-- TMPL_VAR NAME=ergebnis -->
</select>

Für die übergabe hatte ich mir das so gedacht?

Vieleicht hat ja einer einen Tipp, wie ich die Pfad Daten speichern und an die richtige stelle im Template übergeben kann?

Gruß Steve ... :)

Glaube denen, die die Wahrheit suchen, und zweifle an denen, die sie gefunden haben.