in reply to The YAPC Quest

At a class and don't have any kind of PERL to check the correctness, here it is anyway: #!/usr/bin/perl # desparate.pl use Tact; use Courtesy; my $dear; $tonight = join($me,@dinner); @least = split(/$me/,$sundae); for (;$_iam gt "nothing";) { while (not $perfect) { $i_am = abs $nice; } } open ILLBE, ">yourneeds"; @night = ('I\'ll', ' hold', ' you', ' close' . " keep you safe"); $me = consider($my_offer); sub consider { study $_[0]; return $youranswer; }

Replies are listed 'Best First'.
RE: RE: The YAPC Quest
by Ozymandias (Hermit) on Jun 22, 2000 at 01:09 UTC
    The formatted version:
    At a class and don't have any kind of PERL to check the correctness, here it is anyway: 
    #!/usr/bin/perl
# desparate.pl

use Tact;
use Courtesy;

my $dear;
$tonight = join($me,@dinner);
@least = split(/$me/,$sundae);
for (;$_iam gt "nothing";) {
    while (not $perfect) {
        $i_am = abs $nice;
    }
}
open ILLBE, ">yourneeds";
@night = ('I\'ll', ' hold', ' you', ' close' . " keep you safe");
$me = consider($my_offer);

sub consider {
    study $_<a href="/index.pl?node=0&amp;lastnode_id=19337">0</a>;
    return $youranswer;
}

    [download]

    - Ozymandias

[reply]
[d/l]
RE: RE: The YAPC Quest
by Anonymous Monk on Jun 22, 2000 at 01:18 UTC 
    #!/usr/bin/perl
# desparate.pl

use Tact;
use Courtesy;

my $dear;
$tonight = join($me,@dinner);
@least = split(/$me/,$sundae);
for (;$_iam gt "nothing";) {
    while (not $perfect) {
        $i_am = abs $nice;
    }
}
open ILLBE, ">yourneeds";
@night = ('I\'ll', ' hold', ' you', ' close' . " keep you safe");
$me = consider($my_offer);

sub consider {
    study $_[0];
    return $youranswer;
}

    [download]
    There, much better.
[reply]
[d/l]
RE: RE: The YAPC Quest
by Anonymous Monk on Jun 22, 2000 at 01:04 UTC
    Crap. Looks like something obfuscated it for me a bit.
[reply]
      I believe if you drop some <code> tags around your text you would have your formatting stay intact.
[reply]

In Section Perl Monks Discussion