主页 / ubuntu / 问题 / 1048605
Accepted
J. Doe
Asked: 2018-06-22 10:07:00 +0800 CST

如何将我的变量从 Bash 脚本带入 Perl 脚本？

  • 772

我在 bash 脚本中有变量，我需要将其转移到 perl 中。我在 bash 脚本中声明了变量 $gal 和 $obsid，然后我调用了新程序。

gal=UCLA121
obsid=1896
./my_program

perl 脚本的开头加载带有短语的图像

$ph_im =  "./$gal/img/${obsid}.img";

但新程序中的变量为 NULL。

scripts bash environment-variables language perl

3 个回答

  1. Best Answer

    可以通过导出变量来使 shell 脚本中的子进程可以使用变量

    export foo=bar

    或者通过调用带有变量的程序

    foo=bar ./my_prog.pl

    无论哪种情况，您都需要ENV在 perl 脚本中调用它们

    my $barfoo = $ENV{'foo'};
    • 19

  2. 使用环境是一种更清洁的方式。

    有开关：_-s

    $ cat vars.pl
#!perl
use feature 'say';
say "foo=$foo";
say "bar=$bar";

$ echo "$foo,$bar"
123,456

$ perl -s ./vars.pl -foo="$foo" -bar="$bar"
foo=123
bar=456
    • 10

  3. 如果你这样称呼它

    ./myscript.pl 1 35

    您可以使用@ARGV. 例如

    #!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper qw(Dumper);

print "ARGV[0]=$ARGV[0]";
print "ARGV[1]=$ARGV[1]";

print Dumper \@ARGV;

    示例来源。

    这是一个老例子，所以它可能没有使用最新的样式。我目前没有设置 perl 编译器，所以我无法测试输出。

    您可以使用Data::Dumper来帮助您调试事物。

    如果你这样称呼它

    perl -s ./myprogram -$gal="$gal" -$obsid="$obsid" 1 35

    意识到你可能会得到奇怪的结果混合@ARGV和命名参数。您可能希望将调用方式更改为类似

    perl -s ./myprogram $gal $obsid 1 35

    或者

    perl -s ./myprogram -gal="$gal" -obsid="$obsid" -first="1" -second="35"

    另请注意，命名参数是-gal，而不是-$gal。我不太确定$它会在那里做什么，但它往往会做一些事情，而不是没有它会发生什么。

    请记住，Data::Dumper如果您得到令人困惑的结果，可以帮助您调试事物。

    • 4

相关问题