#! /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 );