Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

marioroy's scratchpad

by marioroy (Hermit)
on Nov 23, 2012 at 16:09 UTC ( #1005296=scratchpad: print w/ replies, xml ) Need Help??

The following lives inside MCE-1.699_009 and used for queries by several methods in MCE::Shared::{ Array, Hash, Minidb, and Ordhash }.

my %rules = ( ## #/\# #//\\# #///////#///\\\#\\\\\\\# #///P///#///E///#/// \\\#\\\R\\\#\\\L\\\# #///////#//// //#//// //#/////\\\\\#\\ \\\\#\\ \\\\#\\\\\\\# #//// //#///////#///////#//////\\\\\\#\\\\\\\#\\\\\\\#\\ \\\\# '==' => sub { looks_like_number ($_[0]) && $_[0] == $_[1] }, '!=' => sub { looks_like_number ($_[0]) && $_[0] != $_[1] }, '<' => sub { looks_like_number ($_[0]) && $_[0] < $_[1] }, '<=' => sub { looks_like_number ($_[0]) && $_[0] <= $_[1] }, '>' => sub { looks_like_number ($_[0]) && $_[0] > $_[1] }, '>=' => sub { looks_like_number ($_[0]) && $_[0] >= $_[1] }, 'eq' => sub { !ref ($_[0]) && $_[0] eq $_[1] }, 'ne' => sub { !ref ($_[0]) && $_[0] ne $_[1] }, 'lt' => sub { !ref ($_[0]) && $_[0] lt $_[1] }, 'le' => sub { !ref ($_[0]) && $_[0] le $_[1] }, 'gt' => sub { !ref ($_[0]) && $_[0] gt $_[1] }, 'ge' => sub { !ref ($_[0]) && $_[0] ge $_[1] }, '=~' => sub { !ref ($_[0]) && $_[0] =~ $_[1] }, '!~' => sub { !ref ($_[0]) && $_[0] !~ $_[1] }, #### / Welcome; \ #### #### #### #### #### / \ #### #### #### #### ); # Perl Palace, MR 01/2016
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (5)
As of 2016-08-28 22:46 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    The best thing I ever won in a lottery was:















    Results (396 votes). Check out past polls.