虚拟机VirtualBox与编程语言Perl以及共享文件夹的结合使用出现了问题。

Question

这是一篇比较绕的文章，请耐心看完。我有一个 Perl 脚本，它位于 Windows VirtualBox 客户机上。我希望从 Linux 主机调用此脚本，并让它读取主机上的共享文件夹。然而，读取文件夹失败了。

在主机上，我调用此脚本并得到以下输出：

host:~/$ ./script.pl /nfs/nasi/temp
[2014-04-02 10:50:55] Uploading file records to localhost
[2014-04-02 10:50:55] Running VirtualBox for Kaspersky
fatal: opendir(E:\nasi\temp) failed: No such file or directory
[2014-04-02 10:50:56] Uploading malware samples data to localhost
host:$

脚本将参数/nfs/nasi/temp转换为E:\nasi\temp，并使用以下命令调用脚本：

/usr/bin/VBoxManage guestcontrol <guest> execute \
  --image "C:\strawberry\perl\bin    \perl.exe"   \
  --username <user> --password <pass>              \
  --wait-stdout --wait-stderr --wait-exit --        \
  "C:\antivirus\kaspersky.pl" "E:\nasi\temp"

当我从客户端直接使用相同的选项运行此脚本时，我会得到以下结果：

C:\antivirus>C:\strawberry\perl\bin\perl.exe C:\antivirus\kaspersky.pl E:\nasi\temp
[2014-04-02 10:54:19] Running Kaspersky Antivirus
[2014-04-02 10:54:20] Parsing Kaspersky report
[2014-04-02 10:54:20] Uploading Kaspersky results to 10.0.0.1
C:\antivirus>

等等，情况变得更加奇怪了。当我不提供共享目录E:\，而是将其指向C:\时，它可以毫无问题地读取该目录并继续执行。因此，只有当我通过VirtualBox从主机运行命令并将其指向共享文件夹时才会出现错误。

这是相关的代码：

sub createSamplesMap {
    opendir( my $dh, $ARGV[0] ) or
        die "fatal: opendir($ARGV[0]) failed: $!\n";
    my @files = readdir( $dh );
    foreach my $file ( @files ) {
        if (! -d $file ) {
            ...
        }
    }
    closedir($dh);
}

我尝试了不同的方法从目录中读取文件名，但它们都没有成功。这是我尝试过的方法。

my @files = <$ARGV[0]\\*>;
my @files = glob( $ARGV[0] . '\\*' );

我不知道是要责怪Perl还是VirtualBox。有人对问题有什么想法吗？

• Windows 7，草莓Perl v5.18.2
• Ubuntu 12.04.04，Perl v5.14.2
• VirtualBox 4.2.16r86992

转帖链接: https://forums.virtualbox.org/viewtopic.php?f=2&t=61011

- jurgen

---

VirtualBox的共享文件夹有时会让我失望；有时候，我只是将文件从共享文件夹复制到c:\temp目录中并在那里操作。 - Massa

@Richard Huxton，该脚本在虚拟机上直接运行 E:\nasi\test 时表现正常，符合预期。如果从 C:\ 运行也是正常的。同时，如果从主机以 C:\ 路径调用也没有问题。只有当从主机以 E:\nasi\test 调用时才会出现错误。其他软件也无法读取该目录，如 cmd.exe /c dir。 - jurgen

你可以创建另一个磁盘并在不同的虚拟机之间共享它；这样，你就可以使用 D:\ 而不是 E:... - Massa

你的意思是在 C:\strawberry\perl\bin 和 \perl.exe 之间留有空格吗？ - mob

@massa 是的，我已经放弃尝试让共享文件夹工作了，直到我遇到了下面回答中提到的博客文章。在Windows中使NFS正常工作并不容易，特别是因为我没有访问NFS服务器的权限（和配置选项、拥有Windows专业版、注册表设置、防火墙设置以及NAT）。谢天谢地，现在它可以像最初想象和期望的那样工作了 :) - jurgen

Answer 1

我找到了问题所在。如virtualbox论坛所述，当运行perl脚本时设置环境变量存在问题。经过大量搜索，我还在kissmyarch的博客文章中找到了他是如何解决问题的。

您可以使用VBoxManage guestcontrol中的--environment选项设置环境变量，并根据kissmyarch的说法，您需要设置USERPROFILE才能使其正常工作。但这对我没有起作用。

因此，我使用了脚本中的以下代码来确定设置了哪些环境变量：

foreach $key (sort keys(%ENV)) {
  print "$key = $ENV{$key}\n";
}

我运行了这个命令，既在客户机上运行，又从guestcontrol中运行，以比较环境。现在我的命令看起来像这样:

/usr/bin/VBoxManage guestcontrol <vm> execute \
   --image "C:\strawberry\perl\bin\perl.exe" \
   --username <user> --password <pass> \
   --environment "USERPROFILE=C:\Users\<user>" \
   --environment "APPDATA=C:\Users\<user>\AppData\Roaming" \
   --environment "LOCALAPPDATA=C:\Users\<user>\AppData\Local" \
   --environment "HOMEDRIVE=C:" \
   --environment "HOMEPATH=\Users\<user>" \
   --environment "LOGONSERVER=\\\<server>" \
   --environment "SESSIONNAME=Console" \
   --environment "TEMP=C:\Users\<user>\AppData\Local\Temp" \
   --environment "TMP=C:\Users\<user>\AppData\Local\Temp" \
   --environment "USERDOMAIN=<domain>" \
   --environment "USERNAME=<user>" \
   --wait-stdout --wait-stderr --wait-exit \
   -- "C:\antivirus\kaspersky.pl" "E:\nasi\temp"

在那一大堆环境变量中，有一个是非常重要的。

感谢所有提供帮助的人。

- jurgen