print subroutine name calls subroutine but with appended 1 number to the output

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: print subroutine name calls subroutine but with appended 1 number to the output by roboticus (Chancellor) on May 01, 2012 at 18:25 UTC
You're printing "hello" on line 5. But the foo subroutine returns the result from print to the calling line. The problem is that you're printing that result, too. Print returns a true value when successful, evidentally 1 in this case. Change line 5 to: `return "hello";` [download] and you'll get the results you were looking for. ...roboticus When your only tool is a hammer, all problems look like your thumb.	[reply] [d/l]
Re: print subroutine name calls subroutine but with appended 1 number to the output by jwkrahn (Abbot) on May 01, 2012 at 18:27 UTC
What you are effectively doing is: `print print "hello";` [download] The first print prints the string "hello" and the second print prints the return value of the first print which is 1.	[reply] [d/l]
Re: print subroutine name calls subroutine but with appended 1 number to the output by 2teez (Vicar) on May 01, 2012 at 19:44 UTC
As stated by others the 1 shows that the subroutine does its job and return even when return was not stated explicitly, for all it worth, it should also be noted that subroutine should also be called with parentheses like this: `foo();` [download] even when no parameter is been passed. Reason ( Imagine this: calling the subroutine before it's decleared): `foo; ## Oops sub foo { print "hello"; } print "\n";` [download] but with `foo(); # it works` [download]	[reply] [d/l] [select]
Re^2: print subroutine name calls subroutine but with appended 1 number to the output by Anonymous Monk on May 02, 2012 at 05:32 UTC
Thank you everyone!	[reply]