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

Bohemian Rhapsody (part 1)

by katgirl (Hermit)
on Jun 13, 2002 at 09:59 UTC ( #174135=poem: print w/ replies, xml ) Need Help??

I'm trying to do the whole song, but here's part 1 to see what you think: UPDATE: Part 2
#!/usr/bin/perl require(AirGuitar); if($this eq "real life" | "just fantasy"){ $caught = $in{'a-landslide'}; $no = "\from reality"; } open (YOUR, "$eyes"); $look++ => "the skies" && "c"; $money = 0; $sympathy=0; while ($i, $come, $i, $go){ $i = "easy" } $little++; $little--; if ($wind = "blows") { !$matter => me } $parent = "female"; $me = "murderer"; $gun = head{'man'}; &pull_trigger; if($gun eq "loaded"){ die('man') } tell($parent) => $life = "short"; $life = undef; $parent .- $tears; if (!$back eq this(time)){ $day .+1; } { print "Carry on"; redo; } $matter = 0; if($now eq "too late"){ my $time => "come";} my $spine = $shivers--; $body = $aching . all{'the(time)'}; tell(all) => "bye bye"; @you <= "leave"; $face =~ tr/u/th/; $parent = 000; $i != "want" => die; $i => some(time). s/never/born/ . @all;

Comment on Bohemian Rhapsody (part 1)
Download Code
Re: Bohemian Rhapsody (part 1)
by mr2 (Friar) on Jun 13, 2002 at 16:43 UTC
    a nice work ... i'd like to see the other part ... good work!
Re: Bohemian Rhapsody (part 1)
by SarahM (Monk) on Jun 13, 2002 at 19:32 UTC
    This is really cool!!! Iíve never thought of using perl to write poetry before. I might have to give it a try.
Re: Bohemian Rhapsody (part 1)
by sschneid (Deacon) on Jun 14, 2002 at 15:07 UTC
    $parent = 000;

    my favorite line for sure. very entertaining.
Re: Bohemian Rhapsody (part 1) - Part 2
by katgirl (Hermit) on Jun 14, 2002 at 15:54 UTC
    $i =~ s/ilhou/etto/; $man--; $dance{'fandango'}= 2*$scaramouche; if($me =~ /thunderbolt/ && $me =~ /lightning/){ $frightening++; $frightening++; } $magnifico = ($gallileo *5) + $figaro; %me=("money"=>0,"love"=>0); $he{"family"}="poor"; $him = $his%$life; #note - modulus finds "spare" number... *groan* :) $from =~ m/onstrosity/; print "$i $come $i $go"; while($u le $t){$me => $go} &bismillah; while($not le $t, $u=>$go){ &bismillah; while($not le $t, $u=>$go){ &bismillah; while($not le $t, $u=>$go){ } } } if($will ne $ver && $will le $t){$me=>$go} print $no*7; if(3*($parent{'mia'}) le $t){$me=>$go} %beelzebub =(devil =>"aside"); for $me (@me) { for $me (@me) { for $me (@me) { } } } $headbang -> AirGuitar; if($u && $me =~ /stone/ and my $eye =~ /spit/){ if($u && $me =~ /love/ and $leave =~ m/e to/){ die; } } $o_baby != "this" => $me . $baby; $just{'gotta'} gt $out; while($just{'gotta'} gt $outta){ here; } $really[0] = $matters; $can{'c'} ne 1; $really[0] = $matters; $really[0] = $matters => $me; $anyway => $wind{"blows..."};

      Very Nice!
      I absolutely love it.
      How much time did you take?
      I have never written perl poetry and would love
      to start
      Thanx

      --
      arc_of_descent

Re: Bohemian Rhapsody (part 1)
by Bishma (Beadle) on Jun 15, 2002 at 05:58 UTC
    Oh, that's the funnoest thing I've seen in a while,
    $little++; $little--;
    That's great.
Re: Bohemian Rhapsody (part 1)
by BrowserUk (Pope) on Jun 15, 2002 at 09:10 UTC

    And all these years I have been singing: Miss Mil - ler! No-o, I will not let you go...

    Is there no end to the enlightenment that while come to me as a result of my visits to the Monastary??!

    Amazing work Katgirl

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: poem [id://174135]
Approved by vagnerr
Front-paged by SparkeyG
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (17)
As of 2014-12-19 18:41 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (91 votes), past polls