草庐IT

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

coder 2024-06-05 原文

这是一个令人费解的问题，请耐心等待。我有一个位于 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/

virtualboxampcodeenvironment34linuxwindowsperlshared-directory

有关linux - virtualbox + perl + 共享文件夹 == 失败的更多相关文章

  1. ruby - 使用 RubyZip 生成 ZIP 文件时设置压缩级别 - 2

    我有一个Ruby程序，它使用rubyzip压缩XML文件的目录树。gem。我的问题是文件开始变得很重，我想提高压缩级别，因为压缩时间不是问题。我在rubyzipdocumentation中找不到一种为创建的ZIP文件指定压缩级别的方法。有人知道如何更改此设置吗？是否有另一个允许指定压缩级别的Ruby库？ 最佳答案 这是我通过查看ruby​​zip内部创建的代码。level=Zlib::BEST_COMPRESSIONZip::ZipOutputStream.open(zip_file)do|zip|Dir.glob("**/*")d

  2. ruby - 其他文件中的 Rake 任务 - 2

    我试图在一个项目中使用rake，如果我把所有东西都放到Rakefile中，它会很大并且很难读取/找到东西，所以我试着将每个命名空间放在lib/rake中它自己的文件中，我添加了这个到我的rake文件的顶部:Dir['#{File.dirname(__FILE__)}/lib/rake/*.rake'].map{|f|requiref}它加载文件没问题，但没有任务。我现在只有一个.rake文件作为测试，名为“servers.rake”，它看起来像这样:namespace:serverdotask:testdoputs"test"endend所以当我运行rakeserver:testid时

  3. ruby-on-rails - 在 Rails 中将文件大小字符串转换为等效千字节 - 2

    我的目标是转换表单输入，例如“100兆字节”或“1GB”，并将其转换为我可以存储在数据库中的文件大小(以千字节为单位)。目前，我有这个:defquota_convert@regex=/([0-9]+)(.*)s/@sizes=%w{kilobytemegabytegigabyte}m=self.quota.match(@regex)if@sizes.include?m[2]eval("self.quota=#{m[1]}.#{m[2]}")endend这有效，但前提是输入是倍数(“gigabytes”，而不是“gigabyte”)并且由于使用了eval看起来疯狂不安全。所以，功能正常，

  4. ruby-on-rails - Rails 3 中的多个路由文件 - 2

    Rails2.3可以选择随时使用RouteSet#add_configuration_file添加更多路由。是否可以在Rails3项目中做同样的事情？ 最佳答案 在config/application.rb中:config.paths.config.routes在Rails3.2(也可能是Rails3.1)中，使用:config.paths["config/routes"] 关于ruby-on-rails-Rails3中的多个路由文件，我们在StackOverflow上找到一个类似的问题

  5. ruby - 将差异补丁应用于字符串/文件 - 2

    对于具有离线功能的智能手机应用程序，我正在为Xml文件创建单向文本同步。我希望我的服务器将增量/差异(例如GNU差异补丁)发送到目标设备。这是计划:Time=0Server:hasversion_1ofXmlfile(~800kiB)Client:hasversion_1ofXmlfile(~800kiB)Time=1Server:hasversion_1andversion_2ofXmlfile(each~800kiB)computesdeltaoftheseversions(=patch)(~10kiB)sendspatchtoClient(~10kiBtransferred)Cl

  6. ruby - 如何将脚本文件的末尾读取为数据文件(Perl 或任何其他语言) - 2

    我正在寻找执行以下操作的正确语法(在Perl、Shell或Ruby中):#variabletoaccessthedatalinesappendedasafileEND_OF_SCRIPT_MARKERrawdatastartshereanditcontinues. 最佳答案 Perl用__DATA__做这个:#!/usr/bin/perlusestrict;usewarnings;while(){print;}__DATA__Texttoprintgoeshere 关于ruby-如何将脚

  7. ruby - 使用 Vim Rails，您可以创建一个新的迁移文件并一次性打开它吗？ - 2

    使用带有Rails插件的vim，您可以创建一个迁移文件，然后一次性打开该文件吗？textmate也可以这样吗？ 最佳答案 你可以使用rails.vim然后做类似的事情::Rgeneratemigratonadd_foo_to_bar插件将打开迁移生成的文件，这正是您想要的。我不能代表textmate。 关于ruby-使用VimRails，您可以创建一个新的迁移文件并一次性打开它吗？，我们在StackOverflow上找到一个类似的问题： https://sta

  8. ruby-on-rails - 如何优雅地重启 thin + nginx？ - 2

    我的瘦服务器配置了nginx，我的ROR应用程序正在它们上运行。在我发布代码更新时运行thinrestart会给我的应用程序带来一些停机时间。我试图弄清楚如何优雅地重启正在运行的Thin实例，但找不到好的解决方案。有没有人能做到这一点？ 最佳答案 #Restartjustthethinserverdescribedbythatconfigsudothin-C/etc/thin/mysite.ymlrestartNginx将继续运行并代理请求。如果您将Nginx设置为使用多个上游服务器，例如server{listen80;server

  9. Ruby 写入和读取对象到文件 - 2

    好的，所以我的目标是轻松地将一些数据保存到磁盘以备后用。您如何简单地写入然后读取一个对象？所以如果我有一个简单的类classCattr_accessor:a,:bdefinitialize(a,b)@a,@b=a,bendend所以如果我从中非常快地制作一个objobj=C.new("foo","bar")#justgaveitsomerandomvalues然后我可以把它变成一个kindaidstring=obj.to_s#whichreturns""我终于可以将此字符串打印到文件或其他内容中。我的问题是，我该如何再次将这个id变回一个对象？我知道我可以自己挑选信息并制作一个接受该信

  10. ruby - 如何使用 Ruby aws/s3 Gem 生成安全 URL 以从 s3 下载文件 - 2

    我正在编写一个小脚本来定位aws存储桶中的特定文件，并创建一个临时验证的url以发送给同事。(理想情况下，这将创建类似于在控制台上右键单击存储桶中的文件并复制链接地址的结果)。我研究过回形针，它似乎不符合这个标准，但我可能只是不知道它的全部功能。我尝试了以下方法:defauthenticated_url(file_name,bucket)AWS::S3::S3Object.url_for(file_name,bucket,:secure=>true,:expires=>20*60)end产生这种类型的结果:...-1.amazonaws.com/file_path/file.zip.A

随机推荐