1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
#! /usr/bin/perl use strict; use warnings; use Archive::Extract; # quick and dirty hack for # https://www.perl-community.de/bat/poard/thread/17056 # first argument is archive file my $archive = shift || die "no archive specified.\n"; my $ae = Archive::Extract->new( archive => $archive ); $ae->extract(); __END__ Usage: x.pl archive extracts archive to current workdir
2012-01-11T12:12:43 GwenDragonIst ja auch bei deiner Datei.sollten die ersten Bytes in sedezimaler Schreibweise 1F 9D 90 sein.
2012-01-11T12:07:44 laplaceich verwende Windows; kannst du mir hier den äquivalenten Befehl nennen?
Quotecompress ist ein historisches Packprogramm unter UNIX-ähnlichen Betriebssystemen. Die erzeugten Dateien nutzen die Dateinamenserweiterung .Z und werden von dem zugehörigen Programmgegenstück uncompress wieder entpackt ... Diese mit compress komprimierten Tarballs tragen üblicherweise die Dateinamenserweiterung tar.Z.
Das Programm wurde weitgehend durch gzip ersetzt. gzip kann die mit compress erzeugten Dateien ebenfalls lesen und entpacken, die Kompression wird jedoch wegen der dazu verwendeten patentierten Verfahren nicht unterstützt.
QuoteTo extract .tar and .tar.gz files on Windows 9x/NT/2000/ME/XP use PowerArchiver 6.1 (freeware) or 7-zip (freeware) or Winzip (commercial).
2012-01-11T17:05:09 laplacemeine .Z files sind manuell entpackbar, doch über eine Perl-Anwendung nicht ?!
2012-01-11T18:11:44 laplaceWelches Modul verwendest du?wenn ich das ganze allerdings über ein Modul starte, hauts nicht hin.
das sollte doch prinzipiell dasselbe sein?!
system(qq(wzunzip "$file" "$targetdir"));