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

发布时间：2020-12-15 21:53:07 所属栏目：大数据来源：网络整理

导读：我想归档一个目录(我不知道我是否可以调用“我想tar目录”).当我取消tar时,我想在另一端保留访问权限.我应该在perl中解决这个问题. 感谢您的回复,但为什么我要求这样做Perl是我希望它独立于平台.我想将一个大文件传输到多台机器.这些机器可以是任何平台.我应

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

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

解决方法

这是一个简单的例子：

#!/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();

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!