perl技 dias fileを抽出する
〇対象ファイルをカレントに出力することがポイント
#!/usr/bin/perl
use File::Basename;
use strict;
my @files=`tar tvf files.tar`;chomp @files;
foreach my $tf(@files){
my @dum=split(/\s+/,$tf);
my $n=0;
foreach my $dum(@dum){print "$n $dum\n";$n++;}
my $ttf=$dum[5];
my $bf=basename($ttf);
$bf=~/.gz$//;
print"tf=$ttf bf=$bf\n";
system"gunzip $ttf -c >$bf";
}