http://www.perlmonks.org?node_id=640553


in reply to Re: You've just spilled something on your tie at lunch... Do you:
in thread You've just spilled something on your tie at lunch... Do you:

Hmm.. Your sig:
($$<<$$=>$$<=>$$<=$$>>$$) always returns 1. :-)
Seems like you're right
perl -le 'print +($$<<$$=>$$<=>$$<=$$>>$$)' 26088570881

for very large values of 1 :-P

--shmem

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}

Replies are listed 'Best First'.
Re^3: You've just spilled something on your tie at lunch... Do you:
by ysth (Canon) on Sep 23, 2007 at 23:04 UTC
    It always returns 1, and sometimes returns other numbers too, depending on how you invoke it.
      I saw the fat comma in that expression, but dinn' think much further...
      perl -le '%h = ($$<<$$=>$$<=>$$<=$$>>$$); print $h{$_} for keys %h' 1

      Thank you.

      --shmem

      _($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                                    /\_¯/(q    /
      ----------------------------  \__(m.====·.(_("always off the crowd"))."·
      ");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}
Re^3: You've just spilled something on your tie at lunch... Do you:
by wolfger (Deacon) on Sep 28, 2007 at 19:00 UTC

    He didn't say it only returned a *single* 1, did he? ;-)
    It returns a whole lot of 1's, bundled together for your convenience.