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

karl34
 2012-08-02 21:55
#160524 #160524
User since
2011-10-24
5 articles
BenutzerIn
[default_avatar]
Hallo zusammen,

ich versuche mir ein Perl Script zu bauen, dass mir alle Dateien und Ordner plus Dateien und Unterordner da drunter packt.
Leider kann ich nur in der erste Eben packen, alles was sich da drunter befindet wird nicht gepackt :-(
Die gepackte Ordner sind auch leer :-(

Hier mein Entwurf:
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
#! /usr/bin/perl 

use strict;
use warnings;

use Cwd;
use Archive::Tar;
use IO::Zlib;
use IO::Compress::Bzip2 qw(bzip2 $Bzip2Error) ;
use Compress::Zlib;
use File::Basename;

my $strVereichnisZiel = "/home/mein_user/sicherung/";
my $VerzPfadNow = cwd . '/';

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
my $datum = sprintf "%04d_%02d_%02d" , $year+=1900 , $mon+=1 , $mday ;
my $strZielVerzeichnis = $strVereichnisZiel."sicherung_".$datum.".tar.bz2";

my $result=opendir(DIR,$VerzPfadNow) || die $!;

my @files = grep { !/(\.|\.sh|\.sh~)$/ } readdir(DIR);
close DIR;

my $tar = Archive::Tar->new;

foreach my $dateien ( @files )
{
print "$dateien\n"; # nur Testausgabe
$tar->add_files( $dateien);
}
$tar->write( $VerzPfadNow."datei_jetzt6_1.tar" );

# ab hier versuche es zu packe,
# funktioniert leider nicht

#Archive::Tar->create_archive( $VerzPfadNow."datei_jetzt4_2.tbz", COMPRESS_BZIP, $VerzPfadNow."datei_jetzt2.tar" );
#Archive::Tar->create_archive( $VerzPfadNow."datei_jetzt7.tbz", COMPRESS_BZIP, @listeDatei );

Kann mir jemand ein Tipp geben, wie kann ich die Daten packen?
Danke im Vorraus.

Grüße
karl

View full thread Dateien und Ordner packen