Just an idea:
#!/usr/bin/env perl use strict; use warnings; use Archive::Tar; use feature qw(say); use Path::Tiny; my @files = qw (foo.txt bar.txt); my @copies = map { path($_)->copy( path($_)->digest . "_$_" ) } @files +; my $archive = q(kgb.tgz); Archive::Tar->create_archive( $archive, COMPRESS_GZIP, @copies ); say for Archive::Tar->list_archive($archive); unlink for @copies; say q(--); say qx (tar tf $archive); __END__
Best regards, Karl
«The Crux of the Biscuit is the Apostrophe»
perl -MCrypt::CBC -E 'say Crypt::CBC->new(-key=>'kgb',-cipher=>"Blowfish")->decrypt_hex($ENV{KARL});'Help
In reply to Re: Rename files in gzip tarball: No such file in archive: '/path/to/file1.txt'
by karlgoethebier
in thread Rename files in gzip tarball: No such file in archive: '/path/to/file1.txt'
by Bowlslaw
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |