Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
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 avoiding work at the Monastery: (6)
As of 2015-07-30 11:04 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 (271 votes), past polls