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

Question

这是一个令人费解的问题，所以请容忍我。我有一个Perl脚本，位于一个Windows客户机上。我想从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

Answer 1

我发现了问题所在。正如在virtualbox论坛上提到的，运行perl脚本时设置的环境变量出现了问题。在谷歌上搜索了很多之后，我还在吻弓上找到了一篇博文，描述了他是如何解决这个问题的。

您可以使用VBoxManage客户控制中的--环境选项来设置环境变量，并且根据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"

在这一大堆环境变量中，有一个是很重要的。

感谢所有的帮助。