perl - 如何像 tar 在 UNIX 中一样在 Perl 中归档目录？

Question

我想归档一个目录(我不知道我是否可以调用“我想 tar 一个目录”)。我想在解压缩时保留另一端的访问权限。我应该在 perl 中解决这个问题。

感谢您的回复，但为什么我要求这样做 Perl 是我希望它独立于平台。我想将一个大文件传输到多台机器上。这些机器可以是任何平台。我应该能够正确解压这个 tar 文件，对吗？所以我想编写自己的 tar 和 untar 程序。为什么我使用 Perl 是为了让它独立于平台。所以我不能通过在脚本和类似的东西中打开 shell 来使用 tar 命令。 Archive::Tar模块只处理 tarred 文件，但它没有归档文件的选项。

Answer 1

这是一个简单的例子:

#!/usr/bin/perl -w

use strict;
use warnings 'all';
use Archive::Tar;

# Create a new tar object:
my $tar = Archive::Tar->new();

# Add some files:
$tar->add_files( </path/to/files/*.html> );
# */ fix syntax highlighing in stackoverflow.com

# Finished:
$tar->write( 'file.tar' );

# Now extract:
my $tar = Archive::Tar->new();
$tar->read( 'file.tar' );
$tar->extract();