From grant at mclean.net.nz Tue Oct 4 00:51:35 2011 From: grant at mclean.net.nz (Grant McLean) Date: Tue, 04 Oct 2011 20:51:35 +1300 Subject: [Wellington-pm] Meeting Next Tuesday Message-ID: <1317714695.2880.16.camel@hoiho> Hi Mongers I've been a a bit remiss with web site updates and meeting reminders and now here we are 7 days out from the next meeting! We have three talks lined up: * Peter Kelly is going to talk about his recent experience using HTML::TableExtract * Martyn Smith will talk about Async PSGI, unless he fails to find out about it in time in which case he'll talk about something else * I plan to talk about Loose Coupling in the context of a "Grant screws up (again) but Perl saves the day" war story The meeting will be at Catalyst but our normal space on Level 4 is still out of commission so my best guess at this point is that we'll use the boardroom on level 6. I'll clarify that on Tuesday. 6:00pm Tuesday 11 October 2011 Level 6, Catalyst House 150 Willis Street Wellington See you there Grant From richard at walnut.gen.nz Tue Oct 4 01:45:22 2011 From: richard at walnut.gen.nz (Richard Hector) Date: Tue, 04 Oct 2011 21:45:22 +1300 Subject: [Wellington-pm] capturing quantified matches Message-ID: <1317717922.4008.13.camel@zircon.lan.walnut.gen.nz> Hi all, I'm trying to use a regex like this: ($foo, $bar, @baz) = /^(xx)\s(yy)\s(zz)*$/ but it seems I can't get all the arbitrary number of values from the 3rd capture. Any suggestions for that? I guess I could do it in two steps, something like this: s/^(xx)\s(yy)\s// && ($foo, $bar) = ($1, $2); @baz = /^(zz)/g; .. since /g seems to return multiple matches where ()* doesn't. Any other ideas? That's untested code, much simpler than the real thing, but I think the principles I'm after are clear enough .. Thanks, Richard From grant at mclean.net.nz Tue Oct 4 12:53:21 2011 From: grant at mclean.net.nz (Grant McLean) Date: Wed, 05 Oct 2011 08:53:21 +1300 Subject: [Wellington-pm] capturing quantified matches In-Reply-To: <1317717922.4008.13.camel@zircon.lan.walnut.gen.nz> References: <1317717922.4008.13.camel@zircon.lan.walnut.gen.nz> Message-ID: <1317758001.2437.21.camel@putnam> On Tue, 2011-10-04 at 21:45 +1300, Richard Hector wrote: > Hi all, > > I'm trying to use a regex like this: > > ($foo, $bar, @baz) = /^(xx)\s(yy)\s(zz)*$/ > > but it seems I can't get all the arbitrary number of values from the 3rd > capture. Any suggestions for that? I don't think a single bracketed section in a regex can return multiple values unless you're using /g One alternative approach is to use two matches with the second one picking up at the end of the first: my $str = 'one two three four five'; my @match1 = $str =~ /^(\w+) (\w+)/gc; print Dumper(\@match1); my @match2 = $str =~ /\G (\w+)/g; print Dumper(\@match2); Which outputs $VAR1 = [ 'one', 'two' ]; $VAR1 = [ 'three', 'four', 'five' ]; That's harder to understand than your code though. Cheers Grant From richard at walnut.gen.nz Tue Oct 4 14:42:05 2011 From: richard at walnut.gen.nz (Richard Hector) Date: Wed, 05 Oct 2011 10:42:05 +1300 Subject: [Wellington-pm] capturing quantified matches In-Reply-To: <1317758001.2437.21.camel@putnam> References: <1317717922.4008.13.camel@zircon.lan.walnut.gen.nz> <1317758001.2437.21.camel@putnam> Message-ID: <1317764525.24207.22.camel@zircon.lan.walnut.gen.nz> On Wed, 2011-10-05 at 08:53 +1300, Grant McLean wrote: > One alternative approach is to use two matches with the second one > picking up at the end of the first: > > my $str = 'one two three four five'; > > my @match1 = $str =~ /^(\w+) (\w+)/gc; > > print Dumper(\@match1); > > my @match2 = $str =~ /\G (\w+)/g; > > print Dumper(\@match2); Interesting, thanks - I'll have to study/play with /gc a bit to understand it, I think :-) But \G looks handy. Richard From grant at mclean.net.nz Wed Oct 5 00:29:50 2011 From: grant at mclean.net.nz (Grant McLean) Date: Wed, 05 Oct 2011 20:29:50 +1300 Subject: [Wellington-pm] [Fwd: [pm_groups] Potential group project: The Perl Cookbook] Message-ID: <1317799790.2650.1.camel@hoiho> This might be something Wellington Perl folk might like to get involved with ... -------- Forwarded Message -------- > From: G. Wade Johnson > To: pm_groups at pm.org > Subject: [pm_groups] Potential group project: The Perl Cookbook > Date: Tue, 4 Oct 2011 23:14:53 -0500 > > Ben Thomas and I were discussing the fact that The Perl Cookbook is > somewhat out of date and wondered if we could set up a project for > Houston.pm to try to bring some of the recipes up to the standards of > Modern Perl. > > As we discussed it, I realized that modifying a large number of these > recipes would quickly exceed the bounds of "fair use" should O'Reilly > decide to complain. So I contacted them through the user group program. > > The short form is that O'Reilly is at least provisionally interested in > the idea of a community project to update the Cookbook. They have done > other community-based cookbooks in the past, with some success. > > The question is, would more Perl Monger groups want to join in the > fun/work on this? > > Depending on the details that we are still ironing out, there would > likely be a website collecting new and updated recipes. We'd probably > want the source for the solutions on something like github. O'Reilly > would want the ability to collect a subset of the recipes (with input > from the community) to form a new edition of the book, if the project > goes well. > > The website would continue to be available for updates and contain all > recipes, not just those included in any book. > > I've pitched the initial idea to my group. (Without some of the details > at the moment.) Would any other groups be interested in joining in? If > you are interested, I'd be glad to forward the information I sent to my > group. > > I've also got a call next week with my O'Reilly contact to iron out > more details. Input from the larger Perl Monger community would > definitely help with that. > > Who is interested? > G. Wade > -- > "No Boom today. Boom tomorrow, There's always a boom tomorrow." > -- Ivanova, "Grail" > -- > Request pm.org Technical Support via support at pm.org > > pm_groups mailing list > pm_groups at pm.org > http://mail.pm.org/mailman/listinfo/pm_groups From privilege at do52.name Wed Oct 5 12:49:08 2011 From: privilege at do52.name (privilege at do52.name) Date: Wed, 05 Oct 2011 15:49:08 -0400 Subject: [Wellington-pm] Really or Kubaya (campfire song in Scouting) In-Reply-To: <1317799790.2650.1.camel@hoiho> References: <1317799790.2650.1.camel@hoiho> Message-ID: Buy YAHOO. On 10/5/2011 3:29 AM, Grant McLean wrote: > Ivanova, "Grail" From grant at mclean.net.nz Mon Oct 10 14:03:07 2011 From: grant at mclean.net.nz (Grant McLean) Date: Tue, 11 Oct 2011 10:03:07 +1300 Subject: [Wellington-pm] Meeting this evening In-Reply-To: <1317714695.2880.16.camel@hoiho> References: <1317714695.2880.16.camel@hoiho> Message-ID: <1318280587.4371.32.camel@putnam> Hi Mongers The October meeting is on this evening. The venue is Level 7 of Catalyst House (same place as our August meeting). See you there. Cheers Grant On Tue, 2011-10-04 at 20:51 +1300, Grant McLean wrote: > Hi Mongers > > We have three talks lined up: > > * Peter Kelly is going to talk about his recent experience using > HTML::TableExtract > > * Martyn Smith will talk about Async PSGI, unless he fails to find > out about it in time in which case he'll talk about something else > > * I plan to talk about Loose Coupling in the context of a "Grant screws > up (again) but Perl saves the day" war story > > The meeting will be at Catalyst but our normal space on Level 4 is still > out of commission so my best guess at this point is that we'll use the > boardroom on level 6. I'll clarify that on Tuesday. > > 6:00pm Tuesday 11 October 2011 > Level 6, Catalyst House > 150 Willis Street > Wellington > > See you there > Grant > > _______________________________________________ > Wellington-pm mailing list > Wellington-pm at pm.org > http://mail.pm.org/mailman/listinfo/wellington-pm From grant at mclean.net.nz Wed Oct 12 00:45:14 2011 From: grant at mclean.net.nz (Grant McLean) Date: Wed, 12 Oct 2011 20:45:14 +1300 Subject: [Wellington-pm] Roundup of last night's meeting Message-ID: <1318405514.2628.11.camel@hoiho> Hi Mongers Thanks to our speakers - Peter and Martyn. Thanks also to all who came along to last night's meeting and contributed to the usual robust exchange of ideas. Slides for Martyn's talk and my talk are up on the web site now. I'll put Peter's up when he sends them to me. http://wellington.pm.org/archive/ http://search.cpan.org/dist/HTML-TableExtract/ As I mentioned, the next meeting will be on November 15th and I'm keen to hear from anyone who would like to speak. Cheers Grant From jarich at perltraining.com.au Thu Oct 20 22:43:11 2011 From: jarich at perltraining.com.au (Jacinta Richardson) Date: Fri, 21 Oct 2011 16:43:11 +1100 Subject: [Wellington-pm] Oceania Women of Open Tech launches Message-ID: <4EA1066F.1020506@perltraining.com.au> In case there are any women or other interested folk on this mailing list who don't know about OWOOT. Oceania Women of Open Tech (OWOOT) is a new group for women in open technology in Australia, New Zealand and the Pacific Islands. It has recently formed from the local chapters of LinuxChix, but with a wider scope focusing on open technology generally. OWOOT welcomes all women interested in open technology, including open source, open hardware, open data and free culture. OWOOT activities will include: - the Haecksen mini-conference at linux.conf.au, and meetups and events at other conferences - periodic local social events - email and IRC forums where you can meet other women from the area who work with, build or use open technology OWOOT forums are open to men to join if they wish, as long as they keep in mind that the purpose of the group is supporting women in open tech and allowing them to meet each other. Find out more about OWOOT at our website: http://owoot.org/ Join the OWOOT email list and chat channel: http://owoot.org/Join From andrew at morphoss.com Thu Oct 27 20:21:37 2011 From: andrew at morphoss.com (Andrew McMillan) Date: Fri, 28 Oct 2011 16:21:37 +1300 Subject: [Wellington-pm] Connecting to Perl repository (solved, 18 months later) In-Reply-To: (sfid-20100506_121910_402136_453BB8BC) References: <1273094467.9460.7.camel@putnam.wgtn.cat-it.co.nz> <1273100755.25358.117.camel@happy.home.mcmillan.net.nz> <1273101094.9460.12.camel@putnam.wgtn.cat-it.co.nz> (sfid-20100506_121910_402136_453BB8BC) Message-ID: <1319772098.1503.232.camel@dave.home.mcmillan.net.nz> On Thu, 2010-05-06 at 12:16 +1200, Dan Horne wrote: > Yeah, I guess it is a cache corruption because the problem isn't > consistent. Anyway, I've redirected to another dns server, and > everything's working Just to close the loop on this: http://andrew.mcmillan.net.nz/blog/in_which_an_obscure_conundrum_is_exposed Cheers, Andrew. -- ------------------------------------------------------------------------ andrew (AT) morphoss (DOT) com +64(272)DEBIAN Character is what you are in the dark! -- Lord John Whorfin ------------------------------------------------------------------------ -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 836 bytes Desc: This is a digitally signed message part URL: From grant at mclean.net.nz Thu Oct 27 20:32:21 2011 From: grant at mclean.net.nz (Grant McLean) Date: Fri, 28 Oct 2011 16:32:21 +1300 Subject: [Wellington-pm] Connecting to Perl repository (solved, 18 months later) In-Reply-To: <1319772098.1503.232.camel@dave.home.mcmillan.net.nz> References: <1273094467.9460.7.camel@putnam.wgtn.cat-it.co.nz> <1273100755.25358.117.camel@happy.home.mcmillan.net.nz> <1273101094.9460.12.camel@putnam.wgtn.cat-it.co.nz> (sfid-20100506_121910_402136_453BB8BC) <1319772098.1503.232.camel@dave.home.mcmillan.net.nz> Message-ID: <1319772741.922.14.camel@putnam> On Fri, 2011-10-28 at 16:21 +1300, Andrew McMillan wrote: > On Thu, 2010-05-06 at 12:16 +1200, Dan Horne wrote: > > Yeah, I guess it is a cache corruption because the problem isn't > > consistent. Anyway, I've redirected to another dns server, and > > everything's working > > Just to close the loop on this: > > http://andrew.mcmillan.net.nz/blog/in_which_an_obscure_conundrum_is_exposed Yeah that was an impressive piece of sleuthing by David Clarke (who I should point out has not been working on this for all of the last 18 months). I can just imagine the crappy C code that got a DNS response a mistook an AAAA record for an A record. My money is on the problem being in a DSL router or similar consumer device. Cheers Grant