From tim at consultix-inc.com Fri Feb 2 12:37:20 2007 From: tim at consultix-inc.com (Tim Maher) Date: Fri, 2 Feb 2007 12:37:20 -0800 Subject: SPUG: Requesting comments from Min. Perl readers Message-ID: <20070202203720.GA21466@jumpy.consultix-inc.com> QUESTION: What's the best way to bring a book to the attention of the masses who could benefit from it but haven't yet recognized their need for it? ANSWER: By getting satisfied readers to post comments on the book on its Amazon.com web page! (According to my publisher.) So I'd appreciate it if those on this list who have read my "Minimal Perl" book--you know who you are--would go to: http://www.amazon.com/Minimal-Perl-UNIX-Linux-People/dp/1932394508/sr=1-1/qid=1170447426/ref=pd_bbs_sr_1/104-6308778-4209568?ie=UTF8&s=books ... and post your comments there by scrolling down to the Customer Reviews section. Note that these "reviews" don't need to be extensive, and there's no requirement that you need to read the entire book first. Any comments you can share that you think might help a prospective reader make a wiser decision about acquiring the book would be appropriate. By the way, those of you who haven't visited the book's Amazon page lately may be interested to know that the "Search Inside!" feature has finally come alive, letting you browse through the book. TIA, -Tim P.S. For links to all the book's reviews, go to http://MinimalPerl.com P.P.S. I'm teaching six public Perl classes in Seattle in the next few months; see http://TeachMePerl.com *-------------------------------------------------------------------* | Tim Maher, PhD (206) 781-UNIX http://www.consultix-inc.com | | tim at ( Consultix-Inc, TeachMePerl, or TeachMeUnix ) dot Com | *-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-* | Classes: 2/21: Basic Perl; 3/12: Basic UNIX/Linux; 3/16: Min Perl | | * Download free chapters from my Perl book at MinimalPerl.com * | *-------------------------------------------------------------------* From MichaelRWolf at att.net Mon Feb 5 13:06:22 2007 From: MichaelRWolf at att.net (Michael R. Wolf) Date: Mon, 5 Feb 2007 16:06:22 -0500 Subject: SPUG: Requesting comments from Min. Perl readers In-Reply-To: <20070202203720.GA21466@jumpy.consultix-inc.com> References: <20070202203720.GA21466@jumpy.consultix-inc.com> Message-ID: <004d01c74969$7da3d0b0$e00110ac@mlaptop> I've heard getting on this list helps a lot, too!!! http://www.oprah.com/books/books_landing.jhtml -- Michael R. Wolf All mammals learn by playing! MichaelRWolf at att.net > -----Original Message----- > From: spug-list-bounces+michaelrwolf=att.net at pm.org [mailto:spug-list- > bounces+michaelrwolf=att.net at pm.org] On Behalf Of Tim Maher > Sent: Friday, February 02, 2007 3:37 PM > To: SPUG Announcements; linux-list at ssc.com > Subject: SPUG: Requesting comments from Min. Perl readers > > QUESTION: > What's the best way to bring a book to the attention of the masses who > could benefit from it but haven't yet recognized their need for it? > > ANSWER: > By getting satisfied readers to post comments on the book on its > Amazon.com web page! (According to my publisher.) > > So I'd appreciate it if those on this list who have read my "Minimal > Perl" book--you know who you are--would go to: > > http://www.amazon.com/Minimal-Perl-UNIX-Linux-People/dp/1932394508/sr=1- > 1/qid70447426/ref=pd_bbs_sr_1/104-6308778-4209568?ie=UTF8&s=books > > ... and post your comments there by scrolling down to the Customer > Reviews section. > > Note that these "reviews" don't need to be extensive, and there's no > requirement that you need to read the entire book first. Any comments > you can share that you think might help a prospective reader make a > wiser decision about acquiring the book would be appropriate. > > By the way, those of you who haven't visited the book's Amazon page > lately may be interested to know that the "Search Inside!" feature has > finally come alive, letting you browse through the book. > > TIA, > -Tim > > P.S. For links to all the book's reviews, go to http://MinimalPerl.com > > P.P.S. I'm teaching six public Perl classes in Seattle in the next few > months; see http://TeachMePerl.com > > *-------------------------------------------------------------------* > | Tim Maher, PhD (206) 781-UNIX http://www.consultix-inc.com | > | tim at ( Consultix-Inc, TeachMePerl, or TeachMeUnix ) dot Com | > *-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-* > | Classes: 2/21: Basic Perl; 3/12: Basic UNIX/Linux; 3/16: Min Perl | > | * Download free chapters from my Perl book at MinimalPerl.com * | > *-------------------------------------------------------------------* > _____________________________________________________________ > Seattle Perl Users Group Mailing List > POST TO: spug-list at pm.org > SUBSCRIPTION: http://mail.pm.org/mailman/listinfo/spug-list > MEETINGS: 3rd Tuesdays > WEB PAGE: http://seattleperl.org/ From jobs-noreply at seattleperl.org Mon Feb 5 19:18:41 2007 From: jobs-noreply at seattleperl.org (SPUG Jobs) Date: Mon, 5 Feb 2007 19:18:41 -0800 (PST) Subject: SPUG: Perl for advanced analytics for wireless devices Message-ID: Required skill-set: 3-5 years programming in Perl. Must have Web Crawler and Web parsing experience Strong knowledge of TCP/IP, HTTP, SSL Windows development experience C++ or C# (.NET) experience or knowledge is preferred. Full project life cycle experience. Strong written and verbal communication skills. Highly motivated, able to work both in a team and solo. Must be able to meet deadlines and work well under pressure. Strong attention to detail. Strong communication skills and a passion for doing great work. contract or permanent position: Permanent Expected duration and pay range: 85K - 105K DOE Availability of stock options or other incentive plans: Stock Options placement through recruiter, or directly with company? Recruiter W-2 vs. 1099 status: W2 any restrictions on 1099 status: Corporation: N/A physical location: 316 Occidental Avenue S, Seattle Wa telecommuting possible? No company's product or service: Advanced analytics for wireless devices Eric Crawford Technical Recruiter ecrawford at lgconsult.com LG Consulting www.lgconsult.com Direct: (206) 267-5638 Mobile: (425) 829-5486 "short searches, long careers" Check out our profile article in the Seattle Times! http://archives.seattletimes.nwsource.com/cgi-bin/texis.cgi/web/vortex/display?slug=btinterface27&date=20060327 From andrew at sweger.net Wed Feb 7 12:33:01 2007 From: andrew at sweger.net (Andrew Sweger) Date: Wed, 7 Feb 2007 12:33:01 -0800 (PST) Subject: SPUG: February is Web Design and Development Month at O'Reilly Message-ID: The following is from the O'Reilly folks: It's Web Design and Development Month here at O'Reilly and we just put together a special resource page dedicated to web development essentials including books, PDF Short Cuts, articles, and author events: http://www.oreilly.com/go/webdev Don't forget your members can receive 35% off any of these titles when they use discount code DSUG on our site. There's also free ground shipping in the US on orders over $29.95. my $comments = q{ Is this over the line for the SPUG list? I ususally refrain from passing along this kind of information if it's not brimming with Perl goodness. And this one certainly isn't. But I figured it was short and almost relavent. Let me know if this invokes a strong reaction. Thanks. -Andy }; From tim at consultix-inc.com Thu Feb 8 08:15:14 2007 From: tim at consultix-inc.com (Tim Maher) Date: Thu, 8 Feb 2007 08:15:14 -0800 Subject: SPUG: Talk on Presentation Skills Message-ID: <20070208161514.GA6309@jumpy.consultix-inc.com> ----- Forwarded message from Scott McDermott ----- X-Spam-Checker-Version: SpamAssassin 3.1.3 (2006-06-01) on jumpy.consultix-inc.com X-Spam-Level: X-Spam-Status: No, score=-2.3 required=4.5 tests=BAYES_00 autolearn=ham version=3.1.3 X-Original-To: tim at localhost Delivered-To: tim at localhost.consultix-inc.com X-Virus-Scanned: amavisd-new at sasag.org X-Original-To: members at lists.sasag.org Delivered-To: members at lists.sasag.org X-Virus-Scanned: amavisd-new at sasag.org Date: Thu, 8 Feb 2007 06:00:12 -0800 From: Scott McDermott To: members at lists.sasag.org X-Archive-No: Yes User-Agent: Mutt/1.5.13 (2006-08-11) Subject: [SASAG] Next meeting is TONIGHT @ 7PM X-BeenThere: members at lists.sasag.org X-Mailman-Version: 2.1.9 Precedence: list List-Id: Seattle Area System Administrators Guild Members List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: members-bounces at lists.sasag.org X-UIDL: ?RU"!ldR!!WZ$#!8!5"! The next Seattle Area System Administrator's Guild meeting is Thursday, February 8, 2007 at 7pm. There will be dinner sponsored by Silicon Mechanics. Check them out at http://www.siliconmechanics.com/ There will also be several CACert assurers present. The meeting will be at the Electrical Engineering building on the University of Washington Campus, aka EE1. Directions are linked to the EE Department's web site below. Parking is $5 after 4pm. --- Next meeting: Thursday February 8, 2007 at 7:00 PM Topic: Effectively Standing Out Presenter: Leeland Artra Location: EE1 Building (Electrical Engineering) Room 403 University of Washington Campus Directions: http://www.ee.washington.edu/contact.html Web Site: http://www.sasag.org/ ------------- Talk Abstract ------------- This time you didn't dodge fast enough and you've been asked to give a presentation in front of the staff or at a seminar or possibly in front of a much larger audience. Or maybe you give lots of talks, but you wonder about how you can make your talks more effective? This presentation is to present some ideas about effect presentations. The material is all about organizational, appearance and other surface. We will not cover the actual content of your presentations (because it is, of course, too spectacular and would distract from the how to do it bits). ------------------ Who Should Attend? ------------------ Honestly, everyone. This presentation will provide a refresher for the seasoned professionals who haven't really thought about why they are so good at presentations in years. It will provide a few nuggets of knowledge that will boost those who are comfortable giving presentations to be a tad better. It will provide enough information to feel like you tried to drink from the fire hose of how to present well for those who are just coming to the realization that they will present something sometime soon. ----------- Speaker Bio ----------- Leeland G. Artra is a senior computing researcher and programmer currently working full time for Nintendo of America in Redmond Washington. He has been working and teaching in the computer industry for over 20 years. In addition to having held positions like Systems Administrator, Network Administrator, Database Administrator, Janitor of All Things Electronic and Systems Researcher he has also personally designed and implemented a number of new computer technologies some of which not only got used but also won awards. He helped envision, design and implement the US Navy's Top Quality Leadership training courses for Systems Operators. He has received advanced training in creating training courses, writing tests and giving presentation. He has taught invited courses ranging from a couple of hours to week long classes for the US Navy, USENIX/SAGE, SANS, University of Washington, Boeing, SAIC, ACM and others. --- This is FREE and open to the public and a wonderful opportunity. The Seattle Area System Administrator's Guild (SASAG) is a local group for system & network administrators in Greater Seattle Area. We are a local chapter of both SAGE and LOPSA, but membership in either is not a requirement. We sponsor a regular monthly meeting open to the public on the second Thursday if each month at 7 p.m. Check out our Web site for more information: http://www.sasag.org/ ------ Thanks ------ Special thanks to Silicon Mechanics (www.siliconmechanics.com) for providing our server and to Blue Gecko (www.bluegecko.net) for giving it a home! _______________________________________________ Members mailing list Members at lists.sasag.org http://lists.sasag.org/mailman/listinfo/members ----- End forwarded message ----- From MichaelRWolf at att.net Thu Feb 8 18:38:38 2007 From: MichaelRWolf at att.net (Michael R. Wolf) Date: Thu, 8 Feb 2007 21:38:38 -0500 Subject: SPUG: not_quite_XML::Parser Message-ID: <004201c74bf3$679b36f0$e00110ac@mlaptop> I've got some almost_XML code. That is, it is not well-formed. Almost well formed, but "almost" is "not". It appears to be line-oriented enough that a simple-minded line processing could clean it up, but I don't want to rely on simple-minded if there's a TagSoup::Parser that I could use to clean it up. Suggestions? Michael P.S. Right now, these are the only non-conformant lines, but I want to have an architecture that will scale to future problems: 1. This needs to be self closing... 2. And this has a problem at the "=". http://xxxxxxxxx.xxx/x/xxxxx.xxx?xxxxxx=XXX&xxxx=999999&xxx= 9999999&xxx=9xXXxXXXxxxXxx9XXxXX/XXxxxXxXXxxXXXxX/x99xxXXXxXxxXXXXXxxxxxxxxX XXxxxxxXxxxXX-xxxx9xxXX9xXXXxXxxXxxx9Xx9xx9XXXx9xxxX9xxxxXXXxxxxxX9xX99x-XXX x9x9xxxX -- Michael R. Wolf All mammals learn by playing! MichaelRWolf at att.net From benb at speakeasy.net Thu Feb 8 19:18:04 2007 From: benb at speakeasy.net (BenRifkah Bergsten-Buret) Date: Thu, 08 Feb 2007 19:18:04 -0800 Subject: SPUG: not_quite_XML::Parser In-Reply-To: <004201c74bf3$679b36f0$e00110ac@mlaptop> References: <004201c74bf3$679b36f0$e00110ac@mlaptop> Message-ID: <45CBE7EC.8060102@speakeasy.net> Michael R. Wolf wrote: > I've got some almost_XML code. That is, it is not well-formed. Almost well > formed, but "almost" is "not". Take a look at XML::Liberal on CPAN http://search.cpan.org/dist/XML-Liberal/lib/XML/Liberal.pm It's alpha (v0.16 released 2006-08-29) and I haven't used it, but if it doesn't work the maintainer may have some ideas. -- Ben From offby1 at blarg.net Fri Feb 9 14:18:09 2007 From: offby1 at blarg.net (Eric Hanchrow) Date: Fri, 09 Feb 2007 14:18:09 -0800 Subject: SPUG: Who'd like to critique some Perl6? Message-ID: <874ppvht5q.fsf@offby1.atm01.sea.blarg.net> I'm verrrry sloowwwwwly trying to learn perl6, by porting a little program to it, and running it with Pugs. Would anyone care to look at it? It's less than 300 lines. I'm most interested in things I'm doing that are needlessly verbose, because there are handy perl6 idioms or features of which I'm ignorant. -- Garbage collection, introduced by Lisp in about 1960, is now widely considered to be a good thing. -- Paul Graham From twists at gmail.com Fri Feb 9 23:21:35 2007 From: twists at gmail.com (Joshua ben Jore) Date: Fri, 9 Feb 2007 23:21:35 -0800 Subject: SPUG: Who'd like to critique some Perl6? In-Reply-To: <874ppvht5q.fsf@offby1.atm01.sea.blarg.net> References: <874ppvht5q.fsf@offby1.atm01.sea.blarg.net> Message-ID: On 2/9/07, Eric Hanchrow wrote: > I'm verrrry sloowwwwwly trying to learn perl6, by porting a little > program to it, and running it with Pugs. Would anyone care to look at > it? It's less than 300 lines. I'm most interested in things I'm > doing that are needlessly verbose, because there are handy perl6 > idioms or features of which I'm ignorant. Yes please? Josh From twists at gmail.com Sat Feb 10 20:51:31 2007 From: twists at gmail.com (Joshua ben Jore) Date: Sat, 10 Feb 2007 20:51:31 -0800 Subject: SPUG: not_quite_XML::Parser In-Reply-To: <004201c74bf3$679b36f0$e00110ac@mlaptop> References: <004201c74bf3$679b36f0$e00110ac@mlaptop> Message-ID: On 2/8/07, Michael R. Wolf wrote: > I've got some almost_XML code. That is, it is not well-formed. Almost well > formed, but "almost" is "not". It appears to be line-oriented enough that a > simple-minded line processing could clean it up, but I don't want to rely on > simple-minded if there's a TagSoup::Parser that I could use to clean it up. > Suggestions? XML::LibXML has an "HTML" feature which lets it handle badly formed input. I've even used it to scrape web sites. Works neat. Josh From bill at celestial.com Sat Feb 10 21:14:18 2007 From: bill at celestial.com (Bill Campbell) Date: Sat, 10 Feb 2007 21:14:18 -0800 Subject: SPUG: not_quite_XML::Parser In-Reply-To: References: <004201c74bf3$679b36f0$e00110ac@mlaptop> Message-ID: <20070211051418.GA4796@ayn.mi.celestial.com> On Sat, Feb 10, 2007, Joshua ben Jore wrote: >On 2/8/07, Michael R. Wolf wrote: >> I've got some almost_XML code. That is, it is not well-formed. Almost well >> formed, but "almost" is "not". It appears to be line-oriented enough that a >> simple-minded line processing could clean it up, but I don't want to rely on >> simple-minded if there's a TagSoup::Parser that I could use to clean it up. >> Suggestions? > >XML::LibXML has an "HTML" feature which lets it handle badly formed >input. I've even used it to scrape web sites. Works neat. I often cheat and pipe HTML through the ``tidy'' program before parsing it. I've done some scripts that de-Microsoft HTML to get rid of metadata, font, and color stuff to produce clean HTML (they're in python though not perl :-). Bill -- INTERNET: bill at Celestial.COM Bill Campbell; Celestial Software, LLC URL: http://www.celestial.com/ PO Box 820; 6641 E. Mercer Way FAX: (206) 232-9186 Mercer Island, WA 98040-0820; (206) 236-1676 "If taxation without consent is robbery, the United States government has never had, has not now, and is never likely to have, a single honest dollar in its treasury." -- Lysander Spooner, Letter to Grover Cleveland 1886 From bill at celestial.com Sat Feb 10 21:14:18 2007 From: bill at celestial.com (Bill Campbell) Date: Sat, 10 Feb 2007 21:14:18 -0800 Subject: SPUG: not_quite_XML::Parser In-Reply-To: References: <004201c74bf3$679b36f0$e00110ac@mlaptop> Message-ID: <20070211051418.GA4796@ayn.mi.celestial.com> On Sat, Feb 10, 2007, Joshua ben Jore wrote: >On 2/8/07, Michael R. Wolf wrote: >> I've got some almost_XML code. That is, it is not well-formed. Almost well >> formed, but "almost" is "not". It appears to be line-oriented enough that a >> simple-minded line processing could clean it up, but I don't want to rely on >> simple-minded if there's a TagSoup::Parser that I could use to clean it up. >> Suggestions? > >XML::LibXML has an "HTML" feature which lets it handle badly formed >input. I've even used it to scrape web sites. Works neat. I often cheat and pipe HTML through the ``tidy'' program before parsing it. I've done some scripts that de-Microsoft HTML to get rid of metadata, font, and color stuff to produce clean HTML (they're in python though not perl :-). Bill -- INTERNET: bill at Celestial.COM Bill Campbell; Celestial Software, LLC URL: http://www.celestial.com/ PO Box 820; 6641 E. Mercer Way FAX: (206) 232-9186 Mercer Island, WA 98040-0820; (206) 236-1676 "If taxation without consent is robbery, the United States government has never had, has not now, and is never likely to have, a single honest dollar in its treasury." -- Lysander Spooner, Letter to Grover Cleveland 1886 From ppcook at gmail.com Sun Feb 11 02:35:31 2007 From: ppcook at gmail.com (Paul Cook) Date: Sun, 11 Feb 2007 02:35:31 -0800 Subject: SPUG: Perl books Message-ID: I discovered I had a couple of spares of these titles, and put them on ebay: Perl in a Nutshell http://tinyurl.com/yo3krt Learning Perl Objects, References & Modules http://tinyurl.com/24ldvy Free shipping on each. The last title has no reserve. Perl in a Nutshell has a reserve of $5.50. Both are current editions. -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/spug-list/attachments/20070211/c7a5b84f/attachment.html From tim at consultix-inc.com Tue Feb 13 10:48:11 2007 From: tim at consultix-inc.com (Tim Maher) Date: Tue, 13 Feb 2007 10:48:11 -0800 Subject: SPUG: Switch's "case" matching doesn't set $1 ! Message-ID: <20070213184811.GA25496@jumpy.consultix-inc.com> The following program doesn't work as expected. As usual, that either means that the expectations are wrong, or the code is wrong. A perusal of the module's documentation and code didn't reveal any obvious explanation. What's more, the docs characterize the "case /re/" syntax as "match if $s =~ /$c/", suggesting that any regex valid in a real matching operator should be usable. So can somebody explain this apparently anomalous behavior? TIA, -Tim P.S. I'm teaching a "Perl Fundamentals" class from 2/28-3/2. **************************************************************** #! /usr/bin/perl -wl use Switch; 'unset' =~ /(.*)/; # prime $1 to contain "unset" for ('chocolate', 'vanilla', 'swirl') { switch($_) { case /(vanilla|chocolate)/ { # () sets $1 ?? print "The flavor of the moment is: $1"; # what's $1? } else { print "'$_' is not a real flavor!"; } } } $ perl script The flavor of the moment is: unset The flavor of the moment is: unset 'swirl' is not a real flavor! *-------------------------------------------------------------------* | Tim Maher, PhD (206) 781-UNIX http://www.consultix-inc.com | | tim at ( Consultix-Inc, TeachMePerl, or TeachMeUnix ) dot Com | | Classes: 2/28: Basic Perl; 3/12: Basic UNIX/Linux; 3/16: Min Perl | *-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-* | * "Minimal Perl" book rates 4.8 out of 5 stars at Amazon.com! * | | > Download chapters, read reviews, and order at MinimalPerl.com < | *-------------------------------------------------------------------* From scratchcomputing at gmail.com Tue Feb 13 11:13:13 2007 From: scratchcomputing at gmail.com (Eric Wilhelm) Date: Tue, 13 Feb 2007 11:13:13 -0800 Subject: SPUG: Switch's "case" matching doesn't set $1 ! In-Reply-To: <20070213184811.GA25496@jumpy.consultix-inc.com> References: <20070213184811.GA25496@jumpy.consultix-inc.com> Message-ID: <200702131113.13544.ewilhelm@cpan.org> # from Tim Maher # on Tuesday 13 February 2007 10:48 am: >A perusal of the module's documentation and code didn't reveal any >obvious explanation. What's more, the docs characterize the >"case /re/" syntax as "match if $s =~ /$c/", suggesting that any >regex valid in a real matching operator should be usable. Try dumping the filtered source. perl -MO=Deparse script There, you'll see that it is indeed the "if/elsif/elsif/else" lexical structure that you might expect from the input structure, but rather than doing "$_ =~ m/.../" in the if(), it ships the regexp off to the case() function. Ah, the logic of "what sort of match is this?" is in case(), probably to defer it until runtime. Had it been implemented as a DSL of prototyped functions (sub case ($&) {...}, then the capture might work because your code would get executed within scope of the match. --Eric -- Like a lot of people, I was mathematically abused as a child. --Paul Graham --------------------------------------------------- http://scratchcomputing.com --------------------------------------------------- From tim at consultix-inc.com Tue Feb 13 11:56:40 2007 From: tim at consultix-inc.com (Tim Maher) Date: Tue, 13 Feb 2007 11:56:40 -0800 Subject: SPUG: Switch's "case" matching doesn't set $1 ! In-Reply-To: <200702131113.13544.ewilhelm@cpan.org> References: <20070213184811.GA25496@jumpy.consultix-inc.com> <200702131113.13544.ewilhelm@cpan.org> Message-ID: <20070213195640.GA25894@jumpy.consultix-inc.com> On Tue, Feb 13, 2007 at 11:13:13AM -0800, Eric Wilhelm wrote: > # from Tim Maher > # on Tuesday 13 February 2007 10:48 am: > > > What's more, the docs characterize the > >"case /re/" syntax as "match if $s =~ /$c/", suggesting that any > >regex valid in a real matching operator should be usable. > > Try dumping the filtered source. > > perl -MO=Deparse script > > There, you'll see that it is indeed the "if/elsif/elsif/else" lexical > structure that you might expect from the input structure, but rather > than doing "$_ =~ m/.../" in the if(), it ships the regexp off to the > case() function ... which, AFAICT (see below), then does the "$_ =~ m/.../" > Had it been implemented as a DSL of prototyped functions (sub case ($&) > {...}, then the capture might work because your code would get executed > within scope of the match. > > --Eric To produce the effect I'm expecting, it's not necessary for the match to be executed within the scope of the user's code--just for the match to be left in $1--which, as part of the package "main", is always in scope. The relevant chunk of code in the module (switching on scalar, doing regexp match), seems to be this (>>) one: elsif ($s_ref eq "") # STRING SCALAR { $::_S_W_I_T_C_H = sub { my $c_val = $_[0]; my $c_ref = ref $c_val; return $s_val eq $c_val if $c_ref eq ""; return in([$s_val],$c_val) if $c_ref eq 'ARRAY'; return $c_val->($s_val) if $c_ref eq 'CODE'; return $c_val->call($s_val) if $c_ref eq 'Switch'; >>>>>>>>>> return scalar $s_val=~/$c_val/ >>>>>>>>>> if $c_ref eq 'Regexp'; return scalar $c_val->{$s_val} if $c_ref eq 'HASH'; return; }; } This program demonstrates that () symbols can be recognized when delivered via variables: perl -wle '$re=".(.)."; "abc" =~ /$re/ and print $1' # prints: b By the same token (pun intended), I'd expect the following code to produce a usable $1--unless the module localizes $1, which would prevent that result, but it doesn't seem to do that (Damian !~ /dumb/) ($1 is part of the package "main", and therefore always in scope.) for ('chocolate', 'vanilla', 'swirl') { switch($_) { case /(vanilla|chocolate)/ { # () sets $1 ?? print "The flavor of the moment is: $1"; # what's $1? } else { print "'$_' is not a real flavor!"; } } } $ perl script The flavor of the moment is: unset The flavor of the moment is: unset 'swirl' is not a real flavor! *-------------------------------------------------------------------* | Tim Maher, PhD (206) 781-UNIX http://www.consultix-inc.com | | tim at ( Consultix-Inc, TeachMePerl, or TeachMeUnix ) dot Com | | Classes: 2/28: Basic Perl; 3/12: Basic UNIX/Linux; 3/16: Min Perl | *-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-* | * "Minimal Perl" book rates 4.8 out of 5 stars at Amazon.com! * | | > Download chapters, read reviews, and order at MinimalPerl.com < | *-------------------------------------------------------------------* From tim at consultix-inc.com Tue Feb 13 14:04:47 2007 From: tim at consultix-inc.com (Tim Maher) Date: Tue, 13 Feb 2007 14:04:47 -0800 Subject: SPUG: Switch's "case" matching doesn't set $1 ! In-Reply-To: <1882.63.226.247.186.1171402402.squirrel@63.226.247.186> References: <20070213184811.GA25496@jumpy.consultix-inc.com> <200702131113.13544.ewilhelm@cpan.org> <20070213195640.GA25894@jumpy.consultix-inc.com> <1882.63.226.247.186.1171402402.squirrel@63.226.247.186> Message-ID: <20070213220447.GA27217@jumpy.consultix-inc.com> On Tue, Feb 13, 2007 at 01:33:22PM -0800, Yitzchak Scott-Thoennes wrote: > Tim Maher wrote: > >> structure that you might expect from the input structure, but rather > >> than doing "$_ =~ m/.../" in the if(), it ships the regexp off to the > >> case() function > > > > ... which, AFAICT (see below), then does the "$_ =~ m/.../" > > but in a different scope, and $1 is automatically dynamically scoped. Aargh! I've been spending a lot of time working on systems with "classic" Perl versions recently, so I forgot that we have auto-local scoping of special variables now--which is a mixed blessing, with respect to backwards compatability of legacy code. But I've been waiting for the day when I could remove all the local $/; # defend against module's trashing lines preceding my File::Find::find() calls! 8-} Yitzchak, can you tell us when dynamic scoping of special vars became automatic, and possibly point us to the relevant Changes file? > Please don't use Switch in real code... Sounds like sage advice! TIA, -Tim *-------------------------------------------------------------------* | Tim Maher, PhD (206) 781-UNIX http://www.consultix-inc.com | | tim at ( Consultix-Inc, TeachMePerl, or TeachMeUnix ) dot Com | | Classes: 2/28: Basic Perl; 3/12: Basic UNIX/Linux; 3/16: Min Perl | *-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-* | * "Minimal Perl" book rates 4.8 out of 5 stars at Amazon.com! * | | > Download chapters, read reviews, and order at MinimalPerl.com < | *-------------------------------------------------------------------* From sthoenna at efn.org Tue Feb 13 14:43:16 2007 From: sthoenna at efn.org (Yitzchak Scott-Thoennes) Date: Tue, 13 Feb 2007 14:43:16 -0800 (PST) Subject: SPUG: Switch's "case" matching doesn't set $1 ! In-Reply-To: <20070213220447.GA27217@jumpy.consultix-inc.com> References: <20070213184811.GA25496@jumpy.consultix-inc.com> <200702131113.13544.ewilhelm@cpan.org> <20070213195640.GA25894@jumpy.consultix-inc.com> <1882.63.226.247.186.1171402402.squirrel@63.226.247.186> <20070213220447.GA27217@jumpy.consultix-inc.com> Message-ID: <2289.63.226.247.186.1171406596.squirrel@63.226.247.186> Tim Maher wrote: > On Tue, Feb 13, 2007 at 01:33:22PM -0800, Yitzchak Scott-Thoennes wrote: >> Tim Maher wrote: >> >> structure that you might expect from the input structure, but rather >> >> than doing "$_ =~ m/.../" in the if(), it ships the regexp off to the >> >> case() function >> > >> > ... which, AFAICT (see below), then does the "$_ =~ m/.../" >> >> but in a different scope, and $1 is automatically dynamically scoped. > > Aargh! I've been spending a lot of time working on systems with "classic" > Perl versions recently, so I forgot that we have auto-local scoping of > special variables now--which is a mixed blessing, with respect to > backwards compatability of legacy code. > > But I've been waiting for the day when I could remove all the > local $/; # defend against module's trashing > lines preceding my > File::Find::find() > calls! 8-} > > Yitzchak, can you tell us when dynamic scoping of special vars > became automatic, and possibly point us to the relevant Changes file? Um, it's not all special variables, just the regex ones. A successful match basically does the equivalent of local() on them. It's been than way as long as I remember... Tye just verified for me that it's the same on perl4, and he remembers perl3 being the same also. >> Please don't use Switch in real code... > Sounds like sage advice! But look forward to "given" in 5.10. From andrew at sweger.net Tue Feb 13 14:43:19 2007 From: andrew at sweger.net (Andrew Sweger) Date: Tue, 13 Feb 2007 14:43:19 -0800 (PST) Subject: SPUG: Pain illustrated Message-ID: You might not want to watch this video of someone trying to use voice recognition in Microsoft Windows Vista to write a Perl program. http://www.youtube.com/watch?v=KyLqUf4cdwc If only he had used warnings and strict... -- Andrew B. Sweger -- The great thing about multitasking is that several things can go wrong at once. From kenslinux at shaw.ca Tue Feb 13 15:45:20 2007 From: kenslinux at shaw.ca (Ken Clarke) Date: Tue, 13 Feb 2007 15:45:20 -0800 Subject: SPUG: Pain illustrated References: Message-ID: <00fb01c74fc9$05f74360$1000a8c0@kens> Oh man, that's hilarious. He could have accomplished more with a chisel on stone tablets LOL >> Ken Clarke >> Contract Web Programmer / E-commerce Technologist >> www.PerlProgrammer.net ----- Original Message ----- From: "Andrew Sweger" To: "SPUG Members" Sent: Tuesday, February 13, 2007 2:43 PM Subject: SPUG: Pain illustrated > You might not want to watch this video of someone trying to use voice > recognition in Microsoft Windows Vista to write a Perl program. > > http://www.youtube.com/watch?v=KyLqUf4cdwc > > If only he had used warnings and strict... From sthoenna at efn.org Tue Feb 13 13:33:22 2007 From: sthoenna at efn.org (Yitzchak Scott-Thoennes) Date: Tue, 13 Feb 2007 13:33:22 -0800 (PST) Subject: SPUG: Switch's "case" matching doesn't set $1 ! In-Reply-To: <20070213195640.GA25894@jumpy.consultix-inc.com> References: <20070213184811.GA25496@jumpy.consultix-inc.com> <200702131113.13544.ewilhelm@cpan.org> <20070213195640.GA25894@jumpy.consultix-inc.com> Message-ID: <1882.63.226.247.186.1171402402.squirrel@63.226.247.186> Tim Maher wrote: > On Tue, Feb 13, 2007 at 11:13:13AM -0800, Eric Wilhelm wrote: >> # from Tim Maher >> # on Tuesday 13 February 2007 10:48 am: >> >> > What's more, the docs characterize the >> >"case /re/" syntax as "match if $s =~ /$c/", suggesting that any >> >regex valid in a real matching operator should be usable. >> >> Try dumping the filtered source. >> >> perl -MO=Deparse script >> >> There, you'll see that it is indeed the "if/elsif/elsif/else" lexical >> structure that you might expect from the input structure, but rather >> than doing "$_ =~ m/.../" in the if(), it ships the regexp off to the >> case() function > > ... which, AFAICT (see below), then does the "$_ =~ m/.../" but in a different scope, and $1 is automatically dynamically scoped. The scope in which the match occurs is left before your attempt to access $1. Please don't use Switch in real code... From aaron at activox.com Tue Feb 13 17:22:49 2007 From: aaron at activox.com (aaron salo) Date: Tue, 13 Feb 2007 17:22:49 -0800 Subject: SPUG: Pain illustrated In-Reply-To: <00fb01c74fc9$05f74360$1000a8c0@kens> References: <00fb01c74fc9$05f74360$1000a8c0@kens> Message-ID: <45D26469.3060808@activox.com> The narrator's frustration notwithstanding, I was shocked to see that it worked so well. That instance had obviously not been trained to his speaking voice, even so I thought it did a surprisingly robust job. And in the course of thrashing around trying to write code in notepad, the narrator actually demonstrated some pretty rich functionality. I was prepared to mock it but ended up being impressed. ~!a Ken Clarke wrote: > Oh man, that's hilarious. He could have accomplished more with a chisel on > stone tablets LOL > From AEH at akc.org Tue Feb 13 17:28:13 2007 From: AEH at akc.org (Adrian Hands) Date: Tue, 13 Feb 2007 20:28:13 -0500 Subject: SPUG: Pain illustrated Message-ID: <862E491E88FFFE44846C445B4881DD7C7E16AC@PUG.ad.akc.org> Looked about like "dragon naturallySpeaking" > -----Original Message----- > From: spug-list-bounces+aeh=akc.org at pm.org [mailto:spug-list- > bounces+aeh=akc.org at pm.org] On Behalf Of aaron salo > Sent: Tuesday, February 13, 2007 8:23 PM > To: SPUG Members > Subject: Re: SPUG: Pain illustrated > > The narrator's frustration notwithstanding, I was shocked to see that it > worked so well. That instance had obviously not been trained to his > speaking voice, even so I thought it did a surprisingly robust job. > > And in the course of thrashing around trying to write code in notepad, > the narrator actually demonstrated some pretty rich functionality. I was > prepared to mock it but ended up being impressed. > > ~!a > > Ken Clarke wrote: > > Oh man, that's hilarious. He could have accomplished more with a chisel > on > > stone tablets LOL > > > _____________________________________________________________ > Seattle Perl Users Group Mailing List > POST TO: spug-list at pm.org > SUBSCRIPTION: http://mail.pm.org/mailman/listinfo/spug-list > MEETINGS: 3rd Tuesdays > WEB PAGE: http://seattleperl.org/ From scratchcomputing at gmail.com Tue Feb 13 13:50:44 2007 From: scratchcomputing at gmail.com (Eric Wilhelm) Date: Tue, 13 Feb 2007 13:50:44 -0800 Subject: SPUG: Switch's "case" matching doesn't set $1 ! In-Reply-To: <20070213195640.GA25894@jumpy.consultix-inc.com> References: <20070213184811.GA25496@jumpy.consultix-inc.com> <200702131113.13544.ewilhelm@cpan.org> <20070213195640.GA25894@jumpy.consultix-inc.com> Message-ID: <200702131350.45029.ewilhelm@cpan.org> # from Tim Maher # on Tuesday 13 February 2007 11:56 am: >On Tue, Feb 13, 2007 at 11:13:13AM -0800, Eric Wilhelm wrote: >> There, you'll see that it is indeed the "if/elsif/elsif/else" >> lexical structure that you might expect from the input structure, >> but rather than doing "$_ =~ m/.../" in the if(), it ships the >> regexp off to the case() function > >... which, AFAICT (see below), then does the "$_ =~ m/.../" > >> Had it been implemented as a DSL of prototyped functions (sub case >> ($&) {...}, then the capture might work because your code would get >> executed within scope of the match. On further reflection, I realize that prototype wouldn't work, and source filtering is probably still required to get 'continue' and such supported. However, it still needs to do something like if(type_check($input, 'Regexp') and $_ =~ m/$input/) { $subref->(); } So, you would source filter to generate something like: switch_impl($_, # these array refs contain the original code, but with some munging # of next, last, continue [/(vanilla|chocolate)/, sub { # () sets $1 ?? print "The flavor of the moment is: $1"; # what's $1? }], sub { print "'$_' is not a real flavor!"; }, ); switch_impl() would then pass the $check and $subref from each pair to case_impl() or something. Some shared variables would probably be needed for 'continue' and such. Fun. But, is the Perl 6 given() supposed to give you the match variables in the when() block? If so, you should file a patch in rt against Switch.pm. >To produce the effect I'm expecting, it's not necessary for the >match to be executed within the scope of the user's code--just >for the match to be left in $1--which, as part of the package >"main", is always in scope. from perlre: "The numbered match variables ($1, $2, $3, etc.) and the related punctuation set ($+, $&, $`, $', and $^N) are all dynamically scoped until the end of the enclosing block or until the next successful match, whichever comes first." >This program demonstrates that () symbols can be recognized when >delivered via variables: > perl -wle '$re=".(.)."; "abc" =~ /$re/ and print $1' # prints: b $ perl -Mstrict -we 'my $v = "abc"; sub matchit {return($_[0] =~ m/$_[1]/)}; warn matchit($v, qr/(abc)/); warn "see \$1? ", defined($1) ? $1 : "nope"' abc at -e line 1. see $1? nope at -e line 1. --Eric -- "But as to modern architecture, let us drop it and let us take modernistic out and shoot it at sunrise." --F.L. Wright --------------------------------------------------- http://scratchcomputing.com --------------------------------------------------- From tim at consultix-inc.com Tue Feb 13 18:45:20 2007 From: tim at consultix-inc.com (Tim Maher) Date: Tue, 13 Feb 2007 18:45:20 -0800 Subject: SPUG: Switch's "case" matching doesn't set $1 ! In-Reply-To: <200702131350.45029.ewilhelm@cpan.org> References: <20070213184811.GA25496@jumpy.consultix-inc.com> <200702131113.13544.ewilhelm@cpan.org> <20070213195640.GA25894@jumpy.consultix-inc.com> <200702131350.45029.ewilhelm@cpan.org> Message-ID: <20070214024520.GA28755@jumpy.consultix-inc.com> On Tue, Feb 13, 2007 at 01:50:44PM -0800, Eric Wilhelm wrote: > # from Tim Maher > # on Tuesday 13 February 2007 11:56 am: > > >To produce the effect I'm expecting, it's not necessary for the > >match to be executed within the scope of the user's code--just > >for the match to be left in $1--which, as part of the package > >"main", is always in scope. > > from perlre: "The numbered match variables ($1, $2, $3, etc.) and the > related punctuation set ($+, $&, $`, $', and $^N) are all dynamically > scoped until the end of the enclosing block or until the next > successful match, whichever comes first." Right you are; I had forgotten about how that works, in part because I hadn't done any programming that would have reminded me of it recently. That's why I write such detailed notes for the student manuals I use in my training courses! 8-} -Tim *-------------------------------------------------------------------* | Tim Maher, PhD (206) 781-UNIX http://www.consultix-inc.com | | tim at ( Consultix-Inc, TeachMePerl, or TeachMeUnix ) dot Com | | Classes: 2/28: Basic Perl; 3/12: Basic UNIX/Linux; 3/16: Min Perl | *-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-* | * "Minimal Perl" book rates 4.8 out of 5 stars at Amazon.com! * | | > Download chapters, read reviews, and order at MinimalPerl.com < | *-------------------------------------------------------------------* From MichaelRWolf at att.net Wed Feb 14 05:12:53 2007 From: MichaelRWolf at att.net (Michael R. Wolf) Date: Wed, 14 Feb 2007 08:12:53 -0500 Subject: SPUG: not_quite_XML::Parser In-Reply-To: References: <004201c74bf3$679b36f0$e00110ac@mlaptop> Message-ID: <000e01c75039$d62cb2c0$153a2645@mlaptop> Has anyone gotten XML::LibXML to work in an XP or cygwin environment? Any tricks? -- Michael R. Wolf All mammals learn by playing! MichaelRWolf at att.net > -----Original Message----- > From: spug-list-bounces+michaelrwolf=att.net at pm.org [mailto:spug-list- > bounces+michaelrwolf=att.net at pm.org] On Behalf Of Joshua ben Jore > Sent: Saturday, February 10, 2007 11:52 PM > To: Michael R. Wolf > Cc: spug-list at mail.pm.org > Subject: Re: SPUG: not_quite_XML::Parser > > On 2/8/07, Michael R. Wolf wrote: > > I've got some almost_XML code. That is, it is not well-formed. Almost > well > > formed, but "almost" is "not". It appears to be line-oriented enough > that a > > simple-minded line processing could clean it up, but I don't want to > rely on > > simple-minded if there's a TagSoup::Parser that I could use to clean it > up. > > Suggestions? > > XML::LibXML has an "HTML" feature which lets it handle badly formed > input. I've even used it to scrape web sites. Works neat. > > Josh > _____________________________________________________________ > Seattle Perl Users Group Mailing List > POST TO: spug-list at pm.org > SUBSCRIPTION: http://mail.pm.org/mailman/listinfo/spug-list > MEETINGS: 3rd Tuesdays > WEB PAGE: http://seattleperl.org/ From MichaelRWolf at att.net Wed Feb 14 05:13:01 2007 From: MichaelRWolf at att.net (Michael R. Wolf) Date: Wed, 14 Feb 2007 08:13:01 -0500 Subject: SPUG: Switch's "case" matching doesn't set $1 ! In-Reply-To: <20070213184811.GA25496@jumpy.consultix-inc.com> References: <20070213184811.GA25496@jumpy.consultix-inc.com> Message-ID: <000f01c75039$daff4970$153a2645@mlaptop> When I found this out, I freaked, too! I guess I shouldn't have been so surprised. While at the Chicago hackathon in October, I was having a side conversation with someone trying to decide whether to 'use Switch' or not, so I interrupted the room to take a 10 second instant-poll. The consensus was "no"! I was surprised by the answer, but listened to the collected wisdom. But then I forgot, and bumped into the bug a few months later. (BTW: this "instant polling" was an interesting benefit of being in a room with lots of experienced folks at the hackathon. There's nothing like instant feedback. XP - extreme programming -> extreme feedback velocity. And it happened *ALL OVER* the place at the hackathon. During the Saturday evening "status report", quite a few folks commented on how fast conversations could take place face-to-face, and across-the-room when so many of the concerned folks shared space.) Here's the bug I submitted a few weeks ago. There's been no action on it since I submitted it. I guess the anticipated fix-date is Perl6. http://rt.cpan.org/Public/Bug/Display.html?id=24027 Here's the code frag I submitted with the bug. Feel free to add yours. #! /usr/bin/perl use warnings; use Switch; $data = 'catch 22'; switch ($data) { case qr/catch (\d+)/ { print "I know my gross situation: $data\n"; print "My parsed situation is unknown: $1\n"; warn 'Matched, but not captured' unless defined $1; } else { warn "$data is unrecognized\n"; } } -- Michael R. Wolf All mammals learn by playing! MichaelRWolf at att.net From MichaelRWolf at att.net Wed Feb 14 05:28:26 2007 From: MichaelRWolf at att.net (Michael R. Wolf) Date: Wed, 14 Feb 2007 08:28:26 -0500 Subject: SPUG: not_quite_XML::Parser In-Reply-To: <000e01c75039$d62cb2c0$153a2645@mlaptop> References: <004201c74bf3$679b36f0$e00110ac@mlaptop> <000e01c75039$d62cb2c0$153a2645@mlaptop> Message-ID: <001601c7503c$029138c0$153a2645@mlaptop> I finally got XML::LibXML to work on cygwin. Originally, I only had the libxml2 library installed. Once I installed the development kit and documentation that went along with it, the XML::LibXML Perl module installed without hitch. -- Michael R. Wolf All mammals learn by playing! MichaelRWolf at att.net > -----Original Message----- > From: spug-list-bounces+michaelrwolf=att.net at pm.org [mailto:spug-list- > bounces+michaelrwolf=att.net at pm.org] On Behalf Of Michael R. Wolf > Sent: Wednesday, February 14, 2007 8:13 AM > To: spug-list at pm.org > Subject: Re: SPUG: not_quite_XML::Parser > > Has anyone gotten XML::LibXML to work in an XP or cygwin environment? Any > tricks? > > -- > Michael R. Wolf > All mammals learn by playing! > MichaelRWolf at att.net > > > -----Original Message----- > > From: spug-list-bounces+michaelrwolf=att.net at pm.org [mailto:spug-list- > > bounces+michaelrwolf=att.net at pm.org] On Behalf Of Joshua ben Jore > > Sent: Saturday, February 10, 2007 11:52 PM > > To: Michael R. Wolf > > Cc: spug-list at mail.pm.org > > Subject: Re: SPUG: not_quite_XML::Parser > > > > On 2/8/07, Michael R. Wolf wrote: > > > I've got some almost_XML code. That is, it is not well-formed. > Almost > > well > > > formed, but "almost" is "not". It appears to be line-oriented enough > > that a > > > simple-minded line processing could clean it up, but I don't want to > > rely on > > > simple-minded if there's a TagSoup::Parser that I could use to clean > it > > up. > > > Suggestions? > > > > XML::LibXML has an "HTML" feature which lets it handle badly formed > > input. I've even used it to scrape web sites. Works neat. > > > > Josh > > _____________________________________________________________ > > Seattle Perl Users Group Mailing List > > POST TO: spug-list at pm.org > > SUBSCRIPTION: http://mail.pm.org/mailman/listinfo/spug-list > > MEETINGS: 3rd Tuesdays > > WEB PAGE: http://seattleperl.org/ > > _____________________________________________________________ > Seattle Perl Users Group Mailing List > POST TO: spug-list at pm.org > SUBSCRIPTION: http://mail.pm.org/mailman/listinfo/spug-list > MEETINGS: 3rd Tuesdays > WEB PAGE: http://seattleperl.org/ From sthoenna at efn.org Wed Feb 14 05:34:19 2007 From: sthoenna at efn.org (Yitzchak Scott-Thoennes) Date: Wed, 14 Feb 2007 05:34:19 -0800 (PST) Subject: SPUG: not_quite_XML::Parser In-Reply-To: <001601c7503c$029138c0$153a2645@mlaptop> References: <004201c74bf3$679b36f0$e00110ac@mlaptop> <000e01c75039$d62cb2c0$153a2645@mlaptop> <001601c7503c$029138c0$153a2645@mlaptop> Message-ID: <2320.63.226.247.186.1171460059.squirrel@63.226.247.186> Michael R. Wolf wrote: > I finally got XML::LibXML to work on cygwin. Originally, I only had the > libxml2 library installed. Once I installed the development kit and > documentation that went along with it, the XML::LibXML Perl module > installed without hitch. So there were header files or something in the development kit that were needed? Is it complicated enough to build that it might be a good idea to have a pre-built cygwin package for it? From veritosproject at gmail.com Wed Feb 14 08:09:53 2007 From: veritosproject at gmail.com (veritosproject at gmail.com) Date: Wed, 14 Feb 2007 08:09:53 -0800 Subject: SPUG: Pain illustrated In-Reply-To: <45D26469.3060808@activox.com> References: <00fb01c74fc9$05f74360$1000a8c0@kens> <45D26469.3060808@activox.com> Message-ID: <6dcbe5980702140809ldf1415eode2885a00cb54ab0@mail.gmail.com> read turn eff the fined wont a ray semicolon On 2/13/07, aaron salo wrote: > The narrator's frustration notwithstanding, I was shocked to see that it > worked so well. That instance had obviously not been trained to his > speaking voice, even so I thought it did a surprisingly robust job. > > And in the course of thrashing around trying to write code in notepad, > the narrator actually demonstrated some pretty rich functionality. I was > prepared to mock it but ended up being impressed. > > ~!a > > Ken Clarke wrote: > > Oh man, that's hilarious. He could have accomplished more with a chisel on > > stone tablets LOL > > > _____________________________________________________________ > Seattle Perl Users Group Mailing List > POST TO: spug-list at pm.org > SUBSCRIPTION: http://mail.pm.org/mailman/listinfo/spug-list > MEETINGS: 3rd Tuesdays > WEB PAGE: http://seattleperl.org/ > From tim at consultix-inc.com Wed Feb 14 10:15:28 2007 From: tim at consultix-inc.com (Tim Maher) Date: Wed, 14 Feb 2007 10:15:28 -0800 Subject: SPUG: Switch's "case" matching doesn't set $1 ! In-Reply-To: <000f01c75039$daff4970$153a2645@mlaptop> References: <20070213184811.GA25496@jumpy.consultix-inc.com> <000f01c75039$daff4970$153a2645@mlaptop> Message-ID: <20070214181528.GA1096@jumpy.consultix-inc.com> On Wed, Feb 14, 2007 at 08:13:01AM -0500, Michael R. Wolf wrote: > > Here's the bug I submitted a few weeks ago. There's been no action on it > since I submitted it. I guess the anticipated fix-date is Perl6. > > http://rt.cpan.org/Public/Bug/Display.html?id=24027 > > Here's the code frag I submitted with the bug. Feel free to add yours. FWIW, I transparently handle the same scoping issues with Shell::POSIX::Select and avoid this kind of programmer-startling result. All it takes is to use source-code filtering to insert the desired assignment statement into the user's program, to ensure that $1 (for example) will wind up having the value expected. -Tim > #! /usr/bin/perl > > use warnings; > use Switch; > > $data = 'catch 22'; > > switch ($data) { > case qr/catch (\d+)/ { > print "I know my gross situation: $data\n"; > print "My parsed situation is unknown: $1\n"; > warn 'Matched, but not captured' unless defined $1; > } > else { > warn "$data is unrecognized\n"; > } > } > > > -- > Michael R. Wolf > All mammals learn by playing! > MichaelRWolf at att.net *-------------------------------------------------------------------* | Tim Maher, PhD (206) 781-UNIX http://www.consultix-inc.com | | tim at ( Consultix-Inc, TeachMePerl, or TeachMeUnix ) dot Com | | Classes: 2/28: Basic Perl; 3/12: Basic UNIX/Linux; 3/16: Min Perl | *-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-* | * "Minimal Perl" book rates 4.8 out of 5 stars at Amazon.com! * | | > Download chapters, read reviews, and order at MinimalPerl.com < | *-------------------------------------------------------------------* From cmeyer at helvella.org Wed Feb 14 11:37:43 2007 From: cmeyer at helvella.org (Colin Meyer) Date: Wed, 14 Feb 2007 11:37:43 -0800 Subject: SPUG: Meeting Announcement -- 20 February 2007 Message-ID: <20070214193743.GA5531@funpox.helvella.org> February 2007 Seattle Perl Users Group (SPUG) Meeting ==================================================== Topic: Hacking Session - SPUG Meeting Announcement Automation Meeting Date: Tuesday, 20 February 2007 Meeting Time: 6:30 - 8:30 p.m. Location: Whitepages.com offices, downtown Seattle Cost: Admission is free and open to the public Info: http://seattleperl.org/ ==================================================== Please join us Tuesday evening on the 20 February 2007 at the regular monthly meeting of the Seattle Perl Users Group. This month will be a hacking session (for reals this time!). The goal is to create a few simple tools to automate the SPUG meeting announcements (e.g. sending a message to the list and updating the webpage). Thank you to our hosts at Whitepages.com for giving us a great place to hold our meetings and presentations, to the SPUG-Workers list for making speaker arrangements, to all the SPUG members that show up at meetings or participate on the list to make the group worthwhile in the first place, and all the JAPHs out there for just being. Meeting Location ================ Whitepages.com is located on the 16th floor of the Rainier Square Tower (1301 5th Avenue, Seattle) which is across from the 5th Avenue Theater. See the directions[1] for a quick primer on how to reach us from various locations across Puget Sound. There are plenty of locations to park in the area, including on the street. If you're looking for off-street parking, you can park in the Rainier Square garage which has an entrance on Union St. After 6PM, the building management restricts access to most floors. Our host is trying to take care of this, but if unsuccessful, they will station someone on the 1st floor near the elevator bank and 5th Avenue entrance to let people in. Worst case scenario, give the host a call on his cell phone[2] and he'll run down to let you in. Our hosts are providing a generous assortment of free sodas, fruit drinks, teas, and coffee, and also have some snacks. You definitely won't dehydrate here. We look forward to seeing you! [1] - http://www.whitepagesinc.com/locations [2] - 206 354 7789 From brianwisti at yahoo.com Wed Feb 14 14:16:53 2007 From: brianwisti at yahoo.com (Brian Wisti) Date: Wed, 14 Feb 2007 14:16:53 -0800 (PST) Subject: SPUG: Pain illustrated In-Reply-To: Message-ID: <96317.25486.qm@web53614.mail.yahoo.com> Silly such-and-such. He should have used an indirect filehandle. Kind Regards, Brian Wisti http://coolnamehere.com/ --- Andrew Sweger wrote: > You might not want to watch this video of someone trying to use voice > recognition in Microsoft Windows Vista to write a Perl program. > > http://www.youtube.com/watch?v=KyLqUf4cdwc > > If only he had used warnings and strict... > > -- > Andrew B. Sweger -- The great thing about multitasking is that > several > things can go wrong at once. > > _____________________________________________________________ > Seattle Perl Users Group Mailing List > POST TO: spug-list at pm.org > SUBSCRIPTION: http://mail.pm.org/mailman/listinfo/spug-list > MEETINGS: 3rd Tuesdays > WEB PAGE: http://seattleperl.org/ > From jarich at perltraining.com.au Wed Feb 14 20:53:12 2007 From: jarich at perltraining.com.au (Jacinta Richardson) Date: Thu, 15 Feb 2007 15:53:12 +1100 Subject: SPUG: Switch's "case" matching doesn't set $1 ! In-Reply-To: <000f01c75039$daff4970$153a2645@mlaptop> References: <20070213184811.GA25496@jumpy.consultix-inc.com> <000f01c75039$daff4970$153a2645@mlaptop> Message-ID: <45D3E738.1050609@perltraining.com.au> Michael R. Wolf wrote: > Here's the bug I submitted a few weeks ago. There's been no action on it > since I submitted it. I guess the anticipated fix-date is Perl6. My documentation bugs hadn't been addressed last I looked either. But I think the fix date is Perl 5.10. 5.10 brings in given and smart match, so no more need for "Switch". Not sure when that's scheduled to be released though. J From MichaelRWolf at att.net Wed Feb 14 21:15:37 2007 From: MichaelRWolf at att.net (Michael R. Wolf) Date: Thu, 15 Feb 2007 00:15:37 -0500 Subject: SPUG: not_quite_XML::Parser In-Reply-To: <2320.63.226.247.186.1171460059.squirrel@63.226.247.186> References: <004201c74bf3$679b36f0$e00110ac@mlaptop> <000e01c75039$d62cb2c0$153a2645@mlaptop> <001601c7503c$029138c0$153a2645@mlaptop> <2320.63.226.247.186.1171460059.squirrel@63.226.247.186> Message-ID: <006101c750c0$5431ef10$153a2645@mlaptop> Unknown. I don't know how XS stuff works. 'cpan install XML::LibXML' failed with lots of messages in a *.xs file, seeming to relate to C symbols. At the time, I had the cygwin libxml2 package installed (version 2.6.26-1). After installing the libxml2-devel and libxml2-doc packages (same version), the 'cpan install' worked fine. Don't know if this anwered your question. If not, let me know how else I can help. Michael -- Michael R. Wolf All mammals learn by playing! MichaelRWolf at att.net > -----Original Message----- > From: Yitzchak Scott-Thoennes [mailto:sthoenna at efn.org] > Sent: Wednesday, February 14, 2007 8:34 AM > To: Michael R. Wolf > Cc: spug-list at pm.org > Subject: Re: SPUG: not_quite_XML::Parser > > Michael R. Wolf wrote: > > I finally got XML::LibXML to work on cygwin. Originally, I only had the > > libxml2 library installed. Once I installed the development kit and > > documentation that went along with it, the XML::LibXML Perl module > > installed without hitch. > > So there were header files or something in the development kit that were > needed? Is it complicated enough to build that it might be a good idea > to have a pre-built cygwin package for it? From sthoenna at efn.org Thu Feb 15 00:12:53 2007 From: sthoenna at efn.org (Yitzchak Scott-Thoennes) Date: Thu, 15 Feb 2007 00:12:53 -0800 (PST) Subject: SPUG: Switch's "case" matching doesn't set $1 ! In-Reply-To: <45D3E738.1050609@perltraining.com.au> References: <20070213184811.GA25496@jumpy.consultix-inc.com> <000f01c75039$daff4970$153a2645@mlaptop> <45D3E738.1050609@perltraining.com.au> Message-ID: <3522.63.226.247.186.1171527173.squirrel@63.226.247.186> Jacinta Richardson wrote: > Michael R. Wolf wrote: > >> Here's the bug I submitted a few weeks ago. There's been no action on >> it >> since I submitted it. I guess the anticipated fix-date is Perl6. > > My documentation bugs hadn't been addressed last I looked either. But I think > the fix date is Perl 5.10. 5.10 brings in given and smart match, so no more > need for "Switch". Not sure when that's scheduled to be released though. There's no schedule. There was talk of converting Switch to no longer use a source filter for 5.10, but no one has actually done it. From MichaelRWolf at att.net Thu Feb 15 05:05:03 2007 From: MichaelRWolf at att.net (Michael R. Wolf) Date: Thu, 15 Feb 2007 08:05:03 -0500 Subject: SPUG: FW: Switch's "case" matching doesn't set $1 ! Message-ID: <008701c75101$e8b9db20$153a2645@mlaptop> Yitzchak Scott-Thoennes wrote: >Jacinta Richardson wrote: >> Michael R. Wolf wrote: >> >>> Here's the bug I submitted a few weeks ago. There's been no action >>> on it since I submitted it. I guess the anticipated fix-date is >>> Perl6. >> >> My documentation bugs hadn't been addressed last I looked either. >> But I think the fix date is Perl 5.10. 5.10 brings in given and >> smart match, so no more need for "Switch". Not sure when that's >> scheduled to be released though. > >There's no schedule. There was talk of converting Switch to no longer >use a source filter for 5.10, but no one has actually done it. Since it's Damianiacal code, I wouldn't want to go in there alone! :-) Sounds like a good candidate for a hack-a-thon or a pair-wise hacking at a SPUG meeting, perhaps next week. If I weren't already on a 4-week/4-state Perl training tour (i.e. I'll miss next week's meeting again), I'd be interested. Anyone (or anytwo) else interested? -- Michael R. Wolf All mammals learn by playing! MichaelRWolf at att.net > -----Original Message----- > From: spug-list-bounces+michaelrwolf=att.net at pm.org [mailto:spug-list- > bounces+michaelrwolf=att.net at pm.org] On Behalf Of Yitzchak Scott-Thoennes > Sent: Thursday, February 15, 2007 3:13 AM > To: Jacinta Richardson > Cc: SPUG > Subject: Re: SPUG: Switch's "case" matching doesn't set $1 ! > > Jacinta Richardson wrote: > > Michael R. Wolf wrote: > > > >> Here's the bug I submitted a few weeks ago. There's been no action on > >> it > >> since I submitted it. I guess the anticipated fix-date is Perl6. > > > > My documentation bugs hadn't been addressed last I looked either. But I > think > > the fix date is Perl 5.10. 5.10 brings in given and smart match, so no > more > > need for "Switch". Not sure when that's scheduled to be released > though. > > There's no schedule. There was talk of converting Switch to no longer use > a source filter for 5.10, but no one has actually done it. > _____________________________________________________________ > Seattle Perl Users Group Mailing List > POST TO: spug-list at pm.org > SUBSCRIPTION: http://mail.pm.org/mailman/listinfo/spug-list > MEETINGS: 3rd Tuesdays > WEB PAGE: http://seattleperl.org/ From twists at gmail.com Thu Feb 15 09:04:55 2007 From: twists at gmail.com (Joshua ben Jore) Date: Thu, 15 Feb 2007 09:04:55 -0800 Subject: SPUG: FW: Switch's "case" matching doesn't set $1 ! In-Reply-To: <008701c75101$e8b9db20$153a2645@mlaptop> References: <008701c75101$e8b9db20$153a2645@mlaptop> Message-ID: On 2/15/07, Michael R. Wolf wrote: > Yitzchak Scott-Thoennes wrote: > >There's no schedule. There was talk of converting Switch to no longer > >use a source filter for 5.10, but no one has actually done it. > > Since it's Damianiacal code, I wouldn't want to go in there alone! :-) > > Sounds like a good candidate for a hack-a-thon or a pair-wise hacking at a > SPUG meeting, perhaps next week. If I weren't already on a 4-week/4-state > Perl training tour (i.e. I'll miss next week's meeting again), I'd be > interested. > > Anyone (or anytwo) else interested? I'm still somewhat impressed and revolted that Switch is still getting maintained. It's a source of bugs and I don't see any reason that this thing ought to be used by anyone. I see it as an experiment that just didn't turn out well. Oh well. If you're going to run 5.10 anyway, you can use the native syntax that's been backported from Perl 6. To get there from Switch syntax you'll still likely need to do source filtering and that hasn't gotten any easier. Switch.pm is still a pariah module. Yitzchak, do you recall the strategy for making Switch not be a source filter? Hack on toke.c to make switch/case be aliases for given/when? Josh From jobs-noreply at seattleperl.org Thu Feb 15 14:27:10 2007 From: jobs-noreply at seattleperl.org (SPUG Jobs) Date: Thu, 15 Feb 2007 14:27:10 -0800 (PST) Subject: SPUG: JOB: Developer / Sys Admin Position with G2 Web Services Message-ID: Developer / Linux Sys Admin G2 Web Services, LLC is a fast growing leader in Internet Compliance monitoring. Located in Bellevue, WA we are seeking an experienced Linux Developer / Sys Admin to collaborate with business and technical staff to design, develop and maintain G2's applications and systems. Skills Required - Development of tools to assist with data parsing, mining, database analysis using Perl and Java - MySQL/Postgres Database Administration - Query Performance Optimization - Database Design / Analysis - DB Clustering / Caching - Linux System Administration experience - Managing Terabyte storage arrays - Server Clustering / High Availability - Experience installing and managing Web platforms and applications. - Expert knowledge of networking, security, VPNs, and firewalls - Understanding of email servers and communications protocols - Excellent customer service and communication skills - B.S. degree in Computer Science / Electrical Engineering or equivalent strongly preferred. Skills Desired - Experience in deploying and maintaining highly scalable environments - Knowledge of Apache, Lucene - Understanding of Internet crawlers, parsers, queries and data analysis. - Experience in start-up environments and/or commercial software development experience is a plus. - Additional skills a plus: C/C++, PHP, Ruby, Web Services, SOAP, SMTP, SNMP, Nagios, LDAP Additional Notes - Permanent position / W-2 Status - Position is directly with the company - Includes competitive benefits package - No telecommuting, onsite only To apply for this position, send resume and cover letter in an email to jobs at g2llc.com with the subject "Developer / Sys Admin Position". From spug at i4031.net Fri Feb 16 00:48:55 2007 From: spug at i4031.net (David Robins) Date: Fri, 16 Feb 2007 00:48:55 -0800 Subject: SPUG: Who owns the wiki? Message-ID: <200702160048.55306.spug@i4031.net> I updated the wiki with the recently posted meeting, and cleaned up the front page by moving some content to separate pages. I hope there are no objections. Also, most of the users in the wiki userlist appear to be spammers, and there was a lot of spam at the end of the front page - would it be possible to set up a captcha or some other filter to keep it out? I'm also curious as to why a perl group is using a PHP (hisss!) wiki, but MediaWiki _is_ very pretty :). -- Dave Isa. 40:31 From bill at celestial.com Fri Feb 16 09:56:06 2007 From: bill at celestial.com (Bill Campbell) Date: Fri, 16 Feb 2007 09:56:06 -0800 Subject: SPUG: Who owns the wiki? In-Reply-To: <200702160048.55306.spug@i4031.net> References: <200702160048.55306.spug@i4031.net> Message-ID: <20070216175606.GB11054@ayn.mi.celestial.com> On Fri, Feb 16, 2007, David Robins wrote: >I updated the wiki with the recently posted meeting, and cleaned up the front >page by moving some content to separate pages. I hope there are no >objections. > >Also, most of the users in the wiki userlist appear to be spammers, and there >was a lot of spam at the end of the front page - would it be possible to set >up a captcha or some other filter to keep it out? > >I'm also curious as to why a perl group is using a PHP (hisss!) wiki, but >MediaWiki _is_ very pretty :). I offered to host it on Zope/Plone -- a python based system :-). Bill -- INTERNET: bill at Celestial.COM Bill Campbell; Celestial Software LLC URL: http://www.celestial.com/ PO Box 820; 6641 E. Mercer Way FAX: (206) 232-9186 Mercer Island, WA 98040-0820; (206) 236-1676 Cutting the space budget really restores my faith in humanity. It eliminates dreams, goals, and ideals and lets us get straight to the business of hate, debauchery, and self-annihilation. -- Johnny Hart From billw at onedrous.org Fri Feb 16 14:20:20 2007 From: billw at onedrous.org (Bill Warner) Date: Fri, 16 Feb 2007 14:20:20 -0800 Subject: SPUG: Who owns the wiki? In-Reply-To: <20070216175606.GB11054@ayn.mi.celestial.com> References: <200702160048.55306.spug@i4031.net> <20070216175606.GB11054@ayn.mi.celestial.com> Message-ID: <45D62E24.5080300@onedrous.org> But seriously, shouldn't we be using Catalyst or Jifty? Bill Campbell wrote: > On Fri, Feb 16, 2007, David Robins wrote: > >> I updated the wiki with the recently posted meeting, and cleaned up the front >> page by moving some content to separate pages. I hope there are no >> objections. >> >> Also, most of the users in the wiki userlist appear to be spammers, and there >> was a lot of spam at the end of the front page - would it be possible to set >> up a captcha or some other filter to keep it out? >> >> I'm also curious as to why a perl group is using a PHP (hisss!) wiki, but >> MediaWiki _is_ very pretty :). >> > > I offered to host it on Zope/Plone -- a python based system :-). > > Bill > -- > INTERNET: bill at Celestial.COM Bill Campbell; Celestial Software LLC > URL: http://www.celestial.com/ PO Box 820; 6641 E. Mercer Way > FAX: (206) 232-9186 Mercer Island, WA 98040-0820; (206) 236-1676 > > Cutting the space budget really restores my faith in humanity. It > eliminates dreams, goals, and ideals and lets us get straight to the > business of hate, debauchery, and self-annihilation. > -- Johnny Hart > _____________________________________________________________ > Seattle Perl Users Group Mailing List > POST TO: spug-list at pm.org > SUBSCRIPTION: http://mail.pm.org/mailman/listinfo/spug-list > MEETINGS: 3rd Tuesdays > WEB PAGE: http://seattleperl.org/ > > From mcrawfor at u.washington.edu Fri Feb 16 14:32:05 2007 From: mcrawfor at u.washington.edu (Miles Crawford) Date: Fri, 16 Feb 2007 14:32:05 -0800 (PST) Subject: SPUG: Who owns the wiki? In-Reply-To: <45D62E24.5080300@onedrous.org> References: <200702160048.55306.spug@i4031.net> <20070216175606.GB11054@ayn.mi.celestial.com> <45D62E24.5080300@onedrous.org> Message-ID: > But seriously, shouldn't we be using Catalyst or Jifty? Or Solstice! We use a little homegrown wiki to run our public site: http://solstice.eplt.washington.edu It's a little green and site-specific right now, but a couple developers here sound excited about doing a little hack-a-thon or something to mature that codebase or start from scratch with you all. -miles __________________________________ Miles Crawford, Software Developer Catalyst Research & Development Office of Learning Technologies University of Washington 206.616.3406 http://catalyst.washington.edu http://solstice.eplt.washington.edu On Fri, 16 Feb 2007, Bill Warner wrote: > > Bill Campbell wrote: >> On Fri, Feb 16, 2007, David Robins wrote: >> >>> I updated the wiki with the recently posted meeting, and cleaned up the front >>> page by moving some content to separate pages. I hope there are no >>> objections. >>> >>> Also, most of the users in the wiki userlist appear to be spammers, and there >>> was a lot of spam at the end of the front page - would it be possible to set >>> up a captcha or some other filter to keep it out? >>> >>> I'm also curious as to why a perl group is using a PHP (hisss!) wiki, but >>> MediaWiki _is_ very pretty :). >>> >> >> I offered to host it on Zope/Plone -- a python based system :-). >> >> Bill >> -- >> INTERNET: bill at Celestial.COM Bill Campbell; Celestial Software LLC >> URL: http://www.celestial.com/ PO Box 820; 6641 E. Mercer Way >> FAX: (206) 232-9186 Mercer Island, WA 98040-0820; (206) 236-1676 >> >> Cutting the space budget really restores my faith in humanity. It >> eliminates dreams, goals, and ideals and lets us get straight to the >> business of hate, debauchery, and self-annihilation. >> -- Johnny Hart >> _____________________________________________________________ >> Seattle Perl Users Group Mailing List >> POST TO: spug-list at pm.org >> SUBSCRIPTION: http://mail.pm.org/mailman/listinfo/spug-list >> MEETINGS: 3rd Tuesdays >> WEB PAGE: http://seattleperl.org/ >> >> > _____________________________________________________________ > Seattle Perl Users Group Mailing List > POST TO: spug-list at pm.org > SUBSCRIPTION: http://mail.pm.org/mailman/listinfo/spug-list > MEETINGS: 3rd Tuesdays > WEB PAGE: http://seattleperl.org/ > From sthoenna at efn.org Fri Feb 16 14:34:02 2007 From: sthoenna at efn.org (Yitzchak Scott-Thoennes) Date: Fri, 16 Feb 2007 14:34:02 -0800 (PST) Subject: SPUG: Who owns the wiki? In-Reply-To: <45D62E24.5080300@onedrous.org> References: <200702160048.55306.spug@i4031.net> <20070216175606.GB11054@ayn.mi.celestial.com> <45D62E24.5080300@onedrous.org> Message-ID: <2434.63.226.247.186.1171665242.squirrel@63.226.247.186> You mean reinvent our own wiki? Or use some wiki already based on Catalyst or Jifty? Bill Warner wrote: > But seriously, shouldn't we be using Catalyst or Jifty? > > Bill Campbell wrote: >> On Fri, Feb 16, 2007, David Robins wrote: >> >>> I updated the wiki with the recently posted meeting, and cleaned up the >>> front >>> page by moving some content to separate pages. I hope there are no >>> objections. >>> >>> Also, most of the users in the wiki userlist appear to be spammers, and >>> there >>> was a lot of spam at the end of the front page - would it be possible >>> to set >>> up a captcha or some other filter to keep it out? >>> >>> I'm also curious as to why a perl group is using a PHP (hisss!) wiki, >>> but >>> MediaWiki _is_ very pretty :). >>> >> >> I offered to host it on Zope/Plone -- a python based system :-). >> >> Bill >> -- >> INTERNET: bill at Celestial.COM Bill Campbell; Celestial Software LLC >> URL: http://www.celestial.com/ PO Box 820; 6641 E. Mercer Way >> FAX: (206) 232-9186 Mercer Island, WA 98040-0820; (206) >> 236-1676 >> >> Cutting the space budget really restores my faith in humanity. It >> eliminates dreams, goals, and ideals and lets us get straight to the >> business of hate, debauchery, and self-annihilation. >> -- Johnny Hart >> _____________________________________________________________ >> Seattle Perl Users Group Mailing List >> POST TO: spug-list at pm.org >> SUBSCRIPTION: http://mail.pm.org/mailman/listinfo/spug-list >> MEETINGS: 3rd Tuesdays >> WEB PAGE: http://seattleperl.org/ >> >> > _____________________________________________________________ > Seattle Perl Users Group Mailing List > POST TO: spug-list at pm.org > SUBSCRIPTION: http://mail.pm.org/mailman/listinfo/spug-list > MEETINGS: 3rd Tuesdays > WEB PAGE: http://seattleperl.org/ > From billw at onedrous.org Fri Feb 16 15:22:11 2007 From: billw at onedrous.org (Bill Warner) Date: Fri, 16 Feb 2007 15:22:11 -0800 Subject: SPUG: Who owns the wiki? In-Reply-To: <2434.63.226.247.186.1171665242.squirrel@63.226.247.186> References: <200702160048.55306.spug@i4031.net> <20070216175606.GB11054@ayn.mi.celestial.com> <45D62E24.5080300@onedrous.org> <2434.63.226.247.186.1171665242.squirrel@63.226.247.186> Message-ID: <45D63CA3.2020007@onedrous.org> I was thinking the latter... 'cept, er, I don't know of one for catalyst. Yitzchak Scott-Thoennes wrote: > You mean reinvent our own wiki? Or use some wiki already based > on Catalyst or Jifty? > > Bill Warner wrote: > >> But seriously, shouldn't we be using Catalyst or Jifty? >> >> Bill Campbell wrote: >> >>> On Fri, Feb 16, 2007, David Robins wrote: >>> >>> >>>> I updated the wiki with the recently posted meeting, and cleaned up the >>>> front >>>> page by moving some content to separate pages. I hope there are no >>>> objections. >>>> >>>> Also, most of the users in the wiki userlist appear to be spammers, and >>>> there >>>> was a lot of spam at the end of the front page - would it be possible >>>> to set >>>> up a captcha or some other filter to keep it out? >>>> >>>> I'm also curious as to why a perl group is using a PHP (hisss!) wiki, >>>> but >>>> MediaWiki _is_ very pretty :). >>>> >>>> >>> I offered to host it on Zope/Plone -- a python based system :-). >>> >>> Bill >>> -- >>> INTERNET: bill at Celestial.COM Bill Campbell; Celestial Software LLC >>> URL: http://www.celestial.com/ PO Box 820; 6641 E. Mercer Way >>> FAX: (206) 232-9186 Mercer Island, WA 98040-0820; (206) >>> 236-1676 >>> >>> Cutting the space budget really restores my faith in humanity. It >>> eliminates dreams, goals, and ideals and lets us get straight to the >>> business of hate, debauchery, and self-annihilation. >>> -- Johnny Hart >>> _____________________________________________________________ >>> Seattle Perl Users Group Mailing List >>> POST TO: spug-list at pm.org >>> SUBSCRIPTION: http://mail.pm.org/mailman/listinfo/spug-list >>> MEETINGS: 3rd Tuesdays >>> WEB PAGE: http://seattleperl.org/ >>> >>> >>> >> _____________________________________________________________ >> Seattle Perl Users Group Mailing List >> POST TO: spug-list at pm.org >> SUBSCRIPTION: http://mail.pm.org/mailman/listinfo/spug-list >> MEETINGS: 3rd Tuesdays >> WEB PAGE: http://seattleperl.org/ >> >> > > From andrew at sweger.net Fri Feb 16 16:07:27 2007 From: andrew at sweger.net (Andrew Sweger) Date: Fri, 16 Feb 2007 16:07:27 -0800 (PST) Subject: SPUG: Who owns the wiki? In-Reply-To: <200702160048.55306.spug@i4031.net> Message-ID: Oh, here we go again. If there's an "owner", I guess that'd be me. This thread comes up now and then. The details are in the archives somewhere. But roughly comes down to BOFH's choice. I don't care what the thing is implemented in. It needs to serve the users and be drop-dead easy to install. So, I guess this means I'm more of a Debian zealot than I am a Perl zealot. (And I mean zealot in the nicest way possible.) Wiki by definition means lots of work for the community to maintain and keep on target. Even with captchas, we'd have those blasted (other) zealots sneaking in and a tagging the site. Hey, show up Tuesday night. I'm quite certain this very topic will be discussed. On Fri, 16 Feb 2007, David Robins wrote: > I'm also curious as to why a perl group is using a PHP (hisss!) wiki, but > MediaWiki _is_ very pretty :). -- Andrew B. Sweger -- The great thing about multitasking is that several things can go wrong at once. From scratchcomputing at gmail.com Fri Feb 16 18:51:32 2007 From: scratchcomputing at gmail.com (Eric Wilhelm) Date: Fri, 16 Feb 2007 18:51:32 -0800 Subject: SPUG: wiki? In-Reply-To: References: Message-ID: <200702161851.32682.ewilhelm@cpan.org> # from Andrew Sweger # on Friday 16 February 2007 04:07 pm: >Wiki by definition means lots of work for the community to maintain > and keep on target. Even with captchas, we'd have those blasted > (other) zealots sneaking in and a tagging the site. local $lurk; We're using kwiki for pdx.pm and not having much trouble with it. The RSS feeds and requiring login certainly seemed to have stopped the spam. If we were going to look at anything else, I would guess it would be combust. http://combust.develooper.com/ Though I haven't tried it. But, editing pod with vim and doing `svn ci` sounds (to me) like the next best thing to having a robot do it for me. --Eric -- You can't whack a chisel without a big wooden mallet. --------------------------------------------------- http://scratchcomputing.com --------------------------------------------------- From cmeyer at helvella.org Sat Feb 17 11:11:45 2007 From: cmeyer at helvella.org (Colin Meyer) Date: Sat, 17 Feb 2007 11:11:45 -0800 Subject: SPUG: wiki? In-Reply-To: <200702161851.32682.ewilhelm@cpan.org> References: <200702161851.32682.ewilhelm@cpan.org> Message-ID: <20070217191145.GA26268@funpox.helvella.org> On Fri, Feb 16, 2007 at 06:51:32PM -0800, Eric Wilhelm wrote: > # from Andrew Sweger > # on Friday 16 February 2007 04:07 pm: > > >Wiki by definition means lots of work for the community to maintain > > and keep on target. Even with captchas, we'd have those blasted > > (other) zealots sneaking in and a tagging the site. > > local $lurk; > > We're using kwiki for pdx.pm and not having much trouble with it. The > RSS feeds and requiring login certainly seemed to have stopped the > spam. Ingy is going to give a talk on Kwiki version 2 at the March SPUG meeting. -Colin. From cmeyer at helvella.org Sun Feb 18 10:14:16 2007 From: cmeyer at helvella.org (Colin Meyer) Date: Sun, 18 Feb 2007 10:14:16 -0800 Subject: SPUG: wiki? In-Reply-To: <20070217191145.GA26268@funpox.helvella.org> References: <200702161851.32682.ewilhelm@cpan.org> <20070217191145.GA26268@funpox.helvella.org> Message-ID: <20070218181416.GD26268@funpox.helvella.org> [ Forwarding for Ingy. -CM ] My recent posts have not been getting through. If this one doesn't, Colin, please forward. As Colin says, I am giving a talk on Kwiki 2.0 at SPUG in March. I know we have moved away from Kwiki, but hopefully after the meeting, people might be convinced to switch back. :) Kwiki is now very fast, and will be even faster soon. See http://www.kwiki.org for yourself. Whatever we decided to go with is fine by me, but I can say with confidence that Kwiki is the true Perl Mongers's wiki! --Ingy On 17/02/07 11:11 -0800, Colin Meyer wrote: > On Fri, Feb 16, 2007 at 06:51:32PM -0800, Eric Wilhelm wrote: > > # from Andrew Sweger > > # on Friday 16 February 2007 04:07 pm: > > > > >Wiki by definition means lots of work for the community to maintain > > > and keep on target. Even with captchas, we'd have those blasted > > > (other) zealots sneaking in and a tagging the site. > > > > local $lurk; > > > > We're using kwiki for pdx.pm and not having much trouble with it. The > > RSS feeds and requiring login certainly seemed to have stopped the > > spam. > > Ingy is going to give a talk on Kwiki version 2 at the March SPUG > meeting. > > -Colin. From mcli at brc.ubc.ca Mon Feb 19 15:41:10 2007 From: mcli at brc.ubc.ca (Vincent Li) Date: Mon, 19 Feb 2007 15:41:10 -0800 (PST) Subject: SPUG: p0fq.pl and pack Message-ID: <33991.137.82.2.253.1171928470.squirrel@sparc.brc.ubc.ca> Hello all: I posted the same question on perlmonks.org, but haven't found a working solution, so I try my luck here. I have Mac running OS X/Yellow Dog Linux and PC running Linux. If I run p0f http://lcamtuf.coredump.cx/p0f.shtml on Mac OS X or Yellow dog Linux on Power Mac G5 as: p0f -Q /var/run/p0f.sock -0 'dst port 80' >>/dev/null & and run ./p0fq.pl /var/run/p0f.sock src_host 0 dst_host 80 I get "P0f did not honor our query." the p0fq.pl works fine If I run on x86 machine. My question is whether this problem is caused by the use of pack function of script p0fq.pl because Mac is big endian and PC is little endian, could anyone recommend a working solution? the p0fq.pl script is as following: use strict; use IO::Socket; use Net::IP; my $QUERY_MAGIC = 0x0defaced; my $QTYPE_FINGERPRINT = 1; die "usage: p0fq.pl p0f_socket src_ip src_port dst_ip dst_port" unless $#ARGV == 4; # Convert the IPs and pack the request message my $src = new Net::IP ($ARGV[1]) or die (Net::IP::Error()); my $dst = new Net::IP ($ARGV[3]) or die (Net::IP::Error()); print "$ARGV[1]\n"; my $query = pack("L L L N N S S", $QUERY_MAGIC, $QTYPE_FINGERPRINT, 0x +12345678, $src->intip(), $dst->intip(), $ARGV[2], $ARGV[4]); # Open the connection to p0f my $sock = new IO::Socket::UNIX (Peer => $ARGV[0], Type => SOCK_STREAM); die "Could not create socket: $!\n" unless $sock; # Ask p0f print $sock $query; my $response = <$sock>; close $sock; # Extract the response from p0f my ($magic, $id, $type, $genre, $detail, $dist, $link, $tos, $fw, $nat, $real, $score, $mflags, $uptime) = unpack ("L L C Z20 Z40 c Z30 Z30 C C C s S N", $response); die "Bad response magic.\n" if $magic != $QUERY_MAGIC; die "P0f did not honor our query.\n" if $type == 1; die "This connection is not (no longer?) in the cache.\n" if $type == +2; # Display result print "Genre : " . $genre . "\n"; print "Details : " . $detail . "\n"; print "Distance : " . $dist . " hops\n"; print "Link : " . $link . "\n"; print "Uptime : " . $uptime . " hrs\n"; -- Vincent Li http://bl0g.blogdns.com From lmzaldivar at gmail.com Tue Feb 20 15:14:39 2007 From: lmzaldivar at gmail.com (luis medrano) Date: Tue, 20 Feb 2007 15:14:39 -0800 Subject: SPUG: sending emails Message-ID: <50aeae6f0702201514o43294976sf24d500a64fe582a@mail.gmail.com> Hi, I have script to send emails but when I send a email with double byte characters it will send non-readible characters for example: ??????AV????„? ???????????'???????"???„?????'?????? ???????????? ??????, ?????? Any of you knows how perl can respect the double byte charecters when it sends the email? here is the script: #!/bin/perl my $email_file="tot.txt"; open (FILE, $email_file) or die; my @emails=; close(FILE); my $content=shift(@ARGV) || die ("error:give the name of the file content"); open (FILE, $content) or die; my @contents=; close(FILE); print "subject of the email \n"; my $title=; chomp($title); foreach my $line (@emails){ chomp($line); my $random_number = int(rand(2)); if ($random_number==1){ #print $random_number . "\n"; open (MAIL, "|/usr/sbin/sendmail -t "); print MAIL "From: posting\@mailserver\n"; print MAIL "To: $line\@mailserver\n"; print MAIL "Content-Type: text/plain\n"; print MAIL "Subject: $title\n\n"; print MAIL "@content"; close (MAIL); } sleep(5); } print "done \n"; Thanks, Luis From AEH at akc.org Tue Feb 20 15:42:43 2007 From: AEH at akc.org (Adrian Hands) Date: Tue, 20 Feb 2007 18:42:43 -0500 Subject: SPUG: sending emails References: <50aeae6f0702201514o43294976sf24d500a64fe582a@mail.gmail.com> Message-ID: <862E491E88FFFE44846C445B4881DD7C7E16F5@PUG.ad.akc.org> print MAIL "Content-Type: text/plain; charset=\"utf-8\"\n"; > -----Original Message----- > From: spug-list-bounces+aeh=akc.org at pm.org [mailto:spug-list- > bounces+aeh=akc.org at pm.org] On Behalf Of luis medrano > Sent: Tuesday, February 20, 2007 6:15 PM > To: spug-list at pm.org > Subject: SPUG: sending emails > > Hi, > > I have script to send emails but when I send a email with double byte > characters it will send non-readible characters for example: > > ??????AV????„? > ???????????'???????"???„?????'?????? > ???????????? ??????, ?????? > > Any of you knows how perl can respect the double byte charecters when > it sends the email? > > here is the script: > > #!/bin/perl > my $email_file="tot.txt"; > open (FILE, $email_file) or die; > my @emails=; > close(FILE); > my $content=shift(@ARGV) || die ("error:give the name of the file > content"); > > > open (FILE, $content) or die; > my @contents=; > close(FILE); > > print "subject of the email \n"; > my $title=; > chomp($title); > foreach my $line (@emails){ > chomp($line); > my $random_number = int(rand(2)); > if ($random_number==1){ > #print $random_number . "\n"; > > open (MAIL, "|/usr/sbin/sendmail -t "); > print MAIL "From: posting\@mailserver\n"; > print MAIL "To: $line\@mailserver\n"; > print MAIL "Content-Type: text/plain\n"; > print MAIL "Subject: $title\n\n"; > print MAIL "@content"; > close (MAIL); > } > sleep(5); > } > print "done \n"; > > Thanks, > Luis > _____________________________________________________________ > Seattle Perl Users Group Mailing List > POST TO: spug-list at pm.org > SUBSCRIPTION: http://mail.pm.org/mailman/listinfo/spug-list > MEETINGS: 3rd Tuesdays > WEB PAGE: http://seattleperl.org/ From jmates at sial.org Wed Feb 21 20:15:36 2007 From: jmates at sial.org (Jeremy Mates) Date: Wed, 21 Feb 2007 20:15:36 -0800 Subject: SPUG: sending emails In-Reply-To: <50aeae6f0702201514o43294976sf24d500a64fe582a@mail.gmail.com> References: <50aeae6f0702201514o43294976sf24d500a64fe582a@mail.gmail.com> Message-ID: <20070222041536.GC9271@neamh.sial.org> * luis medrano > open (MAIL, "|/usr/sbin/sendmail -t "); > print MAIL "From: posting\@mailserver\n"; > print MAIL "To: $line\@mailserver\n"; > print MAIL "Content-Type: text/plain\n"; > print MAIL "Subject: $title\n\n"; > print MAIL "@content"; Ugh! http://sial.org/howto/perl/sendmail/ From jarich at perltraining.com.au Wed Feb 21 21:11:05 2007 From: jarich at perltraining.com.au (Jacinta Richardson) Date: Thu, 22 Feb 2007 16:11:05 +1100 Subject: SPUG: sending emails In-Reply-To: <50aeae6f0702201514o43294976sf24d500a64fe582a@mail.gmail.com> References: <50aeae6f0702201514o43294976sf24d500a64fe582a@mail.gmail.com> Message-ID: <45DD25E9.3000505@perltraining.com.au> G'day Luis, This code seems to be showing its age a little. It has some interesting failure cases ( $content contains "\n.\n" anywhere; user writes something naughty for $title, or the name of the content file... ) and doesn't always check that things work (failure on opening sendmail never gets considered). You also seem to be missing "strict" and warnings. Perhaps the following might suit you better (untested, but probably ok) #!/usr/bin/perl use strict; use warnings; use MIME::Lite; use Fatal qw(open close); # Get list of email addresses my $addr_file = "tot.txt"; open(my $addr_fh, "<", $addr_file); my @addresses = <$addr_fh>; close $addr_fh; # Read email content my $cont_file = shift @ARGV or die "error: give the name of the file content"; open(my $content_fh, "<", $cont_file); my $content = do { local $/; <$content_fh> }; close $content_fh; # Get email subject print "subject of the email\n"; my $subject=; chomp($subject); # Iterate over emails, sending to roughly half of them (random) foreach my $email (@addresses) { chomp $email; if( int(rand(2)) == 1 ) { { my $msg = MIME::Lite->new( From => 'posting at mailserver', Type => 'text/plain', Encoding => 'quoted-printable', To => $email, Subject => $subject, Data => $content, ); $msg->send; } sleep(5); } All the best, Jacinta -- ("`-''-/").___..--''"`-._ | Jacinta Richardson | `6_ 6 ) `-. ( ).`-.__.`) | Perl Training Australia | (_Y_.)' ._ ) `._ `. ``-..-' | +61 3 9354 6001 | _..`--'_..-_/ /--'_.' ,' | contact at perltraining.com.au | (il),-'' (li),' ((!.-' | www.perltraining.com.au | From MichaelRWolf at att.net Wed Feb 21 21:35:26 2007 From: MichaelRWolf at att.net (Michael R. Wolf) Date: Thu, 22 Feb 2007 00:35:26 -0500 Subject: SPUG: sending emails In-Reply-To: <45DD25E9.3000505@perltraining.com.au> References: <50aeae6f0702201514o43294976sf24d500a64fe582a@mail.gmail.com> <45DD25E9.3000505@perltraining.com.au> Message-ID: <003601c75643$450b6240$6f01a8c0@mlaptop> > # Read email content > my $cont_file = shift @ARGV or die "error: give the name of the file > content"; > open(my $content_fh, "<", $cont_file); > my $content = do { local $/; <$content_fh> }; > close $content_fh; You localized, but did not change, the input record separator. Try: use English qw(-no_match_vars); my $content = do { local $INPUT_RECORD_SEPARATOR = undef; <$xml_fh>; } Of course, you could use non-english, and keep it at $/ (or is it $\? -- are you sure?). The important part is to set it to undef. Michael From jarich at perltraining.com.au Wed Feb 21 22:39:55 2007 From: jarich at perltraining.com.au (Jacinta Richardson) Date: Thu, 22 Feb 2007 17:39:55 +1100 Subject: SPUG: sending emails In-Reply-To: <003601c75643$450b6240$6f01a8c0@mlaptop> References: <50aeae6f0702201514o43294976sf24d500a64fe582a@mail.gmail.com> <45DD25E9.3000505@perltraining.com.au> <003601c75643$450b6240$6f01a8c0@mlaptop> Message-ID: <45DD3ABB.20507@perltraining.com.au> Michael R. Wolf wrote: > You localized, but did not change, the input record separator. Try: > > use English qw(-no_match_vars); > my $content = do { local $INPUT_RECORD_SEPARATOR = undef; <$xml_fh>; } Localising a variable automatically sets it to undefined. If you don't want this behaviour you have to explicitly say: local $/ = $/; You can test this theory with the following: perl -we '$/ = 1; { local $/; print "[$/]" } print "[$/]"'; Use of uninitialized value in concatenation (.) or string at -e line 1. [][1] perl -we '$/ = 1; { local $/ = $/; print "[$/]" } print "[$/]"'; [1][1] Of course there's no harm in setting it to undef yourself, but it's important to know that not setting it to undef still changes it anyway. > Of course, you could use non-english, and keep it at $/ (or is it $\? -- are > you sure?). The important part is to set it to undef. I'm definately sure. I just remember I|O (as in File IO) * for the _input_ record separator any drop of water from about will flow towards the I: / . * for the _output_ record separator, a drop of water will flow towards the O: \ . Works for me. J -- ("`-''-/").___..--''"`-._ | Jacinta Richardson | `6_ 6 ) `-. ( ).`-.__.`) | Perl Training Australia | (_Y_.)' ._ ) `._ `. ``-..-' | +61 3 9354 6001 | _..`--'_..-_/ /--'_.' ,' | contact at perltraining.com.au | (il),-'' (li),' ((!.-' | www.perltraining.com.au | From MichaelRWolf at att.net Thu Feb 22 08:59:38 2007 From: MichaelRWolf at att.net (Michael R. Wolf) Date: Thu, 22 Feb 2007 11:59:38 -0500 Subject: SPUG: sending emails In-Reply-To: <45DD3ABB.20507@perltraining.com.au> References: <50aeae6f0702201514o43294976sf24d500a64fe582a@mail.gmail.com> <45DD25E9.3000505@perltraining.com.au> <003601c75643$450b6240$6f01a8c0@mlaptop> <45DD3ABB.20507@perltraining.com.au> Message-ID: <005001c756a2$d6c601e0$6f01a8c0@mlaptop> -- Michael R. Wolf All mammals learn by playing! MichaelRWolf at att.net > -----Original Message----- > From: Jacinta Richardson [mailto:jarich at perltraining.com.au] > Sent: Thursday, February 22, 2007 1:40 AM > To: Michael R. Wolf > Cc: spug-list at pm.org > Subject: Re: SPUG: sending emails > > Michael R. Wolf wrote: > > > You localized, but did not change, the input record separator. Try: > > > > use English qw(-no_match_vars); > > my $content = do { local $INPUT_RECORD_SEPARATOR = undef; <$xml_fh>; > } > > Localising a variable automatically sets it to undefined. If you don't > want > this behaviour you have to explicitly say: > > local $/ = $/; Thanks. I didn't know. It's good to know. AND, given that I don't know now, and am likely to forget in the future, I'll be explicit. As for slurping, I knew the idiom because I'd recently used it for the first time in a year or so. I tried to use a Slurp module, but found that the client didn't have it installed. I *love* modules. I merely "like" the ones that aren't installe. Thanks again for the insight..... From cmeyer at helvella.org Thu Feb 22 09:22:01 2007 From: cmeyer at helvella.org (Colin Meyer) Date: Thu, 22 Feb 2007 09:22:01 -0800 Subject: SPUG: Tim's Book Reviewed on Slashdot Message-ID: <20070222172201.GA20203@funpox.helvella.org> I just noticed this review of Tim Maher's _Minimal Perl_: http://books.slashdot.org/books/07/02/21/1557225.shtml -Colin. From tim at consultix-inc.com Thu Feb 22 11:10:35 2007 From: tim at consultix-inc.com (Tim Maher) Date: Thu, 22 Feb 2007 11:10:35 -0800 Subject: SPUG: Tim's Book Reviewed on Slashdot In-Reply-To: <20070222172201.GA20203@funpox.helvella.org> References: <20070222172201.GA20203@funpox.helvella.org> Message-ID: <20070222191035.GA7742@jumpy.consultix-inc.com> On Thu, Feb 22, 2007 at 09:22:01AM -0800, Colin Meyer wrote: > I just noticed this review of Tim Maher's _Minimal Perl_: > > http://books.slashdot.org/books/07/02/21/1557225.shtml In other news, Minimal Perl took the #1 spot on Amazon's computer programming rankings yesterday, and its sales rank is #211 today! The http://MinimalPerl.com web site provides access to a variety of materials related to the Minimal Perl book: * additional reviews of the book * free chapter downloads * free software downloads * interviews with the author * slides of related conference presentations Check it out! -Tim P.S. My 2/28-3/2 "Perl Fundamentals" class still has room for more! *-------------------------------------------------------------------* | Tim Maher, PhD (206) 781-UNIX http://www.consultix-inc.com | | tim at ( Consultix-Inc, TeachMePerl, or TeachMeUnix ) dot Com | | Classes: 2/28: Basic Perl; 3/12: Basic UNIX/Linux; 3/16: Min Perl | *-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-* | * "Minimal Perl" book rates 4.8 out of 5 stars at Amazon.com! * | | > Download chapters, read reviews, and order at MinimalPerl.com < | *-------------------------------------------------------------------* From jobs-noreply at seattleperl.org Thu Feb 22 13:36:51 2007 From: jobs-noreply at seattleperl.org (SPUG Jobs) Date: Thu, 22 Feb 2007 13:36:51 -0800 (PST) Subject: SPUG: JOB: Perl Developer contract immediate need Message-ID: - required skill-set Strong Perl skills with some exposure to Ruby on Rails - contract or permanent position Contract position - for contracts, expected duration and pay range Looking for 3+ months. Strong possibility of extension. < $40/hr - placement through recruiter, or directly with company? Through recruiter, Harvey Nash - W-2 vs. 1099 status Can work with either W-2 or 1099 - any restrictions on 1099 status: Corporation, etc.? Must provide insurance, and business license paperwork - physical location Downtown Seattle - telecommuting possible? No - company's product or service (e.g., e-commerce, grocery shopping, nuclear weapons, pornography, etc e-commerce, social networking Travis J Winegardner 2505 2nd Ave Suite 705 Seattle, WA 98121 D: 1 (206) 956-9200 F: 1 (206) 956-0474 travis.winegardner at harveynashusa.com From cos at indeterminate.net Thu Feb 22 13:54:57 2007 From: cos at indeterminate.net (John Costello) Date: Thu, 22 Feb 2007 13:54:57 -0800 (PST) Subject: SPUG: JOB: Perl Developer contract immediate need In-Reply-To: Message-ID: On Thu, 22 Feb 2007, SPUG Jobs wrote: > - company's product or service (e.g., e-commerce, grocery shopping, > nuclear weapons, pornography, etc ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Um, who put together *that* template? I laughed until my sternum hurt. John (wondering about Perl's applications with regard to nukes) From tim at consultix-inc.com Thu Feb 22 14:04:14 2007 From: tim at consultix-inc.com (Tim Maher) Date: Thu, 22 Feb 2007 14:04:14 -0800 Subject: SPUG: JOB: Perl Developer contract immediate need In-Reply-To: References: Message-ID: <20070222220414.GA15490@jumpy.consultix-inc.com> On Thu, Feb 22, 2007 at 01:54:57PM -0800, John Costello wrote: > On Thu, 22 Feb 2007, SPUG Jobs wrote: > > - company's product or service (e.g., e-commerce, grocery shopping, > > nuclear weapons, pornography, etc > ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ > > Um, who put together *that* template? I laughed until my sternum hurt. > > John I did, in an earlier incarnation as SPUG leader! 8-} -Tim *-------------------------------------------------------------------* | Tim Maher, PhD (206) 781-UNIX http://www.consultix-inc.com | | tim at ( Consultix-Inc, TeachMePerl, or TeachMeUnix ) dot Com | | Classes: 2/28: Basic Perl; 3/12: Basic UNIX/Linux; 3/16: Min Perl | *-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-* | * "Minimal Perl" book rates 4.8 out of 5 stars at Amazon.com! * | | > Download chapters, read reviews, and order at MinimalPerl.com < | *-------------------------------------------------------------------* From brianwisti at yahoo.com Fri Feb 23 09:46:21 2007 From: brianwisti at yahoo.com (Brian Wisti) Date: Fri, 23 Feb 2007 09:46:21 -0800 (PST) Subject: SPUG: Tim's Book Reviewed on Slashdot In-Reply-To: <20070222191035.GA7742@jumpy.consultix-inc.com> Message-ID: <322664.71338.qm@web53612.mail.yahoo.com> --- Tim Maher wrote: > On Thu, Feb 22, 2007 at 09:22:01AM -0800, Colin Meyer wrote: > > I just noticed this review of Tim Maher's _Minimal Perl_: > > > > http://books.slashdot.org/books/07/02/21/1557225.shtml > > In other news, Minimal Perl took the #1 spot on Amazon's computer > programming rankings yesterday, and its sales rank is #211 today! > That's great news, Tim. Nothing like a slashdot mention to push up sales! Kind Regards, Brian Wisti http://coolnamehere.com/ From ppcook at gmail.com Fri Feb 23 17:04:52 2007 From: ppcook at gmail.com (Paul Cook) Date: Fri, 23 Feb 2007 17:04:52 -0800 Subject: SPUG: Minimal Perl for $17.46 Message-ID: I just purchased Tim's new book online for $17.46 (it lists for $44.95!), with no sales tax, and free shipping. I used a price comparison site to do this, and I'm not sure how much that had to do with me getting that price. At the risk of giving you a "cargo-cult" narrative, I'll give the exact steps that I took. YMMV. 1. I was logged into Gmail, and had cookies enabled. 2. In another browser window, I used the price comparison site http://www.bcybookloft.com/ . 3. I pasted the ISBN for Tim's book into the "Search For" field, and clicked "Search". 4. It came back with one result, for $27.46, and I clicked on the Compare 1 Price button. 5. Next page had a confusing reference to "Manufacturer: Wizards of the Coast", but an image of Minimal Perl. At this point I'm hoping that "Minimal Perl" isn't also the name of some RPG character. 6. I noticed that the Wizards of the Coast part number is the same as the ISBN, 1932394508. 7. At the bottom of the page it says "Lowest Price by Buy.com", and I enter my zip code and click Calculate Shipping. 8. It comes back with a total of $27.46, and I click More Info. 9. I click Add to Cart, and on the next page appears a bunch of other offers, and on the right a button that says, "Google Checkout: $10 off for new users only". 10. I clicked Google Checkout, and was shown my gmail address, and asked to supply my gmail password, which I did, then Google asked for my credit card number, which I entered. 11. Next page shows a total of $21.46, and I notice that shipping is about $4, but there is a dropdown to select shipping options. 12. I select the $0.00 shipping option, and before clicking purchase on a total of $17.46, I reassure myself by checking the image to make sure "Minimal Perl" isn't referring to some RPG action figure from Wizards of the Coast. There is a picture of the book, and it says *Minimal Perl: For UNIX and Linux People by Tim Maher.* I bought it, and it says I will have the book real soon. I'll try to remember to let everyone know what actually shows up at my maildrop (or if any unexpected charges show up on my credit card!). I am not making this up. -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/spug-list/attachments/20070223/b08eb4cd/attachment.html From m3047 at inwa.net Sat Feb 24 10:14:22 2007 From: m3047 at inwa.net (Fred Morris) Date: Sat, 24 Feb 2007 10:14:22 -0800 Subject: SPUG: "Cargo Cult" narratives Re: Minimal Perl for $17.46 In-Reply-To: References: Message-ID: <200702241014.22519.m3047@inwa.net> Paul: A.k.a. "taking things at 'interface value'". Sometimes that is unfortunately all one can do. Of course both of the phrases refer to internalizing things we don't understand and giving them mystical attributes: whether that's cargo mysteriously appearing on the beach (unless one's prayers led to the shipwreck or altered the ocean currents, not likely due to the intercession of deities) or having the feeling that your computer is "having a bad day". As long as you have not taken leave of reason because of this strange series of gestures, then to paraphrase Freud: sometimes a gesture is just a gesture. On Friday 23 February 2007 17:04, Paul Cook wrote: > I just purchased Tim's new book online for $17.46 (it lists for $44.95!), > with no sales tax, and free shipping. > > I used a price comparison site to do this, and I'm not sure how much that > had to do with me getting that price. At the risk of giving you a > "cargo-cult" narrative, I'll give the exact steps that I took. YMMV. > > [...] > > I am not making this up. ^^^^^^^^^^^^^^^^^^^^^ THAT made me laugh! -- Fred Morris http://www.inwa.net/~m3047/contact.html From tim at consultix-inc.com Mon Feb 26 09:50:51 2007 From: tim at consultix-inc.com (Tim Maher) Date: Mon, 26 Feb 2007 09:50:51 -0800 Subject: SPUG: Perl Y2K Bug on Display! Message-ID: <20070226175051.GA9572@jumpy.consultix-inc.com> Just stumbled across a web page that suggests that some programmer out there didn't read the Camel closely enough. At the bottom of the page, the year 19101 appears, in classic Perl Y2K bug style! 8-} It's coming from a ShowDate(); call embedded within