Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight

Re^2: Passing Sub Values

by Anonymous Monk
on Mar 21, 2008 at 17:31 UTC ( [id://675485] : note . print w/replies, xml ) Need Help??

in reply to Re: Passing Sub Values
in thread Passing Sub Values

There is a problem, when you run this it is also bringing the rest of the stuff from the first sub, the ideal thing would be to just print the values been passed from sub first like:  return ($arg_1,$arg_2,$val_3,$val_4); and what ever else is in the sub second.

Replies are listed 'Best First'.
Re^3: Passing Sub Values
by lidden (Curate) on Mar 21, 2008 at 18:36 UTC
    You seem confused about what is returned from a function and the stuff that is printed to the screen/browser. That said, if I understand you correctly you want something like the following, leave the second() function as above.
    if($tran eq 'edit'){ second(common($val_1, $val_2)); } else{ first(common($val_1, $val_2)); } sub common{ my $arg_1 = shift; my $arg_2 = shift; my $val_1 = "Tested"; my $val_2 = "Passed"; return ($arg_1,$arg_2,$val_1,$val_1); } sub first { my ($arg_1, $arg_2, $val_3, $val_4) = @_; print "I've got::: Val 1=$arg_1 and Val 2=$arg_2<br>\n"; print "<br>And I have::: Val 3=$val_3 and Val 4=$val_4<br>\n"; print "<br><a href=\"\">Edit X</a>\n"; }