in reply to The Top 10 Perl/Programming Songs of All Time
So long at it seems to be mostly bad puns, let's see if anyone can recognize the bands/songs from the code snippets:
!( $this->isa( 'exit' )) until ($brooklyn) { } continue { sleep() } while ($america) { $america->DESTROY } `touch evil` @ways_to_die == 99 @fix == 1 $self->name eq 'mud' 7 + 7 == die unless $too_tough; if ( $you->buy('cd') ) { $self->get('porche') } require 'English' || die (! $self->believe() ) $technicolor->blur() $self == $hell
And, for the case of no real code involved, but search engines probably won't help you: (okay, with the one word names, there's probably more than one artist who have songs with these titles)
time if $pass && $fail split Test use less sleep push
I guess one hint -- they're in alphabetical order by artist name (as I just browsed through my listings)
Update: well, no one seems to have tried guessing in the ~40hrs it was up, so here are the answers:
| Anthrax (This is not an Exit) | !( $this->isa( 'exit' )) |
| Beastie Boys (No Sleep 'til Brooklyn) | until ($brooklyn) { } continue { sleep() } |
| GWAR (America Must Be Destroyed) | while ($america) { $america->DESTROY } |
| Judas Priest (Touch of Evil) | `touch evil` |
| Megadeth (99 Ways to Die) | @ways_to_die == 99 |
| Ministry (Just one Fix) | @fix == 1 |
| Primus (My Name is Mud) | $self->name eq 'mud' |
| Ramones (7 and 7 is) | 7 + 7 == |
| Ramones (Too Tough to Die) | die unless $too_tough; |
| Robert Schimmel (If You Buy My CD I Can Get a Porche) | if ( $you->buy('cd') ) { $self->get('porche') } |
| S.O.D. (Speak English or Die) | require 'English' || die |
| Stabbing Westward (I don't Believe) | (! $self->believe() ) |
| White Zombie (Blur the Technicolor) | $technicolor->blur() |
| White Zombie (I am Hell) | $self == $hell |
| ... | |
| Anthrax (Time) | time |
| Gravity Kills (If) | if |
| Heartless Bastards (Pass and Fail) | $pass && $fail |
| KMFDM (Split) | split |
| Prong (Test) | Test |
| Skinny Puppy (Use Less) | use less |
| Stabbing Westward (Sleep) | sleep |
| Supafuzz (Push) | push |
|
|---|