当前位置：文江博客话题详情

如何使用 Perl 的 Archive::Tar 保留 tar 存档中的 setuid 位？

发布于 2024-07-14 06:07:57 字数 371 浏览 8 评论 0原文

我正在使用 Perl 的 Archive::Tar 模块。它保留文件权限，但不保留粘滞位。在我提取存档的另一端，所有粘性位都消失了。我认为 UNIX/LINUX 操作系统将这些粘性位存储在其他地方。如何让我的存档也保留粘性位？

使用 -p 开关 tar 可以保留它，但是如何使用 Archive::Tar？我在两边都使用 Perl 的模块。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

从来不烧饼 2024-07-21 06:07:57

根据 Fine Source 的说法，Archive::Tar::File 会去除模式中的高位。
您可以在脚本的开头尝试以下魔法咒语（在任何内容之前）
可能引用了 Archive::Tar) 并看看是否会颠覆它：

use Archive::Tar::Constant ();
BEGIN {
    local $SIG{__WARN__} = sub{};
    *Archive::Tar::Constant::STRIP_MODE = sub(){ sub {shift} };
}
...
use Archive::Tar;
...

简要说明：STRIP_MODE 是一个常量，其中包含一个可以传递原始模式并返回应该存储的模式的子例程。它通常设置为

sub { shift() & 0777 }

因为它是一个常量，从 Archive::Tar::Constant 导入到 Archive::Tar::File 并在那里使用，所以无论设置为什么，都将内联到 Archive::Tar::File 中已编译。因此，要更改它，必须在内联之前更改常量，即在加载 Archive::Tar::File 之前。

注意：由于更改内联常量很容易出错（在为时已晚而无法产生任何效果后更改它），因此它通常会生成严重警告，并且无法通过常规方法禁用。

According to the Fine Source, Archive::Tar::File strips off the high bits from the mode.
You can try the following magic incantation at the beginning of your script (before anything
might have referenced Archive::Tar) and see if that subverts it:

use Archive::Tar::Constant ();
BEGIN {
    local $SIG{__WARN__} = sub{};
    *Archive::Tar::Constant::STRIP_MODE = sub(){ sub {shift} };
}
...
use Archive::Tar;
...

Brief explanation: STRIP_MODE is a constant that contains a subroutine that can be passed the raw mode and returns the mode that should be stored. It is normally set to

sub { shift() & 0777 }

Because it is a constant, imported from Archive::Tar::Constant into Archive::Tar::File and used there, whatever it is set to will be inlined into Archive::Tar::File as it is compiled. So to change it, the constant must be changed before it is inlined, that is, before Archive::Tar::File ever gets loaded.

N.B. Because changing an inlinable constant is prone to error (changing it after it is too late to have any effect), it normally generates a severe warning that can't be disabled by usual means.

回复收藏 0 原文

十级心震 2024-07-21 06:07:57

不确定，但在官方 tar 命令上，您需要传递 -p 才能实现此目的

回复收藏 0 原文

荒芜了季节 2024-07-21 06:07:57

您可能需要查看 Archive::Tar 文档了解详细信息。乍一看，似乎

$Archive::Tar::CHMOD = 1;

应该执行您想要的操作，尽管文档声称上述设置是默认设置。 Archive::Tar 可能会像粘性位一样剥离高阶模式位。

存档是使用 Archive::Tar 创建和提取的，还是在一端或另一端使用标准 tar 程序？

You might want to take a look at the Archive::Tar documentation for the details. From a brief glance, it appears that

$Archive::Tar::CHMOD = 1;

should do what you want, although the documentation claims that the above setting is the default. It may be that Archive::Tar strips off the higher-order mode bits like the sticky bit.

Is the archive both created and extracted with Archive::Tar, or are you using the standard tar program at one end or the other?

回复收藏 0 原文

~没有更多了~