Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Re: Re: Re: Returning Values from Subroutines

by mojobozo (Monk)
on Sep 06, 2002 at 16:38 UTC ( #195697=note: print w/ replies, xml ) Need Help??


in reply to Re: Re: Returning Values from Subroutines
in thread Returning Values from Subroutines

And, using the example in ignatz's reposnse, even more strokes shaved:

#!/usr/local/bin/perl print add(1,2); sub add{ return ($_[0] + $_[1]); }

Man, this is getting fun. I wish I could shave this many strokes of my discgolf game!
_____________________________________________
mojobozo
word (wrd)
interj. Slang. Used to express approval or an affirmative response to
something. Sometimes used with up. Source


Comment on Re: Re: Re: Returning Values from Subroutines
Download Code
Replies are listed 'Best First'.
Re:^4 Returning Values from Subroutines
by zigdon (Deacon) on Sep 06, 2002 at 17:48 UTC
    Well, as long as we're golfing:
    #!/usr/local/bin/perl print add(1,2); sub add{ $_[0] + $_[1]; }

    -- Dan

Re: Re: Re: Re: Returning Values from Subroutines
by blokhead (Monsignor) on Sep 06, 2002 at 17:33 UTC
    The return keyword can be omitted when it's the last line of a sub, so this will also work:
    #!/usr/local/bin/perl print add(1,2); sub add{ $_[0]+$_[1]; }
    or for that matter
    sub add{ shift+shift; }
    Update: OK, so I guess the shift() there is ambiguous. Anyway, you get the point.

    blokhead

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://195697]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (13)
As of 2015-07-28 22:36 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (260 votes), past polls