这是一个令人费解的问题,请耐心等待。我有一个位于 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"
当我直接从 guest 使用相同的选项运行相同的脚本时,我得到以下信息:
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 论坛上提到的,运行 perl 脚本时环境变量设置有问题。经过大量谷歌搜索后,我还发现了一篇来自 kissmyarch 的博客文章。他在其中描述了他是如何解决问题的。
您可以使用 VBoxManage guestcontrol 中的 --environment 选项设置环境变量,根据 kissmyarch,您需要设置 USERPROFILE 才能使其正常工作。这对我不起作用。
因此,我改为使用脚本中的以下代码来确定设置了哪些环境变量:
foreach $key (sort keys(%ENV)) {
print "$key = $ENV{$key}\n";
}
然后在 guest 和 guest 控件上运行它以比较环境。我的命令现在看起来像这样:
/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"
在那一大堆环境变量中的某个地方是重要的。
感谢所有的帮助。
关于linux - virtualbox + perl + 共享文件夹 == 失败,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/22807376/