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

Re^2: A program that really makes waves

by QM (Vicar)
on May 10, 2006 at 17:37 UTC ( #548521=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    my $input;
    unless ( $input = shift )
    ...
        my @tunes = grep { $_ !~ /^#/ and /\S/ } <DATA>;
        chomp($input = $tunes[rand(@tunes)]);
    }
    
  2. or download this
    __DATA__
    # Original: 
    ...
    
    # TTLS Variation 5
    vV+!40!+|:C/rC*G/rG*+A/rA-*G/rGrFrFrErErDrD*Cr:||:G/rG~*F#/rF~*E/rEb~*
    +D/r-G+*G/r/G~F#~^F/r/F~E~^Eb/r/F#~G~^D/r/F~D~^C/r/C~E~^G/r/G~E~+^A/r/
    +A~C~^-G/r/E~GRG~F#RD~FRF~ERG~ERC#~DRF~DRB~C^r:|vV-!40!+|:RRRr/rErErDr
    +DrCrCrB*Cr:|vV-!40!|:/rCERECRFCRECrDrBrCrA-rFrGR+C-*C+:||:|:/rE-*G/r+
    +D-*G/r+C-*G/r+B-*G+:|-/r/C~E~^G/r/+C~E~^G/r/F~+A~-^C/r/E~G~^C/DrBrCr-
    +ErFrGr+Cr-Cr+*:|
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (3)
As of 2014-10-26 08:36 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (152 votes), past polls