Leser: 1
5 Einträge, 1 Seite |
1
2
3
4
5
6
7
use Archive::Tar;
my $meinedoofendaten = "eydatencool";
my $tar = Archive::Tar->new();
%opthashref = {FILE => 'superdatei.txt', DIR => '/unterverzeichnis/test/'};
$tar->add_data('/test/superdatei.txt',$meinedoofendaten, %opthashref);
$tar->add_files('/var/www/web1/html/amdcpusetup.exe');
$tar->write("archive2.tar");
1
2
3
4
5
6
7
8
9
10
use Archive::Tar;
my $meinedoofendaten = "eydatencool";
my $tar = Archive::Tar->new();
my $dir = 'FFW';
opendir DIR,$dir or die $!;
my @files = grep{ -f }map{$dir . '/' . $_}readdir DIR;
closedir DIR;
$tar->add_files(@files);
$tar->add_files('linesep.pl');
$tar->write("archive2.tar");
QuoteArbeite mal mit relativen Pfadangaben und starte das Programm mal aus einem Verzeichnis, das über dem Verzeichnis ist, in dem die Dateien liegen...
5 Einträge, 1 Seite |