Re^3: passing vars to a sub

Does

print "you passed $print_subsystem for server $server_name\n",br;
[download]

print out the same thing both times? (hardcoded and passed in)? can you try trammell's suggestion and see what the result is?

--------------
It's sad that a family can be torn apart by such a such a simple thing as a pack of wild dogs

Comment on Re^3: passing vars to a sub Download Code

Replies are listed 'Best First'.
Re^4: passing vars to a sub by tcf03 (Deacon) on Mar 11, 2005 at 15:54 UTC
yes It prints the same thing both times. Funny thing though, If I code the following `print "first pass",br; get_status("cups", "rlinux1"); print "second pass",br; get_status($SERVERS[$rev_srv_num{$SERVER}]->[2], $SERVER);` [download] I get `you passed cups for server rlinux1 RSPARE-35 TFIEDLER 117760 Wed Mar 9 16:58:54 2005 RSPARE-37 root 2048 Thu Mar 10 09:17:53 2005 R_NETADMIN-43 TFIEDLER 74752 Thu Mar 10 12:59:19 2005 R_NETADMIN_NB-44 TFIEDLER 74752 Thu Mar 10 12:59:44 2005 RSPARE-45 TFIEDLER 34816 Fri Mar 11 10:23:08 2005 second pass you passed cups for server rlinux1` [download] passed to my browser but If I change the order of the get_status calls (sending the variables in the first pass, and hard coding the second pass), I get: `first pass you passed cups for server rlinux1` [download] It never makes it to the second pass. BTW I tried writing:`get_status($SERVERS[$rev_srv_num{$SERVER}]->[2], $SERVER);` as `$SERVERS[$rev_srv_num{$SERVER}][2]` and that doesnt work either	[reply] [d/l] [select]
Re^5: passing vars to a sub by RazorbladeBidet (Friar) on Mar 11, 2005 at 16:01 UTC
Try doing this: `$cmd = "/usr/bin/lpstat -h $server_name -o"; print $cmd, "\n"; @STATUS = qx/$cmd/;` [download] Just to see what the command line is each time... we're really just getting into prints for the sake of debugging here... I'm not sure why it's not working. -------------- It's sad that a family can be torn apart by such a such a simple thing as a pack of wild dogs	[reply] [d/l]
Re^6: passing vars to a sub by tcf03 (Deacon) on Mar 11, 2005 at 17:02 UTC
this is what is passed to the browser `first pass you passed cups for server rlinux1 /usr/bin/lpstat -h rlinux1 -o` [download]	[reply] [d/l]


Don't ask to ask, just ask
	PerlMonks