从 perl 执行挂载系统调用

Question

如何从 perl 完成 mount 系统调用？以下：

$ret = syscall(&SYS_mount, "/proc", "/path/to/my/mount/point", 0, 0, 0);

结果：

Modification of a read-only value attempted at ...

我无法使用 system 调用 mount 程序，因为我需要进行 mount 程序似乎无法执行的 mount() 系统调用.更具体地说，我需要调用：

mount("/proc", "/path/to/my/mpoint/point", NULL, MS_REC|MS_PRIVATE|MS_BIND, NULL);

但是如果我尝试运行使用非特权非共享挂载 linux 命名空间进行以下操作：

mount --make-rprivate --bind /proc /path/to/my/mountpoint

然后我得到以下错误：

mount: wrong fs type, bad option, bad superblock on /proc,
       missing codepage or helper program, or other error

       In some cases useful info is found in syslog - try
       dmesg | tail or so.

使用 strace 表明 mount 程序实际做的是调用：

mount("/proc", "/path/to/my/mountpoint", ..., MS_MGC_VAL|MS_BIND, NULL);
mount("none", "/path/to/my/mointpoint", NULL, MS_REC|MS_PRIVATE, NULL);

但是这种拆分选项不起作用。我需要 MS_BIND 和 MS_REC|MS_PRIVATE 在对 mount 系统调用的一次调用中才能在非特权非共享挂载命名空间中工作。

那么我怎样才能在 perl 中执行我的初始系统调用而不出现有关尝试修改只读值的错误消息？

编辑:

幸运的是 ikegami 很快指出了我在尝试使用 perl 的 syscall 函数时做错了什么，但是以防万一有人在搜索如何从非特权挂载命名空间中绑定挂载目录时发现这一点mount 命令行实用程序，方法如下：

mount --rbind /proc /path/to/my/mountpoint

这将在内部调用以下系统调用：

mount("proc", "/path/to/my/mountpoint", ..., MS_MGC_VAL|MS_BIND|MS_REC, 0);

MS_MGC_VAL 标志似乎是为了向后兼容 2.4 之前的内核版本。重要的位是 MS_BIND（用于自己进行绑定挂载）和 MS_REC（用于递归地进行绑定，以便其内容被其他挂载隐藏的目录不会将其内容暴露在挂载命名空间）。

所以现在我必须决定是使用 perl system 函数调用还是只执行 mount 系统调用，因为两者都一样有效:)

Answer 1

syscall 拒绝传递指向常量字符串缓冲区的指针，因为它不知道参数是 char * 还是 const char *.

You can't use a string literal (or other read-only string) as an argument to syscall because Perl has to assume that any string pointer might be written through

解决方法很简单。只需先将常量复制到变量中即可。

my $ret = syscall(&SYS_mount, my $s="/proc", my $t="/path/to/my/mount/point", 0, 0, 0);

测试：

$ perl -E'
   require "syscall.ph";
   my $ret = syscall(&SYS_mount, "/proc", "/path/to/my/mount/point", 0, 0, 0);
   say $ret;
'
Modification of a read-only value attempted at -e line 3.

$ perl -E'
   require "syscall.ph";
   my $ret = syscall(&SYS_mount, my $s="/proc", my $t="/path/to/my/mount/point", 0, 0, 0);
   say $ret;
'
-1

$ strace perl -e'
   require "syscall.ph";
   syscall(&SYS_mount, my $s="/proc", my $t="/path/to/my/mount/point", 0, 0, 0);
' 2>&1 | grep mount
mount("/proc", "/path/to/my/mount/point", NULL, 0, NULL) = -1 ENOENT (No such file or directory)

Answer 2

您可以在此处找到完整的 Perl 实现：https://github.com/i-MSCP/imscp/blob/1.5.x/engine/PerlLib/iMSCP/Mount.pm

从 perl 执行挂载系统调用

Executing mount system call from perl

linux

perl

mount

system-calls