Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

petemar1

by petemar1 (Pilgrim)
on Aug 05, 2000 at 01:23 UTC ( #26274=user: print w/ replies, xml ) Need Help??


#!/usr/bin/perl -Tw

use strict;

my @Monks_met = ( "abaxaba", "easyasy2k", "frag", "petdance", "SparkeyG", );

my @OReilly_Perl_books_I_own = ( "learning", "intermediate", "practices", "testing", "programming", "cookbook", "nutshell", "xml", "sysadmin", "graphics", "spidering", "cs", "regexes", "algorithms", "advanced", "pocket", "regex_pocket", "debugger", );

my @Noteworthy_Perl_URLs = ( "useperl", "cpm", "perldoc", "perlmonk", "monkstats", "cblast35", "cbstats", "apache", "mod_perl", "regex", "effective", "glue", "wiki", "stages", "perl_freak", "perlgeek", "pleac", "perligata", "extreme_perl", "higher_order_perl", "rathman", "kuhn", "List::Cycle", "patterns", );


print <<'END_REMARKS';

-----BEGIN GEEK CODE BLOCK-----
Version: 3.1
GAT d++(--) s-:>+: a!>? C++(++++) USLI*++>++++ P++(+++)>+++ L+(+++)>++++ E----(-)>+++ W++$>+++ N+ o? K? w(+)>++++ !O M(+)>++ V PS(+) PE(-) Y+ PGP(+) t(+) 5- X(++) R@ tv-(++) b+(++) DI-(+++) D+ G(+) e+++>++++ h(+) r>++ y?
------END GEEK CODE BLOCK------

-----BEGIN PERL GEEK CODE BLOCK-----
Version: 0.01
P(++)>++++ c?>+++ P6->++ R>+++ M>++ O>+++ MA-->+++ E-->+++ PU!>++++ BD>+++ C>++ D>+++ S-->+++ X>+++ WP+>+++ MO(+)>++ PP(+++)>++++ n>+++ CO-->- PO!(--) o G! A->++++ OLC+>++ OLCC+>++ OLJ++(+++)>* OLP+>++ OLR+>++ OLCO--- OLS--- OLL+>++ OLA-- Ee----(---) Ev-()>+++ Eon- Eot! Eob Eoa- uL+>+++ uB+ uS+ uH! uo+ w>+ m osA- osBE!
------END PERL GEEK CODE BLOCK------

-----BEGIN PERL STYLE GEEK CODE BLOCK-----
Version: undef
I4 On0 ;0 S,><.><+>**<=><&&><and>++<gt><==> B1 L2 C0 P3 N> R1 Vl(en)c3a1p(s0h0a0)r0d1 Hsw sub-main
------END PERL STYLE GEEK CODE BLOCK------

-----BEGIN JAVA GEEK CODE BLOCK-----
Version: 0.01b
J++>+++$$** Fws+ Epvbd$ Cu+ j+ Il+* Ahit+* X U+>+++* V-(+)
------END JAVA GEEK CODE BLOCK------


The Cheesy Webring! You have the right to free cheese.

previous, next, random, list, next5, prev5, first, last

don't blame me for this idea, it's ar0n's fault!

END_REMARKS


Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (9)
As of 2014-12-26 20:15 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (175 votes), past polls