Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Gilimanjaro's scratchpad

by Gilimanjaro (Hermit)
on Jun 14, 2004 at 10:24 UTC ( #366473=scratchpad: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    use strict;
    ...
    
    print "** $title:\n";
    print "$html\n";
    
  2. or download this
    #!/usr/bin/perl
    use warnings;
    ...
            my $rainaverage = @data ? ($raintotal / @data) : undef;
            print "$region: $rainaverage\n";
    }
    
  3. or download this
    #!/usr/bin/perl
    use warnings;
    ...
    );
    
    print $_->as_trimmed_text,"\n" for @cells;
    
  4. or download this
    PENINSULA
    GULF COUNTRY
    ...
    WIDE BAY and BURNETT
    SOUTHEAST COAST
    CORAL SEA
    
  5. or download this
    # All directories in our parent's path
    %dirs = map { /^.*\/(.*)/ => $_ } grep {-d} glob "../*";
    
  6. or download this
    # De-crapper (for use after Word HTML idiocy)
    my $file = join '',<>;
    ...
    $file =~ s/<\/?span.*?>//gms;
    
    print $file;
    
  7. or download this
    # Password generator
    my @chars = ('.','!','#','@','$','/',0..9,'A'..'Z','a'..'z');
    my $length = 8 + rand 4;
    my $pw = join '', @chars[ map { rand @chars } (1..$length)];
    
  8. or download this
    # Java namestyle to SQL namestyle regex
    s/(?<!^)([A-Z]+)/_\L$1\E/g;
    
  9. or download this
    # Environment dumper
    while (my @set = each %ENV) {printf "%s=>%s\n",@set}
    

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 examining the Monastery: (6)
As of 2014-09-16 22:26 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (51 votes), past polls