Perl|Archive：：Tar|文件提取后拒绝访问|“保留权限”

Question

我很难理解为什么在从tar文件中提取文件后无法打开它们。当我试图打开或读取刚刚从tar中提取的文件内容时，我会收到一条“访问被拒绝”错误消息。我正要在StackOverflow上发布这个问题，这时我终于发现我做错了什么。我想我会把这个问题和答案张贴给将来需要它的人。简单的解决方案是只使用Perl Tar以外的东西，但是。。。

~~~问题~ ~~

提取tar文件的内容。如果您在尝试打开或读取刚刚从tar文件中提取的文件时收到访问被拒绝消息，可能是因为对文件/目录进行tar时未保留权限。

~~~解~ ~ ~

如所述：

http://perldoc.perl.org/Archive/Tar.html#GLOBAL-VARIABLES

默认情况下，Archive：：Tar将尝试对文件进行chmod（权限混乱）。要防止出现这种情况，需要将以下全局变量设置为“0”：

$Archive::焦油::CHMOD=0；#保留权限

~~~~~~~~~~~~~~~~

下面的代码展示了如何在perl代码中使用全局变量（欢迎其他评论/建议/批评）…

#folder structure:

# /cygdrive/c/00_backup_base  
#                |
#                |
#                +---- base
#                        |
#                        |
#                        +----00_TEST


#!/usr/bin/perl

use strict;   
use warnings 'all';   
use Archive::Tar;   
use File::Find;
use File::Copy;

my $ACID='/cygdrive/c/00_backup_base'; 
my $myTarFile='base_tar.gz';
my $testDir="00_TEST";
my $base='base';

# ----- ZIP DIRECTORY ----
  my @inventory = (); #array, store list of director contents
  chdir $ACID or die "chdir failed on $ACID\n";
  find (sub { push @inventory, $File::Find::name }, "$base");

  #_Create a new tar object
  $Archive::Tar::CHMOD = 0; # PRESERVE PERMISSIONS!
  my $tar = Archive::Tar->new();

  $tar->add_files( @inventory );

  # Write compressed tar file
  print " Create Zip file \n";
  $tar->write( "$myTarFile"); 
  chdir "../..";

# ----- EXTRACT FILES -----
  chdir $ACID;
  copy("${archive}", "${testDir}/${archive}"); 
  chdir ${testDir};

  # Now extract:
  $Archive::Tar::CHMOD = 0; # PRESERVE PERMISSIONS!
  my $tar_b = Archive::Tar->new();   
  $tar_b->read( $myTarFile );   
  $tar_b->extract();     

Answer 1

在最初的帖子中回答

欢迎其他意见/建议/批评

~~~解~ ~ ~

如果您在尝试打开或读取刚刚从tar文件中提取的文件时收到访问被拒绝消息，可能是因为对文件/目录进行tar时未保留权限。

如所述：

http://perldoc.perl.org/Archive/Tar.html#GLOBAL-VARIABLES

默认情况下，Archive：：Tar将尝试对文件进行chmod（权限混乱）。要防止出现这种情况，需要将以下全局变量设置为“0”：

$Archive::焦油::CHMOD=0；#保留权限