Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Comment on

( #3333=superdoc: print w/ replies, xml ) Need Help??
#!/usr/local/bin/perl -w # # Invoke with './monkyack.pl' # # This script delivers the chatterbox as MP3 encoded streaming audio. + It # uses the festival/MBROLA text-to-speech (TTS) system to create the +audio # on the fly. # # The audio quality is a little funky, since there's a lot of special + symbols # and 'odd words' (like user names) that the TTS has to contend with. + On top # of that, I encode at 8K bits per second because of my limited bandw +idth. # Nonetheless, it's kind of amusing to listen to the chatterbox. # # Requires that the festival/MBROLA server be installed, preferrably +on a # local machine. Needs lame 3.88beta or higher (8K bits requires MPE +G III # Layer 2.5) for the MP3 encoding. Also needs libshout and Shout.pm. + Last, # but not least, you'll need a ShoutCast/IcyCast server to connect to +. I # I suggest the ShoutCast server. # # festival/MBROLA - http://www.cstr.ed.ac.uk/projects/festival/ # lame - http://www.lame.org # ShoutCast server - http://www.shoutcast.com/download/ # IcyCast server - http://www.icecast.org/download.html # libshout - http://developer.icecast.org/libshout/ # Shout.pm - http://developer.icecast.org/libshout/ # LWP::Simple - http://cpan.org # XML::Twig - http://cpan.org (yay, mirod! Great stuff!) # HTML::Entities - http://cpan.org # # Notes and aimless meanderings through my thoughts: # # I started out using mp3stream from http://www.prilnari.com/mp3str +eam/ I # wrote a complete Inline wrapper set for it, only to find that whi +le it # would often work, it would frequently disconnect from the ShoutCa +st # server for no apparent reason. Found the Shout.pm reference in t +he # [Internet Radio] node, switched to that. Much better success. # # I've been using festival/MBROLA for a good while (I use it to TTS + my # weather station), and just kept reusing my old socket code. Work +s, but # it's not good enough to publish. So I decided that I would move +into # the 90's, and use Speech::Synthesizer. It's not very good, and I +'m being # really nice. It didn't have a couple of necessary methods, and t +he way # it's written, there was no decent way to subclass them. The main + problem # was that give input with 2 or 3 sentences in it, it would only sp +eak the # last sentence. What the heck good is that? Wasn't this ever tes +ted? # So, instead I just call festival-client, and pass a temp file wit +h the # text (supposed to be able to read from STDIN, but when kicking it + off # with an open statement, it hangs. # # Now I decided to look for that cute bit of code someone write a w +hile # back for embedding images in the __DATA__ section of a script, an +d # decoding them on the fly. I find the reference to it at [Hex Emb +edded # Images], but the code is on his no-longer-up webserver. In passi +ng, I # find that [httptech] has done something similiar, about 10 months + ago. # It speaks the chatterbox, but only to the local machine. It took + the # shininess off a bit, because I didn't think this had been done be +fore. # It's at [MonkTalk], which, oddly enough, this script was called w +hen I # first started. I changed the name, of course. # # I've been using WinAmp 2.74 and XMMS 1.2.4. WinAmp sounds far be +tter # but periodically disconnects from the server, for no apparent rea +son # (gotta love error messages. Or lack thereof...) XMMS, on the ot +her, # stays connect through hell and high water, but sounds like crap o +n a # 8K stream. # # Copyright 2000,2001(c) J.C.Wren jcwren@jcwren.com # A production of Twitching Monk Software # No rights reserved, use as you see fit. # I'd like to know about it, though, just for kicks. # # Version 1.00.00 - 2001/04/11 - Initial incarnation # Version 1.00.10 - 2001/04/12 - Fix for XML with high bit set # use strict; use LWP::Simple; use XML::Twig; use HTML::Entities; use POSIX ":sys_wait_h"; use Shout; # # This to change to tailor the system # use constant cSCIP => 'localhost'; use constant cSCPort => 8001; use constant cSCPassword => 'montyhall'; use constant cSCBitRate => 8; use constant cSCName => 'Chatterbox'; use constant cSCGenre => 'Talk Radio'; use constant cSCURL => 'http://www.tinymicros.com:8000'; use constant cSCDescription => 'Perlmonks Chatterbox encoded by Fest +ival/MBROLA'; use constant cFestivalSever => 'localhost'; use constant cTTS => '/usr/bin/festival_client --prolog mt +.parms --output _temp.wav --otype wav --ttw _temp.txt'; use constant cMP3Encoder => '/usr/local/bin/lame --silent -a -m m + -b 8 -s 16 _temp.wav _temp.mp3 >/dev/null'; use constant cSilence => 'silence8m.mp3'; use constant cPerlMonks => 'http://www.perlmonks.org/index.pl?no +de=chatterbox+xml+ticker'; # # Pretty simplistic main... # { createParmsFile () or die "Can't create Festival parameter file: $! +"; my $result = fork (); die ("Can't fork off a child") if !defined ($result); $result ? playTalkies ($result) : makeTalkies (); } # # The parent. Scans the directory every 3 or more seconds (depending + on the # length of the playlist), and sends the files to the server to be pl +ayed. # sub playTalkies { @_ >= 1 || die "Incorrect number of arguments"; my $kidpid = shift; my $conn = new Shout; $conn->ip (cSCIP); $conn->port (cSCPort); $conn->password (cSCPassword); $conn->name (cSCName); $conn->bitrate (cSCBitRate); $conn->genre (cSCGenre); $conn->description (cSCDescription); $conn->url (cSCURL); $conn->icy_compat (1); $conn->ispublic (0); die "Can't connect to server" if (!$conn->connect); while (1) { opendir (DIR, ".") or die "Can't read directory: $!"; my @playlist = sort grep { /\d{14}\.mp3/ && -f "./$_" } readdir +(DIR); close (DIR); if (!scalar (@playlist)) { playFile ($conn, cSilence) or die "Error while playing: " . $ +conn->error . "\n"; } else { foreach (@playlist) { playFile ($conn, $_) or die "Error while playing $_: " . $ +conn->error . "\n"; unlink $_ or die "Can't unlink file: $!"; } } die "Child died!\n" if (waitpid ($kidpid, &WNOHANG) == -1); } } # # Send a file to the Shoutcast/Icycast server # sub playFile { @_ >= 2 || die "Incorrect number of arguments"; my ($conn, $file) = @_; my ($buff, $len); print scalar localtime, " Playing $file\n"; open (MP3, "< $file") or return 0; while (($len = sysread (MP3, $buff, 1024)) > 0) { if (!$conn->sendData ($buff, $len)) { close MP3; return 0; } $conn->sleep; } close MP3; return 1; } # # Child thread that looks for new XML, and runs the text through fest +ival # sub makeTalkies { my %hcbxml = (); while (1) { getChatterXML (\%hcbxml) or die; chatterXmlToSpeech (\%hcbxml); sleep (10); } } # # Run through the list return by getChatterXML(), and create MP3 file +s with the authors # name and text. The file name is the timestamp of the xml node. If + all the comments # are already encoded, simply return (avoid overhead of opening unnec +essary festival # connections) # sub chatterXmlToSpeech { @_ >= 1 || die "Incorrect number of arguments"; my $hcbxml = shift; my $encoded = 1; $encoded &= $hcbxml->{$_}->{encoded} foreach keys (%$hcbxml); return if $encoded; foreach my $line (sort keys %$hcbxml) { if (!$hcbxml->{$line}->{encoded}) { my $text; # # Some minor hacking to get rid of the more problematic char +acters. # Some rule based logic would be nice, but too much work. # $text = $hcbxml->{$line}->{text}; $text =~ s/[\[\]\(\)\{\}"]//g; $text =~ s/[:;\|\/]/ /g; $text .= '.'; print scalar localtime, " Encoding $line\n"; open (TEMPFILE, ">_temp.txt") or die "Can't open _temp.txt: $ +!"; print TEMPFILE $hcbxml->{$line}->{author} . ", " . $text; close TEMPFILE; system (cTTS) and die "Can't run TTS encoder: $!"; system (cMP3Encoder) and die "Can't run MP3 encoder: $!"; rename ("_temp.mp3", "$line.mp3") or die; unlink ("_temp.txt"); $hcbxml->{$line}->{encoded} = 1; } } } # # Fetch the chatterbox XML page, and return a hash, keyed by time, wi +th the # author, user_id, and text fields from the XML as an anon-hash. # sub getChatterXML { @_ >= 1 || die "Incorrect number of arguments"; my $rhcbxml = shift; my $xml; $LWP::Simple::FULL_LWP = 1; if ((my $xml = get (cPerlMonks))) { # # Survive an [epoptai] DoS attack # $xml =~ s/[\r\n\t]//g; $xml =~ tr/\x80-\xff/_/; $xml =~ tr/\x00-\x1f/_/; my $twig = new XML::Twig (TwigRoots => { message => sub { my ($t, $node) = @_; my $text = decode_entities ($node->t +ext ()); $text =~ s/&apos;/'/g; $text =~ tr/[\r\n]//d; $rhcbxml->{$node->att ('time')} = {' +author' => $node->att ('author'), ' +user_id' => $node->att ('user_id'), ' +text' => $text, ' +encoded' => (defined ($rhcbxml->{$node->att ('time')}) ? $rhcbxml->{$ +node->att ('time')}->{encoded} : 0) }; $t->purge; } }); $twig->parse ($xml); return (1); } return 0; } # # festival_clients won't take the parms as a string, so we have to # create a temp file. Rather than lose the data somewhere, it's # at the end of the program. # sub createParmsFile { local $/ = undef; my $prolog = <DATA>; open (TEMPFILE, ">mt.parms") or return 0; print TEMPFILE $prolog; close TEMPFILE; return 1; } __DATA__ (voice_kal_diphone) (Parameter.set 'Duration_Stretch 1.1)

You'll also need this uuencoded file. This is the 3 seconds of silence that gets streamed when no one is talking.

begin 644 silence8m.mp3 M_^,8Q``,TA6$`8H0`/\31T+P%'^+8\=?\G&Y`W_XSD(I___'),46.W__^+.0 M@A[E%____C@G3__^\WA]W__RYI75]T,6U*B,_^,8Q`<,."HL`8\0`#HUH+`1 M'F13KI4A?DZM!]7SCS+59</H_K+J=;:&%'_Z=Z'UI>,E__1_U@3IPT97'6]: M\[:7L<ES4;4W_^,8Q!$,8"XD`<\8`%M530,Z`R_MZ*/9;0*,<\5L+%Z]V,:U M8!EK%Z[+U9BRN@:$;,TG<R)6B.*BK!,9F0$3<]%A+5F:]$W1_^,8Q!H,2$8D M`'A$`#T4A'O*JL[&,%"2*._&Q_UF;+G7,Z65U0DK:OUBU&8Z``:-!U*DM0QE M!IY9GO6^JDW/0RLO*DQT96@J_^,8Q",-X"(D`'B&`,-AIEAOK;Q<ZS:O?6QA M#MH\ZA?:E0'BDH*2_I`;ZN1J/*%BP(%#0?0HTU@IR,/CR[%:6`V]JON37L/& M_^,8Q"8.X$8@`,#&`,/[ZQ">'.<_:6;Q56%S>+O2A=MC(E4#-:A'^U@`4"*A M.L\X-O,*$]M5CNI96A]M(LZ9>5I0Q8V=E(9T_^,8Q"4,Z!8D`,#&`#\>MD_I MS6F]G]&ZVE?N2@8CPP<1;*)@.J-+8/)YLX+./M>2KJ<P#*,*W'6'!]G2QMVR MY".]C0&@M)^P_^,8Q"P-<"HD`&#``-KU=M5)[WIFN%(,9.V;M!@D'!X?-Y1Q M\:K:%GK/W,LL=M0Q:+UN+N'*H:Q;#6Y*;][I];*=6K3HH3B]_^,8Q#$-6!H@ M`,#$`([0K5'U*&MY-S]-99PP48(GR#AY,>X/AI!!B7(G4,?=M,1=QO<-4]B_ M.V[&.BZ-M:W]%PSZMZKX&=W<_^,8Q#8-L"XD`,"&`%D9K8Q;@A(5(!-^9FA= M9"XVQ2%U^AZEDMJRS]J6*)%;[D]KYI]WO+V6.6Y*E4M>Q$U5UK>E$!>>6+@$ M_^,8Q#H,\!8D`'@```8+,6*34&YE"SE]=(UBT8X]#L<&GH[R"SFMB5M6BD_Y M(LK51<>6Y"+D[-2R7,T);*H'LR*1JDBFE89=_^,8Q$$-J!H@`'@``%A,CVD# M[J7+94\J*"K$,RE0H[G\OQ,E6O*KV"$ZE^HRE9]:R"ND#/5?=>A%^1H2)8KU M[_7D%B&=X@YP_^,8Q$4-X!X@`'A$`&&9<XHJ>?)41YJ?T4MC74#[$H>8D"<Y MQIW?H>^8<^O^O]/3JL2!:`Z1_L41CL$8)C0*009+%PX(C9<5_^,8Q$@-`$8D M`,"$`'T%LA88*!1B[6(DV,R>?DR3J[_`*3!:Q9I+5`12%(>[8X7):GMJWCZU MWN15$2&G3\6KU6<8U-W8=EE"_^,8Q$\/R#HD`'A&`&"#BCE-9.E:'B)WD'J6 M$6;!W@8#'+X5)GZ&)MH(*1=H4941<`?]TJ*=E5T4&^NI#M/?IA3*#=8T6,"- M_^,8Q$H.P$8@`,#$``\T.<QQ9NX":++!&[<8ZK%Y343/E+,/(J>QEKGWI:EA M`S6[MBNM2@5F<JU(]H'#"3EPLUA<X'$-N8EM_^,8Q$H-@#XD`,#$`&I`YAK6 MUJM'.*7[>[NH>960T]CE*%J(8V=RKVZKT@SI&E`Z!,0XHP=47%$.4E:DTL>J MMR6#-*WKC#XN_^,8Q$\-`"XD`,"&`+6]AH@D705.@CWL*.<$D(N1UL9UW)7< ME*QP21[4-W[5*@1S1`E@QCBH:&*."LJ]6O"F/;5M497<LHYS_^,8Q%8.R"(@ M`##&`!@PB9298E[VI<QI$R42IB!6+RQ^!'%VG<FMH$UO<DQ_M54'X\U2-<11 M:'D&%"`(OWU1B5:$WKD7.VG\_^,8Q%4.V"8@`'B&``'ZT"Z>=40[IA)\`10^ M,Z1>^NEVR\N@Y=L:+AXF<LI:EX.(M%J?$Y>YZP$7%T-F`,C8C2RT_I0L;IF4 M_^,8Q%0,^"(D`'C&`%!T^Y3MZ71A584`R"*9U[W\Q9JUO',D+$)GZ6J1*&/K M+]V;!`T*&Q9Q@XXTP7FSRQZP)I'IL^AA3RC>_^,8Q%L/.#(@`,#``,J2D7IJ M1:?GFNJJ[JM]CWU=VO12(BO]24V\50U4,.IHZ9&4+/BQ++C2-5SQQN]3'#5& M*FJ8`*L>6>JH_^,8Q%D,>"8D`,#&`&T%106OUH62N2=WF#H?]69)NRY=FCIJ M&*SS1WG@Y@)`\E`OI.ATBT/$23[*T*IH8]!1)-+(HYYH2+9[_^,8Q&(/4#H@ M`,#&`$JF*G#.N)EZ)W<\J@B;K5UV93I9.EH0@N#;=FAJA,'"Z'E%#%%T+K;+ M*-F3@NR0M4E34O[4%]3V)/#Q_^,8Q%\.<"(D`'C``,ZS8NI_,!E>YGNM)J=_ M[+'6(@52Z``9!("K$@:(I$9IRQ(?N&J%C"WZ"+%Y^C=-T[W)]2`I:E>?NW64 M_^,8Q&`-L"X@`'C``+NSO_O<FZLC<^@>1+[-BW?.$AV(#(XJI]9IZ%'XH$8R MID]<F@TEB1?D$;C3DWH2A`'U#$#SJE]B+U*B_^,8Q&0,P`HD`(#``%_E*%-: MQSD!+C8:Q*X>[6NAPX,J$(/--C2`$H%%%,Y1#[7+[[U10-44'7'(J[74A@N_ M#<XBBU(`%=B;_^,8Q&P.L"H@`,"``-")06ZF(6[<G;IJ!61FN`]BH%SD?R.M MDI8&PY8Y3AS3VBQ1AM%0?;M'/F0:.KX<A`_>//H%7N1><4A+_^,8Q&P.T"(D M`,"&`(>]G,#<S-_%51SN?915!`1GW<\!H\'<3`Z$6/38PE0=-JNH:BUHMU`U M>P^><Q!*V-L)O1'VN(W#EW/)_^,8Q&L/2'(@`'C$!*.+M14O=M29-.%XS:XB M`$I.FM[*]'4E%&=#<`%R!U*@D(E"RQ=UQ]I)*;%F4EDJT-.ZVPHRZ55JC:;2 M_^,8Q&@.N"X@`'C&`!,/=?O4.0;H$M%IA(JS^5M'U0Y#'^XHT1.GS`A&#@&X M"UC>6%NJNQZ$$6-0=N%<ZLE9N:A`Y:HN]!"*_^,8Q&@/B#(@`'C&`#'L,33J MM'4S5I]I[:#1I0>TVWS28\$`L$1@N74>"3F'9G,MN=H4E+6_XQUO>QZ=ROWM M4],:B0N='+EK_^,8Q&0-X!8@`'A&`";JW]E>I0)1ZXTAY67'$$J'PLX6Y5QP M>KDH^^[8*L-$]UL67%QM#1B%!IC'L/SB#]/IO0VA6ZMAY_WZ_^,8Q&<,8!(D M`'@``)4,:]4]A*NHA)T).CZVF#"A8L\\!14*EC5<6;(#Q8.AQ%J^Z*'&15W, MK2\43?<]1V1:RQOL&,JG%N8[_^,8Q'`-4!HD`'B``&_YH7K5#PWZ8^PTX-!Y MZ4-)=(LU<E6E#HX],UD5M216MSU!)Q`9-3;;Q4>S7J$4W#@^I6A*M;"#N?8V M_^,8Q'4/D%(@`,&&`+V%E0\H:YVF>-!\N<%VM/TECR<@FXNSN8!5ET+VZ4%Q M=G"Q<LUXJ];;`(^.M82KO5>;W.'>GKE152Z9_^,8Q'$.$`XD`'@``#4J`XN! M_7CP6`!1L1$@&4(DPZ</VDWM3'L>^O4ME8:;L%5'SRT':$)7IS[C1J*F""TK MNA+MO=5<A"K[_^,8Q',.2!X@`'A``,3U%$4,3&*:E^2-0%C'"2<@-+,JFY$= M%_VAU#:VKI;+66V,O1U.%[C:WEZ$%[::*E$$E:K6(U_=%QKE_^,8Q'0/*"8D M`'B&`*H&JB'S;II8L=8>&L!H+F]Q0RJ@I")#N8_XNV\V/+'*<%T%;67D9_\_ MZ=)["6.0^0_T)@9%(NFK(PG,_^,8Q'(-R#8D`,#"`#"`9'))&2=ZA6'!(ZFI M19=3Z&.IFB`_((#:T-:0*I%1NM9^FE+&RKG,A1^38*V4H"RGR\UTKA>(JK/K M_^,8Q'4,<!8D`'B&`$8DD(6T$&LL3)OV/Z94QN6?-$G+FSB]V]SH+/8@>CI6 MXX?>8Y1&Q7R-9QY>+C^M#TT(S,3<UC:8+'$U_^,8Q'X/<#(@`(#&`""A0*@= M@),#FD69&NRBFB'+VJ&R*3;!E;;VNGD"VM"T*$TX;N6E*%#85NJ&]RD6_[VW M+1F1]LSGIA3D_^,8Q'L-:#8@`'A$``PH<\P&@,Y3RSFQH&>Q]8U04?U1[I)@ M&%!81DUR1ZH\7"R2#6ZT'$_TL#YE3':.*_.11T6K!=<MG&&<_^,8Q(`/,$(@ M`,#&`/%R0L/:,I?'.0OG+,M2IQ&I8QZ;Q5+%J:A\<Z%)A:!XX]*YJUJ)0N*9 M:[;23BC:*ZT:@W]/%Z6^H(30_^,8Q'X/0"8@`'B&`,YX?'GP,N./OF'];Y]0 M25A`N(HG4,8FQPS,J*1I%\#KT\8J06:I`*V(;JK-,,,WNZ?"J19-B*0-8Z8P M_^,8Q'P-L#(@`&B``-1A@+A\@T2#EWYDX':G(VOO@)3L:7%+JM;3A:PA:M2D M\>VS0OKW_YQE:OGEJ@/B2>5A`8-G`2$:R`(6_^,8Q(`/0"X@`,#``%"#5;D5 M,O56_E;2R4/:A'>NVACF*ZGS2AE]%+"],@BV[WT,3_AN)JO?+;,SH`5#K,08 M($6H;%33B#$(_^,8Q'X-""XD`,#&`*"#&+L<D8NU>E6S&2W<Q(&04TFSCDL7 M$GUH<]%C*-\BB.\HB@L8J@4UGH@-40)#Z@6'7!UAV)1=@J@%_^,8Q(0,\!8D M`'@``$N@#WHFS1,9L0D).N)2RB8=?BSV)<XNM>WF&\GO1[GK=T5$4J)\5A*1 M'[<D"!A`'YA7*3KR^A52:SEW_^,8Q(L.(#XD`,#&`,N*Q4#,,,%+!@,T$45) M?1ZE4+<AS9&SK>S<6^CUU0H&+4,3`1C%"IRHB56UZ1(TS4VJI-CG\8Z*.(O8 M_^,8Q(T/<"X@`'B$`*6&R#"S)AB"0]8O/W3CS3TM0YK.Z]Y'VV(HYER$JB+, MAA=-264P16N><(69#RR(J8.`05"8N\Y>7M2U_^,8Q(H,2!(D`'A$``R9N!-S M4"G552DV5':J%JSISO732/>66P^Y"F:?J.-5Z`B&YS2D\["`3"<I%VHFSRGB MP^VI`=`TRNQY_^,8Q),.B!X@`&!``"R[].9I<*:W:PZH/C:`2FDLB:-;>TJA M2BRK^M@AK$WW2S%U(HYN1'?NC&0MC=(D!%@^7L;>P,D#V&E9_^,8Q),/@$(@ M`,&&`"+'14E8Y!HZUK=;>%&E[#]^U:MHLZ@;I&UE=;'J32QCK]W4`<(C(I&J M`80#6Z`,#6L>('!`0BA%$P:>_^,8Q)`/&"H@`'B$`)=9V8:>+/OT]@TE0@@] MPW%4')_E?BBU;RS:6,ZJWL8A5NH2;`T,TN5A'``@$1*E99"`H*C*'D$1SG'E M_^,8Q(X.N$(@`,#$`*5V.6@!,/%!9K!H0=W.9[4/N##5\>%J=^%YZO:IFBMJ M#&L4#:T5#B5Y^U3Y@`QV!PX4"-SQ=%EXG64&_^,8Q(X.@#(@`'F&`"0LY#%" MV:`PX5N[20XK%RUUZ6DYG"+]%E[,\>?B)IQIAB)AVG\2:0#$UE3:%S"QH.BH M3#YTZXBXL+#!_^,8Q(\/F"8D`,#&`$1&6WG&4.RI2%3=$V\@\X+,%:'DV_/O MI9>J4(DRR>V/J6ON43?WO075$DPN!<,ZP6#.?*:0$Z4>M`-=_^,8Q(L/`#(D M`,"``&:NG9N]#\,['N<)'GW(+9BH=IJ?C_]=T[^6:VS574H:(_DLKY8CJE<@ M*8<<W)N3NBXM%+&A0F)>FFE+_^,8Q(H/$"H@`'B&`(D*YZXBYVPC0SL1,;9R MJY]SNY$WOF%5D@.FC#KRQ0A0,$D`05;'98B#;KJP$A%ZX\JD;0UB'8H7`[5. M_^,8Q(@,&"HD`,"``$*H+=A$6M-)*I79W7IK/TO*(H!IG2V^ZBHB907JENE= M11#2AP8ZV4!`HQ36HLN>]4`O$5L0W4`A8M%E_^,8Q)(-`"(D`,#$`*X*G2E[ MUHB,H0A]%0TO:UQ^+/>4HV*3LLC0-RT2B\N5^YH$)"'14I!:T.MBPN=2DA8C M=0;*0.BNW&7"_^,8Q)D.T"(@`&#&`+<:1QAJ;A_B@Q[WAP7,A`_IG`U)K&O< MUZR*H"56E.IE"QT/VV(]V)4)!Q0XV9:`"A@4J.7N6=',%JMZ_^,8Q)@/>"H@ M`,#$`%,V++(F`(FZMD@D5O\.)/6K=7"+,TNJFHGM0Y]AB._8M03KV%+;F%02 M"0E`2#H4'AMC7.&M(LY!46UW_^,8Q)40`$8D`,#&``"[?2.N+,H)4L8U@K;J M=)RIE?1<E=*>-CF-M9I0@54-Q"G;:"9\C1/%;VGCS'BCW5NYE+`<G;BSVKH3 M_^,8Q)`.H"(@`'C``"W?94]2RY53WAQ*$'113[&[:;(>*1$-7E4I(+?>YE`+ M%]73>T>.J<X`&D'R[F_8BRD9=8G',&/'NG$P_^,8Q)`.("HD`'C``/3*I2]] M!%R4-IL8979'NHT!A^RJEK;5R!^D6@&9`S^T_:`0##(/F5")8,%@T]`Z8J"! M*<(3E:@),I%R_^,8Q)(.N!(@`'@``&LZXC+[6>?2FJXD7E6_'.$K\?U%44E6 M=-;[:LK5`<46^;K@H@H@5:%0&D")$QQ+%XM6Q^F+$8&]Z:6&_^,8Q)(-L!8D M`'@``%"_*56L[EZ+=_;6]K!;0ZBS%M&M!S*)NLR.Y6&P=*)/)"@I,,'$VSFU M[K';T[:S682@>I(SJ>@\O//>_^,8Q)8/""(@`,B``%2B3<ZWJJ0^O743OJ1T M*@<270-5EEG`A#'0H?R;Z*6Z48M:_1<E4UIH.K*:SV*W,4+74R#6,N[PMV/T M_^,8Q)0,<!8D`'B&`#G['^OWH34/%CN4U0XFXF`C'%*2#0/S>IE4:FY_9K6F MA(YET0.^Q2Y?2BC;M%OI:L\[[.U.G:GI%@2\_^,8Q)T-2#HD`'B&`--D7)`D M;<M3UFL1>.0EPQ>TJ4KHOFTD%(=V-`I!VQ#GH3[$RQC9B_K0A>FE.@]3J0.* M%*N%1^3*#'GQ_^,8Q*(,F"XD`,"``%0D/I:P^3NY1D?]B0QJ75KCJQ6\TZI: M7/>ZP7>NDLZY9AKA?Z+BHWUZE1*CQVK%!3@"+%JE--PU:.VR_^,8Q*H,0#XD M`,C&``=:Q:GAG8MMMRB#@HQAA&>EX47&OJN*[FZ*W,4A!FB93`I&TEZ]*@(@ MN",HQQ__JE(E`"I"@>=`!&F7_^,8Q+0,L!8D`'C``+D+Q'A_8Y`9:(Q4(/5* MK(=EJ\H]R&'11#BY(S'U)&-1$U[5[6JT7V1?4BI,04U%,RXX."`H8F5T82FJ M_^,8Q+P-$"HD`'C``*JJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJ MJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJ_^,8Q,(-V"H@`$C&`*JJJJJJ MJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJ MJJJJJJJJJJJJ_^,8Q,4/D#H@`4\``*JJJJJJJJJJJJJJJJJJJJJJJJJJJJJJ DJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJ ` end

In reply to monkyack.pl by jcwren

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":



  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • Outside of code tags, you may need to use entities for some characters:
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.
  • 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 scrutinizing the Monastery: (13)
    As of 2014-10-21 16:10 GMT
    Sections?
    Information?
    Find Nodes?
    Leftovers?
      Voting Booth?

      For retirement, I am banking on:










      Results (105 votes), past polls