如何在Perl中归档目录,就像在UNIX中一样？

use strict;
use warnings;
use File::Find;
use Archive::Tar;

# 要归档的目录
my $source_dir = "/path/to/source";

# 归档文件名
my $archive_file = "/path/to/archive.tar";

# 创建归档对象
my $tar = Archive::Tar->new;

# 遍历目录并添加到归档对象中
find(sub {
    # 跳过隐藏文件和目录
    return if /^\./;

    # 添加文件到归档对象
    if (-f) {
        $tar->add_files($File::Find::name);
    }

    # 添加目录到归档对象
    if (-d) {
        $tar->add_data($File::Find::name, "", { mode => 0755 });
    }
}, $source_dir);

# 写入归档文件
$tar->write($archive_file, 1);