〇対象ファイルをカレントに出力することがポイント #!/usr/bin/perluse 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";$…