Opened by Gast at 2004-03-25 11:38
Hi @all,
hab ein Problem bei dem ich schon längere Zeit hänge...
Wollte die Zip-Funktion von Dateien in Perl nutzen, hatte aber schon bei der installation des Modules offline Probleme.
Habe nen xampp apache Server offline laufen ( c:\xampp\... )
und zusätzlich ActiveState Perl ( c:\Perl\... ), der als Interpreter von Perl Skripten genutzt wird.
Hab mir das Modul von ActiveState als *.zip heruntergeladen und offline installiert:
Dos-Konsole : ppm
install Archive-Zip.ppd
query ( und das Archive-Zip 1.09 wird angezeigt )
Jetzt hab ich folgenden Code ausprobiert:
Es erzeugt aber keine .zip Files . Hab auch schon in der Hilfe vom Modul nachgeschaut, aber nix gefunden. Hat das jemand mal umgesetzt???
Wäre für Hilfe dankbar....
MFG
crucho
PS : Hat nmake damit was zu tun ?
hab ein Problem bei dem ich schon längere Zeit hänge...
Wollte die Zip-Funktion von Dateien in Perl nutzen, hatte aber schon bei der installation des Modules offline Probleme.
Habe nen xampp apache Server offline laufen ( c:\xampp\... )
und zusätzlich ActiveState Perl ( c:\Perl\... ), der als Interpreter von Perl Skripten genutzt wird.
Hab mir das Modul von ActiveState als *.zip heruntergeladen und offline installiert:
Dos-Konsole : ppm
install Archive-Zip.ppd
query ( und das Archive-Zip 1.09 wird angezeigt )
Jetzt hab ich folgenden Code ausprobiert:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
#!c:\Perl\bin\perl.exe
use warnings;
print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">', "\n";print "<html>\n";
print "\n\n";
print "<html>\n";
print "\n";
print "<head>\n";
print "<title>TEST MODULE ARCHIVE::ZIP</title>\n";
print "</head>\n";
print "<body aLink=\"\#000000\" bgColor=\"\#F0F2FF\" bottomMargin=\"0\" leftMargin=\"0\" link=\"\#000000\"\n";
print "rightMargin=\"0\">\n";
print " Test 1 zum erzeugen von Zip-Files !\n";
use Archive::Zip;
my $pfad = "C:\xampp\htdocs\keys";
chdir $pfad or die "chdir nach '$pfad' nicht moeglich: $!";
my $zip = Archive::Zip->new();
$zip->addFile("C:\xampp\htdocs\cgi-bin\newuser.pl");
$zip->addfile("C:\xampp\htdocs\cgi-bin\edituser.pl");
my @Dateien;
find( sub {push @Dateien, $File::Find::name},"./Check/" );
for (@Dateien) {
if (-d) {
$zip->addDirectory($_);
}
else {
$zip->addFile($_);
}
}
my $zipname = 'check_V';
{
open CHECK, './Check/Check.pm' or die "Kann './Check/Check.pm' nicht oeffnen: $!";
my @checkinhalt = <CHECK>;
close CHECK or die "Kann './Check/Check.pm' nicht schliessen: $!";
(my $v) = grep s~^\s+\$Version\s*=\s*'([.\d]+[a-z]?)'\s*;\s*$~$1~, @checkinhalt;
$zipname .= $v;
}
$zipname .= '.zip';
$zip->writeToFileNamed($zipname);
print " Variablentest\n";
print "\n";
print "</body>\n";
print "</html>\n";
Es erzeugt aber keine .zip Files . Hab auch schon in der Hilfe vom Modul nachgeschaut, aber nix gefunden. Hat das jemand mal umgesetzt???
Wäre für Hilfe dankbar....
MFG
crucho
PS : Hat nmake damit was zu tun ?