Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
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
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 cooling their heels in the Monastery: (11)
As of 2014-10-20 10:44 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (75 votes), past polls