Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

WPERL: The Perl radio station

by petdance (Parson)
on Jul 09, 2001 at 20:22 UTC ( [id://95029]=poem: print w/replies, xml ) Need Help??

I love music, and I spend a lot of time listening to WPERL, the Perl radio station. (Usually I listen to it when I'm going to The Perl Film Festival)

Here are some of the artists that are played on WPERL: 

=head1 Radio

use Cache::Cache;
my $johnny = new Cache;
my $june_carter = new Cache;
my $roseanne = new Cache;

/night/../r/

[download]
And some of my favorite songs 
speak() if 0;
(by undef $doubt;)

print '<font color="#000000">Back</font>';

$drink{$_} = 1 for ( qw( bourbon scotch beer ) );

my $greatest = undef;
for ( @love ) {
    $greatest = $_ if $_ > $greatest;
}
print $greatest;

[download]
Has anyone else listened to WPERL?
Highlight below for answers: 
Artists:
Radiohead
Johnny Cash, June Carter Cash, Roseanne Cash
Night Ranger

Songs:
"Don't Speak" by No Doubt
"Back In Black"
"One Bourbon, One Scotch, One Beer"
"The Greatest Love Of All"

xoxo,
Andy
--
<megaphone> Throw down the gun and tiara and come out of the float! </megaphone>

Replies are listed 'Best First'.
Re: WPERL: The Perl radio station
by Masem (Monsignor) on Jul 09, 2001 at 20:54 UTC
    How can you forget my favorite band?? 
    use Quantum::Superposition;
$they = any( 'Indians', 'Mets', 'Cubs', 'Giants', 'Yankees', 'White So
+x' );

    [download]
    (Answer (highlight):
    They Might Be Giants
    )
    Dr. Michael K. Neylon - mneylon-pm@masemware.com || "You've left the lens cap of your mind on again, Pinky" - The Brain
[reply]
[d/l]
Re: WPERL: The Perl radio station
by japhy (Canon) on Jul 09, 2001 at 20:48 UTC
    Of course I listen to it! It's button 1 on my car stereo. 
    @dow = map $_.'day',
  qw( Sun Mon Tues Wednes Thurs Fri Satur );

for ($i = 0; ;) { $i++;  close(R); }

%|;

BEGIN { END { BEGIN { ... } } }

END { BEGIN { END { ... } } }

@critters = qw( angels insects );
splice(@critters, 1, 0, $something);

$dream = 1;

    [download]
    Updated, thanks to petdance... 
    Days of the Week
(Stone Temple Pilots)

One Step Closer
(Linkin Park)

Hash Pipe
(Weezer)

The Beginning is the End is the Beginning
(Smashing Pumpkins)

The End is the Beginning is the End
(Smashing Pumpkins)

Between Angels and Insects
(Papa Roach)

Dream On
(Depeche Mode)

    [download]


    japhy -- Perl and Regex Hacker
[reply]
[d/l]
[select]
Re: WPERL: The Perl radio station
by OeufMayo (Curate) on Jul 09, 2001 at 23:24 UTC

    I do hope WPERL plays old blues tune like:

    
my @trail =('hellhound','hellhound');

package vain;
use vars qw($love @love %love);

$night = 'dark';
undef $night;

my $bad_sign;
    $born++;

my $broom = new Blues;
$broom->dust();

package Y;
use 5.6;
our $funeral;
my $trial;

    [download]

    and other stuff like:

    @stuff = ('jams', 'hams', 'rams');
shift @stuff;

    [download]

    Solutions:

    • Hellounds on my trail (R. Johnson)
    • All my love in vain (R. Johnson)
    • Dark was the night (Blind Willie Johnson)
    • Dust my broom (R. Johnson)
    • (Y::)our funeral my trial (Sonny Boy Williamson)
    • Kick out the Jams (MC5)
     <kbd>--
    my $OeufMayo = new PerlMonger::Paris({http => 'paris.mongueurs.net'});</kbd>
[reply]
[d/l]
[select]
[reply]
Re: WPERL: The Perl radio station
by mexnix (Pilgrim) on Jul 09, 2001 at 22:34 UTC
    dang you japhy!! you took all the good ones, not that I could have been as creative...here's one I've been listening to a lot lately (not as good as everyone elses, but I had to try) 

    @nums = (1...50);
print (join (" and ", @nums[45, 1]));

    [download]

    Answer: (forty six and two by Tool)

    __________________________________________________
    %mexnix = (email = > "mexnix@hotmail.com", website => "http://mexnix.perlmonk.org");

[reply]
[d/l]
Re: WPERL: The Perl radio station
by joefission (Monk) on Jul 10, 2001 at 01:58 UTC
    Even novices listen :-) 

    $sleep = undef unless $brooklyn;

    [download]

    if (!$vaseline) {
     return($ice**3);
}

    [download]

    $SaturdayNight++;

    [download]

    Answers (as if you needed them):
    No Sleep til Brooklyn --Beastie Boys
    No Vaseline -- IceCube
    One More Saturday Night --Grateful Dead

[reply]
[d/l]
[select]
I can't remember anything
by petdance (Parson) on Jul 10, 2001 at 01:41 UTC
    Oooh, I forgot my favorite! I must confess that I've adapted it from someone's Slashdot sig: 
    $title = 1;
$darkness->take($_)
    foreach ( qw( sight speech hearing arms legs soul ) );
$left = "life in hell";

    [download]

    xoxo,
    Andy
    --
    <megaphone> Throw down the gun and tiara and come out of the float! </megaphone>

[reply]
[d/l]
Re: WPERL: The Perl radio station
by frag (Hermit) on Jul 11, 2001 at 03:53 UTC
    And who can forget these timeless classics: 
    tie my $fire, 'Tie::Cycle', [ qw( burns burns burns ) ];

time - 86400;

$@ eq '' and $! == 0 and $^E eq '' and $? == 0;

$you->name;

    [download]
    "Ring of Fire"
    "Yesterday"
    "Ain't Misbehavin'"
    "I Call Your Name"

    And it turns out that WPRL is out there, but not online. KPRL promises to soon be streaming, if you're into the comedy stylings of Dr. Laura and G.G. Liddy.

    -- Frag.

[reply]
[d/l]
Re: WPERL: The Perl radio station
by grinder (Bishop) on Jul 10, 2001 at 02:18 UTC

    Here's hoping this revives interest in the film festival! Anyway, I was just listening to it right now and heard some great tunes.

    use Date::Format;
print time2str( "%o of %B\n", 994200000 );

magnificent(7);

@police && @thieves;

pop @balloon;

return $gift;

    [download]

    Solutions:

    4th of July -- Galaxie 500
    Magnificent 7 -- The Clash
    Police and Thieves -- The Clash
    The Last Balloon -- XTC
    Retun the Gift -- Gang of Four

    update: Tip o' the hat to buckaduck for realising that I meant to link to this instead of that.


    g r i n d e r
[reply]
[d/l]
Re: WPERL: The Perl radio station
by EvanK (Chaplain) on Aug 19, 2001 at 10:41 UTC
    couple of my favorites: 
    while(1) {
   meet($you && $i);
}


$impression = get();


count($cars) if "blue";


for($devil) {print "sympathy"}


$knock--;
drag("out");


$low-- && $wet--;

    [download]
    Answers:
    You And I Will Meet Again (Tom Petty)
    Impression That I Get (Mighty Mighty Bosstones)
    Counting Blue Cars (Dishwalla)
    Sympathy For The Devil (Rolling Stones)
    Knock Down Drag Out (Weezer)
    High And Dry (Radiohead)

    ______________________________________________
    RIP
    Douglas Noel Adams
    1952 - 2001

[reply]
[d/l]

Back to Perl Poetry

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: poem [id://95029]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (3)
As of 2024-10-08 18:32 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    The PerlMonks site front end has:





    Results (44 votes). Check out past polls.
    Notices?
    • erzuuli‥ 🛈The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.