nicht angemeldet
Hallo noch einmal...
Hier ist ein _BEISPIEL_ für die verwendung von perl und Archive::Zip
--- kopieren ab hier ----
#!/usr/bin/perl
use CGI;
use Archive::Zip;
$q = new CGI;
$input_file = $q->param("FILE");
print $q->header();
print "<HTML>\n";
print "<HEAD>\n";
print "</HEAD>\n";
print "<BODY>\n";
print "Datei wird gezippt...\n";
$zip = Archive::Zip->new();
$zip->addFile($input_file);
$zip->writeToFileNamed($input_file.".zip");
print "Erledigt.\n";
print "Download hier:\n";
print "<A HREF="".$input_file.".zip""">Klick hier</A>\n";
print "</BODY>\n";
print "</HTML>\n";
---- kopieren bis hier ----
weiter information im manual von Archive::Zip und im perl manual...
bei google.de nach "man perl" oder "man Archive::Zip" suchen...
S. Baltzer