Thread Dateien und Ordner packen (4 answers)
Opened by karl34 at 2012-08-02 21:55

topeg
 2012-08-05 20:19
#160655 #160655
User since
2006-07-10
2611 articles
BenutzerIn

user image
2012-08-05T16:24:01 karl34
Danke für Deine Hilfe, das ist was ich gesucht habe, trotz dem das fast alle was im "find" geschieht ist für mich zu hoch.


Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
    # in $_ steht der aktuelle Dateiname
    # springe aus der anonymen Funktion wenn . oder sh oder .sh~
    return if( /(\.|\.sh|\.sh~)$/ );

    # der aktuelle Pfad
    my $path = $File::Find::name;

    # springe aus der anonymen Funktion, wenn es ein Ordner ist
    return if( -d $path );

    # füge dem Archiv die Datei hinzu
    my ( $file ) = $tar->add_files( $path );

    # mache aus dem Absoluten Pfad einen relativen bezüglich $VerzPfadNow
    my $name = File::Spec->abs2rel( $path, $VerzPfadNow );

    # ändere den Namen im Archiv
    $file->rename( $name );


2012-08-05T16:24:01 karl34
Der Grund, das Archiv wurde zwar erstellt aber immer nur mit dem Namen "1".


Ich habe das "s" bei sprintf vergessen. ist ergänzt

EDIT: Satz vernünftig geschrieben. War ja nicht zu verstehen.
Last edited: 2012-08-06 13:22:48 +0200 (CEST)

View full thread Dateien und Ordner packen