#!/usr/bin/perl
#Love Starvation

while(your=>love!=me or setpriority(PRIO_PROCESS,$$,-20)!=us)
{
send a, fork(), "through", my $heart;
kill my $dreams && chop my $body;
}

Edit: BazB removed suggestion to run code. Warning: this code is a fork bomb - do _not_ run.

Replies are listed 'Best First'.
Re: Love Starvation
by QM (Parson) on Oct 29, 2003 at 00:02 UTC
    How about this?

    #!/usr/bin/perl
    #Love Starvation

    FUSS:
    unless ( your=>love eq me and setpriority( PRIO_PROCESS, $$, -20 ) == us)
    {

    push @a, fork(), $in[2], my $heart;
    delete $dreams{my},
    close my $streams;
    split /the air/, seek UNCHART;
    redo FUSS;
    }

    -QM
    --
    Quantum Mechanics: The dreams stuff is made of
[reply]
      Interesting version. What I like the most is the fact that you used my ideea to color up some (key)words in order to distract the user from the true purpose of the srcipt. Or it was just a parody.
[reply]
        ...color up some (key)words in order to distract the user from the true purpose...
        And here I thought the intent was to highlight the most important words. AFAICT, the script did nothing useful :)

        -QM
        --
        Quantum Mechanics: The dreams stuff is made of

[reply]

Back to Perl Poetry