Re: Re: Re: 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]);
}
[download]

Man, this is getting fun. I wish I could shave this many strokes of my discgolf game!
_____________________________________________
mojobozo
word (wūrd)
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]; }` [download] -- Dan	[reply] [d/l]
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]; }` [download] or for that matter `sub add{ shift+shift; }` [download] Update: OK, so I guess the shift() there is ambiguous. Anyway, you get the point. blokhead	[reply] [d/l] [select]