如何退出perl脚本中的chroot？

Question

在编写用于完全自动化虚拟机设置的perl脚本(Xen pv)时,我遇到了一个很小的问题.

使用perl的chroot函数我在guest文件系统上做我的事情,然后我需要回到我的初始真正的根.我到底怎么回事？

脚本示例:

`mount $disk_image $mount_point`;

chdir($mount_point);
chroot($mount_point);

#[Do my things...]

#<Exit chroot wanted here>

`umount $mount_point`;

#[Post install things...]

我试过退出; 但显然退出整个脚本.

正在寻找一种退出chroot的方法我发现了许多旨在退出已经设置好的chroot 的脚本(权限提升).由于我在这里做chroot这些方法不适用.

试过一些疯狂的事情:

opendir REAL_ROOT, "/";
chdir($mount_point);
chroot($mount_point);
chdir(*REAL_ROOT);

但是没有去.

更新 一些要考虑的要点:

• 我无法在多个文件中拆分脚本.(愚蠢的原因,但真的,我不能)
• chrooted部分涉及使用脚本早期收集的大量数据(在chroot之前),强制不需要在chroot内运行另一个脚本.
• 使用open,system或backticks并不好,我需要运行命令并根据输出(不是退出代码,实际输出)做其他事情.
• chroot之后的步骤取决于chroot内部的操作,因此我需要在内部,外部使用我定义或更改的所有变量.
• 叉子是可能的,但我不知道正确处理从孩子传递信息到孩子的信息的好方法.

Answer 1

chrooted process()不能通过退出(退出)退出"unchroot".

你必须生成一个子进程,它将chroot.

下面的内容应该可以解决问题:

if (fork())
{
   # parent
   wait;
}
else
{
   # children
   chroot("/path/to/somewhere/");
   # do some Perl stuff inside the chroot...
   exit;  
}

# The parent can continue it's stuff after his chrooted children did some others stuff...

它仍然缺乏一些错误检查的想法.