return $$

After playing around with a free Perl script
the Perl ÜberHacker wanted his money back.
#!/usr/bin/perl -w
#        ___
#    ___(___)___
#   (   |   |___)
#   |ŻŻŻ|   |   |
#   |__ | ##|   |ŻŻŻ)
#  /   )########|ŻŻŻ|
# 1 _ /#  ##    |   |
# |   ##########    |
       return;##    |
# (  __   ##  ##    )
#  \  ##########   /
#  |      ##`~    7
#  [_____________¸]
[download]

Comment on return $$ Download Code

Replies are listed 'Best First'.
(crazyinsomniac) Re: return $$ by crazyinsomniac (Prior) on Dec 10, 2000 at 05:04 UTC
update: I can't beleive no one pointed it out, but if you try to run the above you'll get "can't return outside a subroutine". so here goes the fix: #!/usr/bin/perl -w #!perl -w use strict;#!Strict(kick me in the nuts that's what it is) print &sub("Just Another Perl wHacker."); sub sub # ___ # ___(___)___ # ( \| \|___) # \|ŻŻŻ\| \| \| # \|__ \| ##\| \|ŻŻŻ) # / )########\|ŻŻŻ\| # l _ /# ## \| \| { ########### \| return ## \| @_ ## \| ;} ## \| # ( __ ## ## ) # \ ########## / # \| ##`~ 7 # [_____________¸] [download] "cRaZy is co01, but sometimes cRaZy is cRaZy". - crazyinsomniac	[reply] [d/l]

Replies are listed 'Best First'.

(crazyinsomniac) Re: return $$
by crazyinsomniac (Prior) on Dec 10, 2000 at 05:04 UTC

update:

fix

#!/usr/bin/perl -w
#!perl -w

use strict;#!Strict(kick me in the nuts that's what it is)

print &sub("Just Another Perl wHacker.");

sub sub
#          ___
#      ___(___)___
#     (   |   |___)
#     |ŻŻŻ|   |   |
#     |__ | ##|   |ŻŻŻ)
#    /   )########|ŻŻŻ|
#   l _ /#  ##    |   |
    {  ###########    |
        return  ##    |
            @_  ##    |
            ;}  ##    |
#   (  __   ##  ##    )
#    \  ##########   /
#    |      ##`~    7
#    [_____________¸]
[download]

"cRaZy is co01, but sometimes cRaZy is cRaZy".
- crazyinsomniac

[reply]
[d/l]