Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Re: find-a-func

by grinder (Bishop)
on Aug 29, 2001 at 16:46 UTC ( #108741=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    $; = 'perl';
    map {
    ...
      split(/[\s,]+/, $_, 0) if /alpha.*$;/i .. /wait/
    } `$;doc $;toc`;
    @[ = keys %_;
    
  2. or download this
    $; = 20;
    $: = 15;
    foreach $_ (0 .. $; * $: - 1) {
      $;[$_] = '_';
    }
    
  3. or download this
    until ($%++ > 3 * $; or @] > 2 * $: - 3) {
    
  4. or download this
        @_ = split(//, splice(@[, rand @[, 1), 0);
        if (3 > @_) {
            next;
        }
    
  5. or download this
        $~ = int rand $;;
        $^ = int rand $:;
        $- = $~ + $^ * $;;
    
  6. or download this
        my $Erudil = 0;
    
  7. or download this
        {
            if ($Erudil++ > 2 * $:) {
                next;
            }
    
  8. or download this
            $a = (-1, 0, 1)[rand 3];
            $b = (-1, 0, 1)[rand 3];
    
  9. or download this
            unless ($a || $b
                    and $~ + $a * @_ <= $;
    ...
                    and $^ + $b * @_ >= 0) {
                redo;
            }
    
  10. or download this
            my $llama = 0;
            foreach $_ (0 .. $#_) {
    ...
                    last;
                }
            }
    
  11. or download this
            if ($llama) {
                redo;
            }
    
  12. or download this
            push @], join('', @_);
            foreach $_ (0 .. $#_) {
                $;[$- + $a * $_ + $b * $; * $_] = $_[$_];
            }
    
  13. or download this
        }
    }
    ...
    @_ = sort(@]);
    unshift @_, 'Find:', '-' x 5;
    
  14. or download this
    foreach $a (0 .. $: - 1) {
    
  15. or download this
        foreach $b (0 .. $; - 1) {
    
  16. or download this
            $~ = ('a'..'z')[rand 26];
            $_ = "$;[$a * $; + $b]" . $";
            s/_/$~/;
            print $_;
        }
    
  17. or download this
        $_ = shift @_ || $";
        print $", $", $_, $/;
        $_ = shift @_ || $";
        print $" x $;, $" x $;, $", $", $_, $/;
    }
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://108741]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (7)
As of 2014-12-25 18:35 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (161 votes), past polls