Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

The Tao of Programming, Chapter 1

by Felonious (Chaplain)
on Oct 08, 2002 at 03:12 UTC ( #203561=poem: print w/ replies, xml ) Need Help??

I may do the later chapters as I find the time.
Copies of the original work can be found all over the web, here's one place to find it.
Enjoy!

(update) more:
The Tao of Programming, Chapter 2
The Tao of Programming, Chapter 9
# Based on "The Tao of Programming" as Translated By Geoffrey James package Tao::Book::1; # The silent void $master_programmer = bless \$programmer, 'Tao'; $master_programmer->spake(qq{ When you have learned to snatch the erro +r code from the trap frame, it will be time for you to leave. }); # 1.1 () = do { open STDOUT, ">/dev/null"; 1 while $mystery; $mystery =~ /(\001|\000)+/; $_ = $mystery; *{'Tao of Programming'} = *_; if ($tao = 'great') { $^O = 'great'; } if ($^O eq 'great') { $^X = 'great'; } if ($^X eq 'great') { $0 = 'great'; } for $user (@world) { $user->{':)'}++ } (sub { $morning->{wind} = @_; return $morning })->(${'Tao of Pr +ogramming'}); }; # 1.2 { $machine_language = $tao->(); $assembler = $machine_language->(); $compiler = $assembler->(); $#languages = 9999; @tao = grep //, @languages; foreach (@languages) { $_ = { purpose => 1, yin => 'software', yang => 'software', }; $tao->{$_}++; } @use = grep $_ !~ /^COBOL$/, @languages unless $nochoice; } # 1.3 { BEGIN { $tao++; } ($space, $time) = $tao->(); @programming{ qw( yin yang ) } = ($space, $time); unless (study $tao) { ($space /= 2, $time /= 2) while 1; } if (study $tao) { ($space, $time) = @goal{ qw( space time ) } } } # 1.4 { $wise_programmer->($tao) && ($tao, $wise_programmer); $average_programmer->($tao) && grep /$tao/, @_; $foolish_programmer->($tao) && do { $laughter = $foolish_programmer->laugh($tao) }; $tao = undef unless $laughter; open SOUND, '> /dev/audio'; print SOUND 0xFF; goto Forward; Retreat: goto Last; Forward: goto Retreat; Last: { $life->{age} >= $late && print "great talent"; } print("perfect program"); }

[TINPC@perlcabal.com shh]$ su real

Comment on The Tao of Programming, Chapter 1
Download Code
Replies are listed 'Best First'.
Re: The Tao of Programming, Chapter 1
by diotalevi (Canon) on Oct 08, 2002 at 03:16 UTC

    Bug or mystery?

    if ($tao = 'great') { $^O = 'great'; }
    __SIG__ printf "You are here %08x\n", unpack "L!", unpack "P4", pack "L!", B:: +svref_2object(sub{})->OUTSIDE
      The tao is unquestionably great!;)

      [TINPC@perlcabal.com shh]$ su real

        And by questioning it regardless? Or just a further demonstration of it's evident greatness? Hmm. Mu

        __SIG__ $Self = B::svref_2object(sub{})->OUTSIDE

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (12)
As of 2015-07-31 07:32 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 (275 votes), past polls