Thread Dateien eines Zip's umbenennen mit Archive::Zip
(3 answers)
Opened by tecker at 2009-10-15 10:07
Hi,
ich habe folgendes Problem. Ich ermögliche Usern via Webinterface Dateien bzw. Zip Archive hochzuladen. Diese werden dann über ein Skript entpackt und gespeichert. Funktioniert alles soweit. Ich möchte jedoch die Dateien mit einem individuellen Namen versehen und diesen auch für andere Zwecke in einer Datenbank speichern. Wie kann ich den Namen vorm oder beim entpacken ändern? Wird dazu die memberNames() Methode benutzt? Genau genommen befinden sich *.jpg Dateien in den ZIP-Archiven die ich gern mit einer ID versehen möchte. Danke Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 [...] my $zip = Archive::Zip->new(); my $archive = "path/file.zip"; die "can't read .zip" unless $zip->read($archive) == AZ_OK; # Hier evtl. die Dateien umbenennen bevor sie entpackt werden?? # my @members = $zip->memberNames(); $zip->extractTree('', "path/folder/"); [...] |