Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

The Tao of Programming, Chapter 2

by Felonious (Chaplain)
on Oct 29, 2002 at 04:51 UTC ( #208667=poem: print w/ replies, xml ) Need Help??

See: The Tao of Programming, Chapter 1
package Tao::Book::2; # The Ancient Masters $master_programmer = bless \$programmer, 'Tao'; $master_programmer->spake(qq{ After three days without programming, li +fe 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; } } ); }

[TINPC@perlcabal.com shh]$ su real

Comment on The Tao of Programming, Chapter 2
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (16)
As of 2015-07-28 11:46 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (254 votes), past polls