How to pass shell script argument in perl module's subroutine

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'`

I don't want to export the $IPV6 variable, so I am looking any other way to do this.

Why don't you write a Perl script expand_ipv6_addr that expands addresses given as command line arguments? — reinierpost
– reinierpost, Commented Mar 10, 2015 at 12:21
Why do you have a problem with passing it to perl via its environment? — ikegami
– ikegami, Commented Mar 10, 2015 at 15:19

glenn jackman · Accepted Answer · 2015-03-10 13:48:49Z

2

Grab the value from @ARGV:

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

answered Mar 10, 2015 at 13:48

glenn jackman

249k42 gold badges233 silver badges362 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

ikegami · Accepted Answer · 2015-03-10 15:33:37Z

-1

Instead of exporting $1 into an environment variable you could use it again later and escape the perl code.

The following worked for me with a stubbed out version of /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
"`

edited Mar 10, 2015 at 15:33

ikegami

391k17 gold badges291 silver badges555 bronze badges

answered Mar 10, 2015 at 12:42

moonmoon

1

2 Comments

ikegami Over a year ago

Doesn't work. ./expand 2001:0db8:85a3:0000:0000:8a2e:0370:7334 gives a number of syntax errors because expand_ipv6_addr(2001:0db8:85a3:0000:0000:8a2e:0370:7334) is not valid Perl code.

ikegami Over a year ago

You might be tempted to add quotes, that would only be a partial fix because that would allow ./expand '".malicious()."'. Generating code is an awful idea. Instead, you should use a parameter, the environment (which the OP forbade for unknown reasons), STDIN, etc.

Collectives™ on Stack Overflow

How to pass shell script argument in perl module's subroutine

2 Answers 2

Comments

2 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

2 Comments

Your Answer

Sign up or log in

Post as a guest

Related