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

vladb's scratchpad

by vladb (Vicar)
on Jun 05, 2004 at 12:29 UTC ( #361545=scratchpad: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    # minimum sentence size, to elimnate fluff
    $min_size=10;
    ...
    ($intro)=($article=~/((?:[^\.]{$min_size,}\.){4})/si);
    
    print "$intro\n";
    
  2. or download this
    im the kink. but you are not the king. we are the kings. yes we are th
    +e kings.
    
  3. or download this
    $x = 0;
    $s = "HOLY BIBLE";
    $s =~ s/(\w)/{$x+=($o=ord($1));print"$1 - $o\n";''}/eg;
    print "Total: $x\n";
    
  4. or download this
    H - 72
    O - 79
    ...
    L - 76
    E - 69
    Total: 666
    
  5. or download this
    #!/usr/local/bin/perl
    
    ...
        close REPORT;
        exit;
    }
    

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 pondering the Monastery: (7)
As of 2014-07-10 10:19 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When choosing user names for websites, I prefer to use:








    Results (206 votes), past polls