0

这是对我的旧问题的扩展：使用 system 将哈希对象从一个 perl 脚本传递到另一个。@Sobrique 在那里回答了我的问题。

现在，我想知道我是否可以以与我上面的问题相同的方式将哈希对象传递给另一个 perl 脚本，但使用bsub.

包装脚本：script1.pl

use strict;
use warnings;
use Storable qw ( freeze  );
use MIME::Base64;

my %test_hash = (
    "fish"   => "paste",
    "apples" => "pears"
);

my $frozen = encode_base64 freeze( \%test_hash );
my ${string} = 'sample1';

# instead of just using system like this
# system("perl", "some_other_script.pl", $frozen);
# I want to use something like this:
system('bsub','-J',${string},'-o','${string}.out','-e','${string}.err','perl','some_other_script.pl',$frozen);

some_other_script.pl

use strict;
use warnings;
use Storable qw ( thaw );
use Data::Dumper;
use MIME::Base64;

# should read the imported hash correctly and print it out
my ($imported_scalar) = @ARGV; 
print $imported_scalar;
my %param =  %{ thaw (decode_base64 $imported_scalar ) };
print $param{'fish'};
print "\n";

我怎样才能做到这一点？任何帮助将非常感激。

谢谢！

4

1 回答 1

0

这真的是一个bsub比perl. 通过 Base64 编码的参数传递参数可能会成功，但实际上，如果您的目的是将数据传递到批处理系统，则可能值得使用输入文件：

如果您查看bsub手册页，您会看到：

-i 输入文件 | -是输入文件

这可能是将“输入”传递给批处理作业的更好方法。

于 2015-10-13T14:06:05.997 回答