如何在perl模块子程序中传递shell脚本参数

Question

#!/bin/bash
export IPV6=$1
expanded_ipv6_addr=`perl -e 'require "/usr/bin/ipv6_helper.pm"; $expand_ipv6=expand_ipv6_addr($ENV{IPV6});print $expand_ipv6'`

我不想导出$IPV6变量，所以我正在寻找任何其他方法来实现这一点。

Answer 1

从@ARGV抓取值：

expanded_ipv6_addr=$(
  perl -e '
    require "/usr/bin/ipv6_helper.pm"; 
    print expand_ipv6_addr(shift)
  ' "$IPV6"
)

Answer 2

您可以稍后再次使用$1并转义perl代码，而不是将$1导出到环境变量中。

以下命令适用于/usr/bin/ipv6_helper.pm的存根输出版本

#!/bin/bash
IPV6=$1
expanded_ipv6_addri=`perl -e "
   require \"/usr/bin/ipv6_helper.pm\";
   \\$expand_ipv6 = expand_ipv6_addr($IPV6);
   print \\$expand_ipv6
"`