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

这是一个复杂的问题，请容忍我。我有一个位于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"

但是等等，它变得更奇怪了。当我没有提供共享目录

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] . '\\*' );

my@files=；
my@files=glob（$ARGV[0].\\*'）；

我不知道该怪perl还是virtualbox。有人知道问题出在哪里吗

• Windows7，草莓PerlV5.18.2
• Ubuntu 12.04.04，Perl v5.14.2
• VirtualBox 4.2.16r86992

---

交叉柱：

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

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

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

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

并在guest和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"

/usr/bin/VBoxManage guestcontrol执行\
--图像“C:\草莓\perl\bin\perl.exe”\
--用户名--密码\
--环境“USERPROFILE=C:\Users\”\
--环境“APPDATA=C:\Users\\APPDATA\Roaming”\
--环境“LOCALAPPDATA=C:\Users\\AppData\Local”\
--环境“HOMEDRIVE=C：”\
--环境“HOMEPATH=\Users\”\
--环境“LOGONSERVER=\\”\
--环境“SESSIONNAME=Console”\
--环境“TEMP=C:\Users\\AppData\Local\TEMP”\
--环境“TMP=C:\Users\\AppData\Local\Temp”\
--环境“USERDOMAIN=”\
--环境“用户名=”\
--等待标准输出--等待标准输出--等待退出\
--“C:\antivirus\kaspersky.pl”“E:\nasi\temp”

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

---

多亏了这些帮助。

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

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