user
petemar1
<!-- location:latitude=41.57.15,longitude=-87.39.27 -->
<!-- os:Linux,Mac,Solaris,w32 -->
<!-- birthday:yyyy/04/22 -->
<!-- email:petemar1@perlmonk.org -->
<!-- tshirts:red=0,blue=0 -->
<HR SIZE="1" NOSHADE>
<pre>
#!/usr/bin/perl -Tw
use strict;
my @Monks_met = (
"[abaxaba]",
"[easyasy2k]",
"[frag]",
"[petdance]",
"[SparkeyG]",
);
my @<A TARGET="_BLANK" HREF="http://perl.oreilly.com/">OReilly</A>_Perl_books_I_own = (
"<A TARGET="_BLANK" HREF="http://www.amazon.com/exec/obidos/ASIN/0596001320/qid=1007613196/sr=1-1/ref=sr_1_79_1/002-8152719-5932006">learning</A>",
"<A TARGET="_BLANK" HREF="http://www.amazon.com/gp/product/0596102062/ref=pd_sbs_b_1/103-3640862-5318252?%5Fencoding=UTF8&v=glance&n=283155">intermediate</A>",
"<A TARGET="_BLANK" HREF="http://www.amazon.com/gp/product/0596001738/qid=1145124868/ref=br_lf_b_13/103-3640862-5318252?n=69875&s=books&v=glance">practices</A>",
"<A TARGET="_BLANK" HREF="http://www.amazon.com/gp/product/0596100922/qid=1145132251/ref=br_lf_b_3/103-3640862-5318252?n=69875&s=books&v=glance">testing</A>",
"<A TARGET="_BLANK" HREF="http://www.amazon.com/exec/obidos/ASIN/0596000278/ref=pd_sim_books/002-8152719-5932006">programming</A>",
"<A TARGET="_BLANK" HREF="http://www.amazon.com/exec/obidos/ASIN/1565922433/ref=pd_sim_books/002-8152719-5932006">cookbook</A>",
"<A TARGET="_BLANK" HREF="http://www.amazon.com/gp/product/0596002416/qid=1145132251/ref=br_lf_b_12/103-3640862-5318252?n=69875&s=books&v=glance">nutshell</A>",
"<A TARGET="_BLANK" HREF="http://www.amazon.com/gp/product/059600205X/qid=1145131885/ref=br_lf_b_19/103-3640862-5318252?n=69875&s=books&v=glance">xml</A>",
"<A TARGET="_BLANK" HREF="http://www.amazon.com/exec/obidos/ASIN/1565926099/qid%3D1007613294/ref%3Dsr%5F11%5F0%5F1/002-8152719-5932006">sysadmin</A>",
"<A TARGET="_BLANK" HREF="http://www.amazon.com/exec/obidos/ASIN/1565924789/qid=1007613312/sr=1-2/ref=sr_1_70_2/002-8152719-5932006">graphics</A>",
"<A TARGET="_BLANK" HREF="http://www.amazon.com/gp/product/0596005776/qid=1142463514/sr=11-1/ref=sr_11_1/102-0482608-7646534?s=books&v=glance&n=283155">spidering</A>",
"<A TARGET="_BLANK" HREF="http://www.amazon.com/gp/product/0596003102/qid=1145132075/ref=br_lf_b_2/103-3640862-5318252?n=69875&s=books&v=glance">cs</A>",
"<A TARGET="_BLANK" HREF="http://www.amazon.com/exec/obidos/tg/detail/-/0596002890/qid=1037790420/sr=1-1/ref=sr_1_1/103-3683650-4155019?v=glance&s=books">regexes</A>",
"<A TARGET="_BLANK" HREF="http://www.amazon.com/exec/obidos/ASIN/1565923987/qid=1017195980/br=3-3/ref=br_lfncs_b_3/102-3744379-1364920">algorithms</A>",
"<A TARGET="_BLANK" HREF="http://www.amazon.com/gp/product/0596004567/qid=1145131838/ref=br_lf_b_10/103-3640862-5318252?n=69875&s=books&v=glance">advanced</A>",
"<A TARGET="_BLANK" HREF="http://www.amazon.com/exec/obidos/ASIN/0596000324/qid=1007613333/sr=2-1/ref=sr_2_71_1/002-8152719-5932006">pocket</A>",
"<A TARGET="_BLANK" HREF="http://www.amazon.com/gp/product/059600415X/qid=1142476539/sr=2-1/ref=pd_bbs_b_2_1/002-6194155-0134438?s=books&v=glance&n=283155">regex_pocket</A>",
"<A TARGET="_BLANK" HREF="http://www.amazon.com/gp/product/0596005032/qid=1145132075/ref=br_lf_b_8/103-3640862-5318252?n=69875&s=books&v=glance">debugger</A>",
);
my @Noteworthy_<A TARGET="_BLANK" HREF="http://www.perl.org/">Perl</a>_URLs = (
"<A TARGET="_BLANK" HREF="http://use.perl.org/">useperl</A>",
"<A TARGET="_BLANK" HREF="http://chicago.pm.org/">cpm</A>",
"<A TARGET="_BLANK" HREF="http://www.perldoc.com/">perldoc</A>",
"<A TARGET="_BLANK" HREF="http://www.perlmonk.org/">perlmonk</A>",
"<A TARGET="_BLANK" HREF="http://tinymicros.com/pm/">monkstats</A>",
"<A TARGET="_BLANK" HREF="http://crazyinsomniac.perlmonk.org/perl/cblast35/cblast35.cgi">cblast35</A>",
"<A TARGET="_BLANK" HREF="http://www.perlmonk.org/~mojotoad/cbs/">cbstats</A>",
"<A TARGET="_BLANK" HREF="http://httpd.apache.org/docs/">apache</A>",
"<A TARGET="_BLANK" HREF="http://stason.org/talks/singaporelinuxshow2001/html/mod_perl.html">mod_perl</A>",
"<A TARGET="_BLANK" HREF="http://japhy.perlmonk.org/book/">regex</A>",
"<A TARGET="_BLANK" HREF="http://www.awprofessional.com/catalog/product.asp?product_id={ECADA35C-BE2D-4E8E-8AD5-D2987FE5003E}&session_id={57497719-2093-47CD-84A6-0FE8F6D05C61}">effective</A>",
"<A TARGET="_BLANK" HREF="http://www.techgnosis.com/wall1.html">glue</A>",
"<A TARGET="_BLANK" HREF="http://www.wikipedia.org/wiki/Perl_programming_language">wiki</A>",
"<A TARGET="_BLANK" HREF="http://prometheus.frii.com/~gnat/yapc/2000-stages/">stages</A>",
"<A TARGET="_BLANK" HREF="http://www.zenspider.com/Languages/Perl/index.html">perl_freak</A>",
"<A TARGET="_BLANK" HREF="http://www.xmltwig.com/pgc/">perlgeek</A>",
"<A TARGET="_BLANK" HREF="http://pleac.sourceforge.net/">pleac</A>",
"<A TARGET="_BLANK" HREF="http://www.csse.monash.edu.au/~damian/papers/HTML/Perligata.html">perligata</A>",
"<A TARGET="_BLANK" HREF="http://www.extremeperl.org/">extreme_perl</A>",
"<A TARGET="_BLANK" HREF="http://hop.perl.plover.com/">higher_order_perl</A>",
"<A TARGET="_BLANK" HREF="http://www.angelfire.com/tx4/cus/shapes/perl.html">rathman</A>",
"<A TARGET="_BLANK" HREF="http://onestepback.org/articles/poly/perl.html">kuhn</A>",
"<A TARGET="_BLANK" HREF="http://search.cpan.org/~petdance/List-Cycle-0.02/Cycle.pm">List::Cycle</A>",
"<A TARGET="_BLANK" HREF="http://perldesignpatterns.com/">patterns</A>",
);
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-----<BR />
Version: 0.01b<BR />
J++>+++$$** Fws+ Epvbd$ Cu+ j+ Il+*
Ahit+* X U+>+++* V-(+)<BR />
------END JAVA GEEK CODE BLOCK------
The Cheesy Webring!
You have the right to free cheese.
<A HREF="http://www.pennine.com/cgi/cheesering.cgi?start=petemar1&go=previous">previous</A>,
<A HREF="http://www.pennine.com/cgi/cheesering.cgi?start=petemar1&go=next">next</A>,
<A HREF="http://www.pennine.com/cgi/cheesering.cgi?start=petemar1&go=random">random</A>,
<A HREF="http://www.pennine.com/cgi/cheesering.cgi?start=petemar1&go=list">list</A>,
<A HREF="http://www.pennine.com/cgi/cheesering.cgi?start=petemar1&go=next5">next5</A>,
<A HREF="http://www.pennine.com/cgi/cheesering.cgi?start=petemar1&go=prev5">prev5</A>,
<A HREF="http://www.pennine.com/cgi/cheesering.cgi?start=petemar1&go=first">first</A>,
<A HREF="http://www.pennine.com/cgi/cheesering.cgi?start=petemar1&go=last">last</A>
don't blame me for this idea, it's [ar0n]'s fault!
END_REMARKS
</pre>
<HR SIZE="1" NOSHADE>
2021-10-10 20:14:15
680
358244
0
31
America/Chicago
on