Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Limbic~Region's scratchpad

by Limbic~Region (Chancellor)
on Jun 01, 2004 at 14:35 UTC ( #358097=scratchpad: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    sub format_string {
        my ($str) = @_;
    ...
        }
        return $new_str;
    }
    
  2. or download this
    my $wid = WaitWindow('Notepad', 5);
    
    ...
    
    MouseMoveAbsPix($x,$y);
    SendKeys("{ENTER}");
    
  3. or download this
    ## Shared the array of select ids
    my @id :shared;
    ...
    
    ## Wait for them
    $_->join for @threads;
    
  4. or download this
    sub _insert {
        my ($node, $cmp, $key, $val) = @_;
    ...
    
        return $node;
    }
    
  5. or download this
    sub _insert {
        my ($node, $cmp, $key, $val) = @_;
    ...
        }
        return $assign->[NODE];
    }
    
  6. or download this
    package Tree::Binary::RedBlack;
    require Exporter;
    ...
    2. http://www.cs.princeton.edu/~rs/talks/LLRB/RedBlack.pdf
    3. http://www.cs.princeton.edu/~rs/talks/LLRB/08Penn.pdf
    
  7. or download this
    UPDATE
        table t
    ...
        )
    WHERE
        race_id in (select pkey_id from race where track_id = 37)
    
  8. or download this
    table event
       pkey_id    = serial
    ...
                event_date = e.event_date AND
                event_num  = e.event_num
        ) 
    
  9. or download this
    print solve(
        holes => 33,
    ...
            [28, 29, 30], [31, 32, 33],
        ],
    );
    
  10. or download this
    #!/usr/bin/perl
    use strict;
    ...
            }
        };
    }
    
  11. or download this
    #! /usr/bin/perl
    use strict;
    ...
            return @uniq;
        }
    }
    
  12. or download this
    package Some::Object;
    use strict;
    ...
        }
        $self->{OPT} = \%user;
    }
    
  13. or download this
    #!/usr/bin/perl
    use strict;
    ...
        $pm->finish;
        # We are in parent process
    }
    

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 taking refuge in the Monastery: (7)
As of 2014-08-30 21:33 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (294 votes), past polls