poem
Felonious
See: [id://203561]<br>
<code>
package Tao::Book::2;
# The Ancient Masters
$master_programmer = bless \$programmer, 'Tao';
$master_programmer->spake(qq{ After three days without programming, life becomes meaningless. });
# 2.1
{
$old->{programmers} = [ qw( mysterious profound ) ];
{
no B::Fathom;
use Data::Dumper;
$old->{programmers}->{
Aware => 'like a fox crossing the water.',
Alert => 'like a general on the battlefield.',
Kind => 'like a hostess greeting her guests.',
Opaque => 'like black pools in darkened caves.'
};
print Dumper($old->{programmers});
}
sub Tao {
print $hearts->{secrets}, $minds->{secrets};
my $answer;
}
}
# 2.2
{
$a = 1;
$turing->dream($turing = $machine) while $a--;
sleep 1;
$turing->exclaim(int(rand(2)) ? $turing->dream($turing = $machine) : $machine->dream($machine = $turing));
}
# 2.3
{
sub conference {
return @_;
}
conference(
${'very large computer company'}->{programmer}
)->report($manager)->ask(
eval {
$other_companies->{programmers} = q{
#!/usr/bin/perl
sub'_{q;$;.$_[1].qq;->{$_[2]};.$_[3]};
sub'__{s[$][;$/'];};@^^=split$",reverse+q]sehtolc riah];
$~=q-++-;$^=bless{};s;;_$^,$^^[0],q,length,,$~;e;
__$^;s;';_$^,$^^[0],style,q>=rand(42)>;e;__$^;
s\'\_$^,$^^[1],press,'=undef'\e;__$^;s['][_$^,$^^[1],q,vintage,,$~]e;
__$^;s\'\\;print;
} . q{
$suite->(1/0);
open SOUND, '> /dev/audio';
while($lame->{presentation}) {
print SOUND int(rand(1000));
}
};
}
);
$manager->reply(
q{
conference(
${'very large computer company'}->{programmer},
) while 0;
{
package Tao;
('physical world', $programmers);
s/life/accidental coincidence/;
$allowed = 0;
goto come;
do {
come:
goto go;
} if $allowed;
go:
$programmers->live(($programs, $care)[0]);
$programmers->social_conventions() if __PACKAGE__ ne 'Tao';
$programmers->{live}++;
}
}
);
}
# 2.4
{
$novice->query(
$master_programmer,
eval {
q{
$programmer = $_[0];
{
$programmer->design($program);
$programmer->document($program);
$programmer->test($program);
} if 0;
push @{$world->{best}}, $programmer;
}
}
);
$master_programmer->reply(
q{
$programmer eq 'Tao';
goto beyond_need_for_design;
$programmer->design($program);
$program->crash();
$programmer->{anger}++;
beyond_need_for_design:
$programmer->accept(('universe', 'concern')[0]);
goto beyond_need_for_documentation;
$programmer->document($program);
$programmer->care($others->see($programmer->{code}));
beyond_need_for_documentation:
goto beyond_need_for_testing;
$programmer->test($program);
beyond_need_for_testing:
{
$program;
}
goto mystery;
{
package Tao;
mystery:
$programmer;
}
}
);
}
</code>
<br>
[TINPC@perlcabal.com shh]$ <a href='http://www.perlcabal.com/real.html'>su</a> real