Dateien eines Zip's umbenennen mit Archive::Zip (Allgemeines zu Perl)

[thread]14144[/thread]

Dateien eines Zip's umbenennen mit Archive::Zip

Leser: 19

Articles: hide open all | hide show old branches

+4 replies

tecker

2009-10-15 10:07

User since
2008-02-26
77 Artikel
BenutzerIn

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 )

[...]
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/");
[...]

www.webentwickler24.com

nepos

2009-10-15 10:43

User since
2005-08-17
1420 Artikel
BenutzerIn

Denke mal, du musst das in etwa so machen:

Code (perl): (dl )

my $zip = Archive::Zip->new();
my $archive = "path/file.zip";
die "can't read .zip" unless $zip->read($archive) == AZ_OK;

my @members = $zip->memberNames;
foreach my $member(@members) {
    my $newMemberName = ...;
    $zip->extractMember($member, $newMemberName);
}

+2 replies

renee

2009-10-15 11:01

User since
2003-08-04
14371 Artikel
ModeratorIn

Wenn Du es direkt im .zip umbenennen willst:

Quote
fileName()

Get or set the member's internal filename. Returns the (possibly new) filename. Names will have backslashes converted to forward slashes, and will have multiple consecutive slashes converted to single ones.

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

tecker

2009-10-24 23:00

User since
2008-02-26
77 Artikel
BenutzerIn

just to know .. hatte es dann wie folgt gelöst. dateien im Ziparchiv werden umbenannt, mit id versehen, im folder gespeichert, dateiname in DB geschrieben und zip gelöscht. so wie ich es wollte.

Code (perl): (dl )

my $zip = Archive::Zip->new();
                                my $archive = "$upload_dir/$file";
                                
                                die "can't read .zip" unless $zip->read($archive) == AZ_OK;
                                
                                my @members = $zip->memberNames;
                                foreach my $member(@members) 
                                {
                                        my @member_parts = split(/\./,$member);
                                        my $file_id = int(rand(10000000));
                                        my $newMemberName = "../fotos/$album/$file_id\."."$member_parts[1]";
                                        my $db_name = "$file_id\."."$member_parts[1]";
                                        $zip->extractMember($member, $newMemberName);
                                        
                                        my $sql_insert = "INSERT into fotos VALUES('','$db_name','')";
        
                                        my $prepare_insert = $dbh->prepare( $sql_insert ) || die $dbh->errstr;
                                        $prepare_insert->execute() ;
                                        $dbh->disconnect();
                                        unlink $member;
                                        
                                } 
                                
                                
                                unlink $archive;

www.webentwickler24.com

View all threads created 2009-10-15 10:07.