虚拟盒子 + Perl + 共享文件夹 == 失败

Question

这是一个令人费解的问题，所以请耐心等待。我有一个位于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:nasitemp) failed: No such file or directory
[2014-04-02 10:50:56] Uploading malware samples data to localhost
host:$

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

/usr/bin/VBoxManage guestcontrol <guest> execute 
  --image "C:strawberryperlbin    perl.exe"   
  --username <user> --password <pass>              
  --wait-stdout --wait-stderr --wait-exit --        
  "C:antiviruskaspersky.pl" "E:nasitemp"

当我直接使用来宾的相同选项运行相同的脚本时，我得到以下结果：

C:antivirus>C:strawberryperlbinperl.exe C:antiviruskaspersky.pl E:nasitemp
[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。有人对问题可能是什么有任何想法吗？

• 视窗 7， 草莓 Perl v5.18.2
• Ubuntu 12.04.04， Perl v5.14.2
• 虚拟盒子 4.2.16r86992

交叉柱：https://forums.virtualbox.org/viewtopic.php?f=2&t=61011

Answer 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:strawberryperlbinperl.exe" 
   --username <user> --password <pass> 
   --environment "USERPROFILE=C:Users<user>" 
   --environment "APPDATA=C:Users<user>AppDataRoaming" 
   --environment "LOCALAPPDATA=C:Users<user>AppDataLocal" 
   --environment "HOMEDRIVE=C:" 
   --environment "HOMEPATH=Users<user>" 
   --environment "LOGONSERVER=\<server>" 
   --environment "SESSIONNAME=Console" 
   --environment "TEMP=C:Users<user>AppDataLocalTemp" 
   --environment "TMP=C:Users<user>AppDataLocalTemp" 
   --environment "USERDOMAIN=<domain>" 
   --environment "USERNAME=<user>" 
   --wait-stdout --wait-stderr --wait-exit 
   -- "C:antiviruskaspersky.pl" "E:nasitemp"

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

感谢所有帮助。