如何使用Perl的Archive :: Tar来tar文件大于物理内存的文件？

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

# 定义要压缩的文件
my $file_to_compress = 'large_file.txt';

# 定义块大小
my $block_size = 1024 * 1024; # 1MB

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

# 打开文件
open(my $fh, '<', $file_to_compress) or die "Cannot open file: $!";

# 初始化块计数器
my $block_count = 0;

# 读取文件块并添加到TAR文件
while (read($fh, my $buffer, $block_size)) {
    $block_count++;
    $tar->add_data(sprintf("block_%06d", $block_count), $buffer);
}

# 关闭文件
close($fh);

# 将TAR文件写入磁盘
$tar->write('large_file.tar', COMPRESS_GZIP);

# 删除原始文件（可选）
unlink($file_to_compress);