Re: Rate my JAPH

Don't know how to rate it, but maybe it can be fun to figure that out.. Maybe, after an appropriate period of pondering time (or some spoiler separation white space) we can rate your explanation of the nefarious internals. At least then (unlike, say, Art), one could say Oh, now I get it or

Re: Just to say hello

Here's a JAPH and explanation from the Perl-Win32-Users mailing list - this has some quirks. On win7, I got back steal Porch Junk on some versions of perl you get a newline, on some you get a syntax error but the explanation is great!: $_=q;steal Porch Junk;;split//;$_=q=cd0153e71;

Stack Exchange Code Golf

http://codegolf.stackexchange.com/questions In any language but ... a -- Andy Bach Systems Mangler Internet: andy_b...@wiwb.uscourts.gov Voice: (608) 261-5738, Cell: (608) 658-1890 We are what we pretend to be, so we must be careful about what we pretend to be. Kurt

Fw: Help with regex

Seems like this could be fun/golf - Forwarded by Andy Bach/WIWB/07/USCOURTS on 08/13/2009 11:57 AM - I am using Active Perl 5.8.8. and Perl Dev Kit 7.0. I'm writing some code that standardizes the format of phone numbers in a database because users have entered them in every way

Golf? BF?

From a chicago PM list a 'golfed' perl BF interpreter: - Forwarded by Andy Bach/WIWB/07/USCOURTS on 02/13/2007 01:06 PM - Been there, done that [wrote the BF interpreter]. Here's a mildly golfed brainf*ck interpreter in 123b of perl: %c=qw| --$p; ++$p; + ++$$p; - --$$p; [ ${ ]

Converting dell tags to svc codes - itty-bitty golf, anyone?

Question came up elsewhere and via: http://www.creativyst.com/Doc/Articles/HT/Dell/DellNumb.htm we found Dell uses base 36 for its Service tags. You need the decimal for the automated phone access so somebody came up w/: map {$s+=(/\d/?$_:(ord()-55))*(36**$i++)} reverse(split(//,uc shift)); $s

Re: Secret operators

Can I get that just a little slower? $b = () = /u/g; is the same as: @a = /u/g; $b = @a; I understand what happens, but it appears to be assigning to an empty list - is that filling up the list, so to speak? Or is it just that it makes the 'result' of /u/g assign in array/list

Re: reencoding ampersands for html, longhand

Thanks to all who considered and responded to my (ahem) quandry. After some number of hours I'd driven off into a corner, you helped me get back. I hope there was a smidgen of fun in it. a Andy Bach, Sys. Mangler Internet: [EMAIL PROTECTED] VOICE: (608) 261-5738 FAX 264-5030 Believe

reencoding ampersands for html, longhand

We have a database where names and addresses have been 'polluted' by partial html escaping. Its a mess, in that some entities are escaped (lt; back ticks and some others) some are sometimes escaped and ampersands are sometimes escaped. The chickens come home to roost in the java pdf

Re: CM/ECF ver2 Docket Activity Report

We work w/ an externally created/supported large perl program and a recent update showed some odd commenting behavior, so somebody asked me: To make it a true qotw, we would add the requirement that the program must filter out any lines that are commented out and any of the following logical

TPJ is back (almost)

I imagine most of you've heard this, but it certainly was the most 'fun' magazine I ever got in the mail (well, w/o the obscuring wrapper) : The Perl Journal?Back in Business! Since 1996, The Perl Journal has been the definitive publication for and about Perl programming. Now as a monthly

Re: [logs] perl question relating to log analysis

As often, not so much fwp but a question on perl that somebody might have fun w/ ... Andy Bach, Sys. Mangler Internet: [EMAIL PROTECTED] VOICE: (608) 261-5738 FAX 264-5030 To understand recursion, we must first understand recursion. - Forwarded by Andy Bach/WIWB/07/USCOURTS on 08/29/02

Re: latin japh

Quick latin (www.quicklatin.com): Give new my 44 then X. Kcahere thus do you think you move thus give to the seat to this to these the decapitamentum. New my. While this do thus the praecidementum give to this I go along to the one reduced to quasi-slavery for debt. With then the new

Non-head, non-tail recursion???

Not specifically perl but I did steal the .sig from a perl-ish source ... Any suggestions? a Andy Bach, Sys. Mangler Internet: [EMAIL PROTECTED] VOICE: (608) 261-5738 FAX 264-5030 To understand recursion, we must first understand recursion. - Forwarded by Andy Bach/WIWB/07/USCOURTS on

Great programming language shootout

Another list (discussing ICON) got me to: http://www.bagley.org/~doug/shootout/ and checking on perl's results found it sort of in the middle. http://www.bagley.org/~doug/shootout/lang/perl/ This was one of the scripts: #!/usr/local/bin/perl # $Id: sieve.perl,v 1.11 2001/07/02 03:53:58 doug

Re: TPR1 post-mortem

5.6.1 abbcd 5.6.0 abbcd 5.005_03 abbccd 5.005_02 abbccd 5.004_04 abbccd 5.000 abbccd 4.0.1.6p19 abbccd 4.0.1.8p36 abbccd Andy Bach, Sys. Mangler Internet: [EMAIL PROTECTED] VOICE: (608) 261-5738 FAX 264-5030 Rick Klement [EMAIL PROTECTED] Sent by: root@nodots-daemon 03/08/02 09:19 AM

Re: Better REs

I may have a different idea of OT or perhaps just a lower threshold (actually I think anything to do w/ perl is fun) but one thing led to another and I ended up contacting the RE man himself.I do not mean to post this as validation of my note (that appears moot at best and wrong (missed