Something like this? [ It might be unsafe! ]
l1:/tmp 105 > tar cvf xx.tar xx.c xx.o
a xx.c 1 blocks
a xx.o 2 blocks
l1:/tmp 106 > tar tvf xx.tar
rw-rw-rw- 203/200 9 May 27 13:23 2002 xx.c
rw-rw-rw- 203/200 732 May 27 13:23 2002 xx.o
l1:/tmp 107 > touch xx.c
l1:/tmp 108 > tar uvf xx.tar xx.c
a xx.c 1 blocks
l1:/tmp 109 > tar tvf xx.tar
rw-rw-rw- 203/200 9 May 27 13:23 2002 xx.c
rw-rw-rw- 203/200 732 May 27 13:23 2002 xx.o
rw-rw-rw- 203/200 9 Jun 20 13:02 2002 xx.c
l1:/tmp 110 >
l1:/tmp/test 144 > xx.pl ../xx.tar
Opening archive ../xx.tar ...
x xx.c ...
x xx.o ...
x xx.c ...
WHOA! xx.c appeared in this archive before
New file extracted as xx.c.1
l1:/tmp/test 145 > ll
total 15
791 drwxrwxrwx 2 merijn softwr 96 Jun 20 13:40 .
2 drwxrwxrwx 19 root root 11264 Jun 20 13:40 ..
837 -rw-rw-rw- 1 merijn softwr 9 May 27 13:23 xx.c
830 -rw-rw-rw- 1 merijn softwr 9 Jun 20 13:02 xx.c.1
839 -rw-rw-rw- 1 merijn softwr 732 May 27 13:23 xx.o
702 -rwxr-xr-x 1 merijn softwr 815 Jun 20 13:40 xx.pl
l1:/tmp/test 146 >
l1:/tmp/test 146 > cat xx.pl
#!/pro/bin/perl -w
use strict;
use Archive::Tar;
use File::Copy;
my %done;
print STDERR "Opening archive $ARGV[0] ...\n";
my $tar = Archive::Tar->new (shift);
for ($tar->list_files ([qw(name uid gid mtime mode)])) {
my $name = $_->{name};
print STDERR "x $name ... ";
my $new = $name;
if ($done{$name}++) {
my $idx = 1;
$idx++ while -f "$new.$idx";
$new .= ".$idx";
print STDERR "\nWHOA! $name appeared in this archive before\n",
"New file extracted as $new";
move ($name, "$new.$$");
}
-f $new and print STDERR " already exists";
$tar->extract ($name);
utime $_->{mtime}, $_->{mtime}, $name;
chmod $_->{mode}, $name;
chown $_->{uid}, $_->{gid}, $name;
print STDERR "\n";
$name eq $new and next;
move ($name, $new);
move ("$new.$$", $name);
}
l1:/tmp/test 147 >
Enjoy, Have FUN! H.Merijn
