bestimmte dateien aus dem tar extrahieren - #98850 (Linux)

topeg

2007-08-29 20:33

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Meinst du was?
Ist aber ungetestet.

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;
use Archive::Tar;

my $arch = shift(@ARGV);
my $regexp=shift(@ARGV);

my $tar  = Archive::Tar->new( $arch ) or die "Fehler ($!)";
$tar->extract([grep{/$regexp/}$tar->list_files()]);
exit(0);

Aufruf:

Code: (dl )

targrep.pl test.tar 'logfile|inoutput'