virtualbox + perl + 共享文件夹 == 失败答案

【问题标题】：virtualbox + perl + shared folder == failvirtualbox + perl + 共享文件夹 == 失败
【发布时间】：2014-05-13 11:53:45
【问题描述】：

这是一个令人费解的问题，所以请耐心等待。我有一个位于 Windows VirtualBox 来宾上的 Perl 脚本。我想从 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

【问题讨论】：

VirtualBox 的共享文件夹 do 时不时让我失望；有时，我只是将文件从共享文件夹复制到 c:\temp 并在那里对其进行操作。
不幸的是，主机实际上没有足够的磁盘空间来存储所有文件两次，复制会显着减慢速度。此外，现在它总是失败，所以除了不可靠的软件之外，肯定还有其他问题。
简化脚本并尝试打开目录，提供硬编码字符串的路径。这将显示路径名是奇数还是实际路径不可用。
@Richard Huxton，该脚本在使用 E:\nasi\test 直接从来宾运行时运行良好且符合预期。它适用于 C:\。使用 C:\ 从主机调用它也可以正常工作。仅当使用 E:\nasi\test 从主机调用时，它才会失败。其他软件也无法读取目录，cmd.exe /c dir 也无法读取目录。
@massa 是的，我几乎放弃了尝试让共享文件夹工作，直到遇到我在下面的答案中提到的博客文章。让 NFS 在 Windows 中正常工作并不是那么容易，尤其是因为我无法访问 NFS 服务器（和配置选项，以及拥有 windows 专业版、注册表设置、防火墙设置以及 NAT、phfff）。谢天谢地，它现在可以像最初想象和期望的那样工作:)

标签： linux windows perl virtualbox shared-directory

【解决方案1】：

我发现了问题。正如 virtualbox 论坛上提到的，运行 perl 脚本时设置的环境变量有问题。经过大量谷歌搜索后，我还发现了来自 kissmyarch 的博客文章，其中描述了他是如何解决问题的。

您可以使用 VBoxManage guestcontrol 中的 --environment 选项设置环境变量，根据 Kissmyarch，您需要设置 USERPROFILE 才能使其工作。这对我不起作用。

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

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

并在来宾和来宾控件上运行它以比较环境。我的命令现在看起来像这样：

/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"

在一大堆环境变量中的某个地方很重要。

感谢所有帮助。

【讨论】：