do is not doing it!

[cybear]

Wisdom Holders,
I have a script, GET.pl, among others, that connects to machines outside of my firewall to retrieve data. Before I initiate that connection I call an external script, pingtest.pl, that determines which of my firewalls can connect to that external server. When a connection failure occures the pingtest.pl script issues an e-mail alert to my OPS team.

My problem is: I have no way of telling which script on which server has the failing pingtest.pl.

I am using my @values = do '/usr/local/bin/pingtest.pl'; to call the script. It returns info to the @values array but I cannot figure out how to pass the name of the calling script to the pingtest.pl script. my @values = do '/usr/local/bin/pingtest.pl myhostname'; does not work.

Please reveal the pearl of PERL of Wisdom that I do not possess.

[tachyon]

You can do it in several ways, backtics should work or you could use open - see IPC::Open3:

$myhostname = 'some_host';
@values = `/usr/local/bin/pingtest.pl $myhostname`;

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

[cybear]

Thank you. I for some reason I didn't think of that.

Wisdom humbily received. :-)

[broquaint]

Perhaps you want to use the backtick operator instead of do, as do will evaluate /usr/local/bin/pingtest.pl not execute it (similar but not the same). So you'll probably want something like this

my @values = `/usr/local/bin/pingtest.pl`;
chomp @values; # get rid of tricky newlines


HTH

broquaint

[cybear]

My thanks to you. K - I - S - S, right?