TeeJay's Friends' Journals http://use.perl.org/~TeeJay/journal/friends/ TeeJay's Friends' use Perl Journals en-us use Perl; is Copyright 1998-2006, Chris Nandor. Stories, comments, journals, and other submissions posted on use Perl; are Copyright their respective owners. 2012-01-25T02:04:59+00:00 pudge pudge@perl.org Technology hourly 1 1970-01-01T00:00+00:00 TeeJay's Friends' Journals http://use.perl.org/images/topics/useperl.gif http://use.perl.org/~TeeJay/journal/friends/ Cute caps http://use.perl.org/~jdavidb/journal/40507?from=rss <p>I'm doing some quick code generation (the output is Java), and I found myself writing the below routine. I like it because of the names I picked for the variables. Not exactly self-documenting (although it is when you think about it), but this is throwaway. You can probably tell what the code is doing and why I named the variables as I did, and you might be entertained.</p><blockquote><div><p> <tt>sub uc_prop<br>{<br>&nbsp; my($prop) = @_;<br>&nbsp; my $p = substr($prop, 0, 1);<br>&nbsp; my $P = uc($p);<br>&nbsp; my $rop = substr($prop, 1);<br>&nbsp; return "$P$rop";<br>}</tt></p></div> </blockquote> jdavidb 2010-08-19T21:55:41+00:00 journal Strawberry Perl install rolled back http://use.perl.org/~jdavidb/journal/40462?from=rss <p>Strawberry Perl 5.12.0 was almost completely installed when suddenly it flashed some message I didn't see into the install wizard and the progress bars started moving backward! I have never seen anything like it. I realized the progress bar caption had been changed to simply "Rolling Back Action" and watched as at least three anonymous "actions" were rolled back, progress bar by progress bar. Then the install wizard simply told me "Strawberry Perl Setup Wizard ended prematurely Strawberry Perl Setup Wizard ended prematurely because of an error. Your system has not been modified. To install this program at a later time, run Setup Wizard again. Click the Finish button to exit the Setup Wizard."</p><p>I wish it would tell me what the error was so I might have some hope of correcting it.</p> jdavidb 2010-07-26T20:34:33+00:00 journal Hiveminder: personal RT, for free http://use.perl.org/~jdavidb/journal/40452?from=rss <p>You mean someone will provide RT for me to use for free on the web? And they've built an awesome AJAX-y frontend for it? And they allow me to tag tasks and they encourage me to keep my work todo list and as many personal todo lists as I want in here? And they give me awesome search utilities for figuring this out and keeping it organized?</p><p>It's almost like <a href="http://hiveminder.com/">a dream come true</a>.</p> jdavidb 2010-07-19T16:58:36+00:00 journal Strawberry Win32 GUI programming http://use.perl.org/~jdavidb/journal/40388?from=rss <p>If I wanted to write a Strawberry program to run as a daemon and periodically pop up alerts on my machine, and I had no Windows Perl GUI programming experience other than an abortive look at WxPerl years before anybody ever thought of Strawberry, what module would I be looking for?</p> jdavidb 2010-06-09T15:10:53+00:00 journal Another StackOverflow question moved: what's the deal? http://use.perl.org/~jdavidb/journal/40357?from=rss <p>Stack Overflow is made significantly less useful when ignorant people move Perl programming questions to serverfault.com because the questions are about <a href="http://stackoverflow.com/questions/2769078/perl-tds-character-sets-closed">"servers, networks or the administration of many machines."</a>.</p><p>This kind of ridiculous micromanaging by people who are awarded points for being anti-helpful is what destroyed Wikipedia as a place I wanted to participate.</p> jdavidb 2010-05-20T14:18:10+00:00 journal Testing gurus, would you please chime in? http://use.perl.org/~jdavidb/journal/40346?from=rss <p>The question is how to test a class that installs system services: <a href="http://stackoverflow.com/questions/2790072/unit-testing-installation-of-services">http://stackoverflow.com/questions/2790072/unit-testing-installation-of-service<nobr>s<wbr></nobr> </a> </p> jdavidb 2010-05-07T17:16:23+00:00 journal Bob Jacobsen interview on FLOSS Weekly http://use.perl.org/~merlyn/journal/40324?from=rss Last week, I interviewed Bob Jacobsen for FLOSS Weekly. Bob used Perl's Artistic 1.0 license on some Java code to manage model trains. The code was later patented by an Oregon-based company(!) and then Bob got sued(!!) for Bob distributing the other company's patented code(!!!). The good part of the story is that this is the first test at the US Federal Appeals Court level for an open source license to be enforceable even if no money exchanges hands, and... we won! <p> Bob spent a lot of time and money on the case though. Listen to <a href="http://twit.tv/floss117">the podcast</a> and contribute to <a href="http://jmri.sourceforge.net/donations.shtml">his legal defense</a> if you care about open source.</p> merlyn 2010-04-23T03:55:11+00:00 journal Ball of mud song http://use.perl.org/~jdavidb/journal/40317?from=rss <p>Anyone got any good songs about working on a ball of mud?</p> jdavidb 2010-04-20T15:01:23+00:00 journal From UTC to US/Central http://use.perl.org/~jdavidb/journal/40287?from=rss <p>I've been living on UTC time since just before the end of Daylight Saving Time, 2005. Today I have reset my workstation to Central time. It's like looking at the world with fresh eyes.</p><p>My settings on websites will follow at some point.</p> jdavidb 2010-04-01T17:57:23+00:00 journal RIP Jaime Escalante http://use.perl.org/~jdavidb/journal/40282?from=rss Jaime Escalante, America's best math teacher, passed away last night. Escalante built a spectacular mathematics program in a struggling inner-city school district, teaching disadvantaged children all the way through Advanced Placement Calculus. His story was depicted in the 1988 film Stand and Deliver. I've got to say this man was really one of my personal heroes. When Sarah and I started talking about homeschooling our children it was thoughts of Mr. Escalante that made me get really serious about the kind of education our children could have with us directing. jdavidb 2010-03-31T12:43:26+00:00 journal Things I didn't know about the Walls http://use.perl.org/~jdavidb/journal/40254?from=rss <p>Larry's son, Lewis, is writing a 2D game engine in Perl 6 using Rakudo (<a href="http://www.wall.org/~lewis/">http://www.wall.org/~lewis/</a>).</p><p>Larry's wife, Gloria, took the Revised Common Lectionary and expanded it to make a complete Bible reading program which covers the entire Bible in three years (<a href="http://www.wall.org/~gloria/lect/">http://www.wall.org/~gloria/lect/</a>). And I wonder if maybe I'm not the only person in history who's ever written a program in Perl to divide up the Bible for reading, after all...</p> jdavidb 2010-03-19T17:00:01+00:00 journal Gone http://use.perl.org/~Ovid/journal/40243?from=rss <p>Like many others, I'm no longer posting here very much. You'll find my new technical journal at <a href="http://blogs.perl.org/users/ovid/">blogs.perl.org</a>. It's much shinier.</p><p> <a href="http://siteanalytics.compete.com/use.perl.org/">As you can see, use.perl visits have been dropping for a while</a> (blogs.perl.org is too new to show up on that search) and the <a href="http://use.perl.org/">front page of use.perl has been sadly neglected</a>. As for blogs.perl.org, after an initial rough start, <a href="http://blogs.perl.org/users/adam_kennedy/2009/12/migrating-from-useperlorg-to-blogsperlorg.html">plenty</a> <a href="http://blogs.perl.org/users/thefinalcut/2009/12/first-post-on-the-shiny-new-onion.html">of</a> <a href="http://blogs.perl.org/users/limbicregion/2009/11/goodbye-useperlorg-hello-blogsperlorg.html">people</a> are switching over and are very happy with the shiny.</p><p>I have fond memories of use.perl.org, but it's just too old and out-of-date. Come on over to our new platform and look around. Plus, <a href="http://github.com/davorg/blogs.perl.org/issues">tell us what you want changed about it</a>. (To be fair, while I was involved in the project to get it launched (mostly kibitzing and asking why things were stalled -- I'm such a marketroid<nobr> <wbr></nobr>:), the hands-on work was Dave Cross, Aaron Crane and the wonderful folks at <a href="http://www.sixapart.com/">SixApart</a>.)</p> Ovid 2010-03-14T08:02:43+00:00 journal Test::Class::Most http://use.perl.org/~Ovid/journal/40148?from=rss <a href="http://blogs.perl.org/users/ovid/2010/01/-package-sometestclass.html">Test::Class::Most</a>. Ovid 2010-01-31T19:25:10+00:00 journal Testing with PostgreSQL http://use.perl.org/~Ovid/journal/40145?from=rss <p>My new personal project has a PostgreSQL database. <a href="http://blogs.perl.org/users/ovid/2010/01/testing-postgresql.html">Here's how I'm handling testing</a>.</p> Ovid 2010-01-30T16:22:57+00:00 journal ah, dreams... http://use.perl.org/~Matts/journal/40130?from=rss <p>I just woke from a dream where it was rjbs' birthday and we got him an onion cake. Only the person who made the cake misunderstood, and instead of a cake shaped like an onion he cooked it WITH onions in it.</p><p>Bizarro.</p> Matts 2010-01-26T10:31:17+00:00 journal Time::Piece test failures on Win32 http://use.perl.org/~Matts/journal/40129?from=rss <p>Can someone with Time::Piece test failures on Win32 please contact me offlist? I have a proposed patch I'd like to test, but no Win32 perl to test it on.</p> Matts 2010-01-25T23:23:53+00:00 journal Roles without Moose? http://use.perl.org/~Ovid/journal/40127?from=rss <p> <a href="http://blogs.perl.org/users/ovid/2010/01/roles-without-moose.html">Milliseconds are important</a>.</p> Ovid 2010-01-25T14:04:31+00:00 journal Unless what? http://use.perl.org/~Ovid/journal/40103?from=rss <p> <a href="http://blogs.perl.org/users/ovid/2010/01/unless-what.html">Unless what?</a> </p> Ovid 2010-01-15T11:47:53+00:00 journal Perl 10.1.0 doesn't build on Cygwin http://use.perl.org/~jdavidb/journal/40101?from=rss <p>Is building on Cygwin not supported any more, I take it? Did we forget about it?</p><blockquote><div><p> <tt>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; CCCMD =&nbsp; gcc -DPERL_CORE -c -DPERL_USE_SAFE_PUTENV -U__STRICT_ANSI__ -<br>fno-strict-aliasing -pipe -I/usr/local/include&nbsp; -O3 -Wall -W -Wextra -Wdeclarati<br>on-after-statement -Wendif-labels<br>PATH=/home/dblackstone/perl-5.10.1:.:/home/dblackstone/bin:/hom<nobr>e<wbr></nobr> <nobr> <wbr></nobr>/dblackstone/bin<br>:/usr/local/bin:/usr/bin:/bin:/usr/X11R6/bin:/cygdrive/c/Prog<nobr>r<wbr></nobr> am\ Files\ (x86)/J<br>ava/jdk1.6.0_16/bin:/cygdrive/c/WINDOWS/system32:/cygdrive/c/WINDOWS:/<nobr>c<wbr></nobr> ygdrive/c<br>/WINDOWS/System32/Wbem:/cygdrive/c/Program\ Files\ (x86)/ZipGenius\ 6/:/cygdrive<br>/c/Program\ Files/MySQL/MySQL\ Server\ 5.1/bin:/cygdrive/c/apache-ant-1.7.1/bin:<br>/cygdrive/c/Program\ Files\ (x86)/Git/cmd:/cygdrive/c/Program\ Files\ (x86)/cvsn<br>t:/cygdrive/c/Program\ Files\ (x86)/PuTTY:/cygdrive/c/Program\ Files\ (x86)/GnuW<br>in32/bin:/cygdrive/c/strawberry/c/bin:/cygdrive/c/strawberry/perl/b<nobr>i<wbr></nobr> n:/cygdrive/<br>c/Program\ Files\ (x86)/QuickTime/QTSystem/:/usr/lib/lapack:/usr/local:/etc:/usr<br>/lib:/lib:/sbin<nobr>:<wbr></nobr> <nobr> <wbr></nobr>/usr/sbin:/usr/libexec gcc -Wl,--enable-auto-import -Wl,--export<br>-all-symbols -Wl,--stack,8388608 -Wl,--enable-auto-image-base -L/usr/local/lib -<br>o miniperl.exe \<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;malloc.o gv.o toke.o perly.o pad.o regcomp.o dump.o util.o mg.o ree<br>ntr.o mro.o hv.o av.o run.o pp_hot.o sv.o pp.o scope.o pp_ctl.o pp_sys.o doop.o<br>doio.o regexec.o utf8.o taint.o deb.o universal.o xsutils.o globals.o perlio.o p<br>erlapi.o numeric.o mathoms.o locale.o pp_pack.o pp_sort.o cygwin.o \<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; miniperlmain.o opmini.o perlmini.o -ldl -lcrypt<br>/bin/sh: -c: line 0: syntax error near unexpected token `('<br>/bin/sh: -c: line 0: `PATH=/home/dblackstone/perl-5.10.1:.:/home/dblackstone/bin<br>:/home/dblackstone<nobr>/<wbr></nobr> bin:/usr/local/bin:/usr/bin:/bin:/usr/X11R6/bin:/cygdrive/c/P<br>rogram\ Files\ (x86)/Java/jdk1.6.0_16/bin:/cygdrive/c/WINDOWS/system32:/cygdrive<br>/c/WINDOWS:/<nobr>c<wbr></nobr> ygdrive/c/WINDOWS/System32/Wbem:/cygdrive/c/Program\ Files\ (x86)/Z<br>ipGenius\ 6/:/cygdrive/c/Program\ Files/MySQL/MySQL\ Server\ 5.1/bin:/cygdrive/c<br>/apache-ant-1.7.1/bin:/cygdrive/c/Program\ Files\ (x86)/Git/cmd:/cygdrive/c/Prog<br>ram\ Files\ (x86)/cvsnt:/cygdrive/c/Program\ Files\ (x86)/PuTTY:/cygdrive/c/Prog<br>ram\ Files\ (x86)/GnuWin32/bin:/cygdrive/c/strawberry/c/bin:/cygdrive/c/strawber<br>ry/perl/b<nobr>i<wbr></nobr> n:/cygdrive/c/Program\ Files\ (x86)/QuickTime/QTSystem/:/usr/lib/lapac<br>k:/usr/local:/etc:/usr/lib:/lib:/sbin<nobr>:<wbr></nobr> <nobr> <wbr></nobr>/usr/sbin:/usr/libexec gcc -Wl,--enable-au<br>to-import -Wl,--export-all-symbols -Wl,--stack,8388608 -Wl,--enable-auto-image-b<br>ase -L/usr/local/lib -o miniperl.exe \'<br>make[1]: *** [miniperl.exe] Error 2<br>make[1]: Leaving directory `/home/dblackstone/perl-5.10.1'<br>make: *** [install] Error 2</tt></p></div> </blockquote> jdavidb 2010-01-14T17:16:42+00:00 journal Dear Recruiters http://use.perl.org/~Ovid/journal/40100?from=rss <p> <a href="http://blogs.perl.org/users/ovid/2010/01/dear-recruiters.html">Dear Recruiters</a> </p> Ovid 2010-01-13T13:06:11+00:00 journal Next QA Hackathon -- What Do You Need? http://use.perl.org/~Ovid/journal/40093?from=rss <p> <a href="http://blogs.perl.org/users/ovid/2010/01/next-qa-hackathon----what-do-you-need.html">Read about the next QA Hackathon</a>.</p> Ovid 2010-01-12T11:37:14+00:00 journal Most Popular Testing Modules - January 2010 http://use.perl.org/~Ovid/journal/40086?from=rss <p> <a href="http://blogs.perl.org/users/ovid/2010/01/most-popular-testing-modules---january-2010.html">Most popular testing modules as of January 2010</a> </p> Ovid 2010-01-07T21:46:46+00:00 journal Stack Overflow career spam http://use.perl.org/~jdavidb/journal/40084?from=rss <p>I got a fairly innocuous spam from Stack Overflow advertising their new job hunting site, where they would like me to upload my resume.</p><p>Sorry, Stack Overflow; I'm <a href="http://www.asktheheadhunter.com/">smart for that</a> (thanks to Andy Lester). I also don't particularly appreciate the spam, although it's the first I've ever gotten and wasn't too obtrusive.</p> jdavidb 2010-01-07T15:26:00+00:00 journal Warning compiling perl stuff on Snow Leopard http://use.perl.org/~Matts/journal/40075?from=rss <p>I've searched but can't find any reference to this...</p><p>Compiling IO::KQueue on Snow Leopard I get the following warning:</p><blockquote><div><p> <tt>KQueue.xs: In function 'XS_IO__KQueue_kevent':<br>KQueue.xs:71: warning: format not a string literal and no format arguments</tt></p></div> </blockquote><p>Yet that line is just:</p><blockquote><div><p> <tt>&nbsp; &nbsp; Newxz(ke, max_events, struct kevent);</tt></p></div> </blockquote><p>Which seems to me pretty standard perl, and no format strings involved (though Newxz expands quite a few macros).</p> Matts 2010-01-04T22:13:57+00:00 journal Cool Things in Perl 6: Subsets http://use.perl.org/~Ovid/journal/40072?from=rss <p> <a href="http://blogs.perl.org/users/ovid/2010/01/cool-things-in-perl-6.html">They're going to be a lot of fun</a>.</p> Ovid 2010-01-04T13:11:31+00:00 journal I'm twittering my Perl stuff at http://twitter.com/briandfoy http://use.perl.org/~brian_d_foy/journal/40068?from=rss <p>I'll tweet at (http://twitter.com/briandfoy_perl) when I have something to say in 140 characters. I'll almost always use "Perl" when I post.</p> brian_d_foy 2010-01-02T13:06:32+00:00 journal Effective Perl Programming master class at Frozen Perl http://use.perl.org/~brian_d_foy/journal/40065?from=rss At <a href="http://www.frozen-perl.org/mpw2010/briandfoy.html">Frozen Perl 2010</a> in Minneapolis, I'm teaching a new master class based on my latest book, <a href="http://www.amazon.com/Effective-Perl-Programming-Software-Development/dp/0321496949">Effective Perl Programming, 2nd Edition</a>. Perl has changed quite a bit since Joseph Hall wrote the first edition over 10 years ago. Josh McAdams and I have added a lot of new information as well as updated the existing material. In the one-day class for intermediate Perl programmers, I'll cover selected topics from the book, including: <ul> <li>Working with Unicode in Perl</li> <li>Tricks with filehandles</li> <li>New regex features in Perl 5.10 and later</li> <li>Playing with pack()</li> <li>Using closures to make things simpler</li> <li>and other topics as time allows</li> </ul><p> Although the book hasn't been published yet, it is available for pre-order, and attendees to the class can get a sneak peek at the working manuscript as well as a soft copy of the course slides.</p> brian_d_foy 2010-01-01T13:32:50+00:00 journal Perl 6 Config::INI parser on github http://use.perl.org/~Ovid/journal/40060?from=rss <p> <a href="http://blogs.perl.org/users/ovid/2009/12/perl-6-configini-on-github.html">Details here</a>.</p> Ovid 2009-12-30T17:48:47+00:00 journal Improve My Perl 6! http://use.perl.org/~Ovid/journal/40051?from=rss <p> <a href="http://blogs.perl.org/users/ovid/2009/12/improve-my-perl-6.html">Collaborative filtering (user recommendations) in Perl 6</a>.</p> Ovid 2009-12-24T11:29:45+00:00 journal SVK retired http://use.perl.org/~jdavidb/journal/40043?from=rss <p>I didn't notice, but SVK <a href="http://lists.bestpractical.com/pipermail/svk-devel/2009-May/001224.html">retired</a> in May. Thanks to its authors and Best Practical for providing it. I agree with the sentiment that people moved on from Subversion quicker than expected; I am glad that I went on to git instead of spending too much time with SVK, although I would've liked to have learned it earlier and gotten to know it better.</p> jdavidb 2009-12-21T22:00:29+00:00 journal