From webmaster at biz-at-seoul.com Mon Jun 2 07:05:34 2003 From: webmaster at biz-at-seoul.com (rYAbgE) Date: Wed Aug 4 00:02:54 2004 Subject: [Adv:] u¢³øL¦vØ\E©ç¼ÌAú{¤iðØÖÌé`àEE Message-ID: An HTML attachment was scrubbed... URL: http://mail.pm.org/archives/melbourne-pm/attachments/20030602/65ca00b3/attachment.htm From jarich at perltraining.com.au Mon Jun 2 19:56:59 2003 From: jarich at perltraining.com.au (Jacinta Richardson) Date: Wed Aug 4 00:02:54 2004 Subject: Webhost in Melbourne In-Reply-To: Message-ID: On Tue, 27 May 2003, Rick Measham wrote: > I'm looking for a local web-host and I figured PMers might be able to help. > > Here's the requirements: > 1. Linux/Unix based (not Windows!) > 2. Apx 20MB Storage > 3. Virtual Machine would be good otherwise: > 4. Healthy attitude to adding new perl modules > 5. PostGreSQL database access (with multiple databases) > 6. Unlimited email accounts, with POP access, forwarding, > SpamAssassin filtering etc. > > I'm currently getting all this from hub.org, but their servers are > unreliable and are in Panama! > > Something local would be better (and faster) G'day Rick, I didn't see that anyone had responded to you about this, so I just thought I might suggest a company I once worked for: Obsidian Consulting Group. I wasn't ever involved with their hosting side of things, so I don't know how suitable they'll be, but I suspect they'll at least be willing to negotiate on many of your requirements. You can find their webpage at www.obsidian.com.au I'm very surprised that noone else mentioned anywhere, but perhaps it was taken off list. all the best, Jacinta -- ("`-''-/").___..--''"`-._ | Jacinta Richardson | `6_ 6 ) `-. ( ).`-.__.`) | Perl Training Australia | (_Y_.)' ._ ) `._ `. ``-..-' | +613 9354 6001 | _..`--'_..-_/ /--'_.' ,' | contact@perltraining.com.au | (il),-'' (li),' ((!.-' | www.perltraining.com.au | From Adam.Clarke at StrategicData.com.au Mon Jun 2 23:41:32 2003 From: Adam.Clarke at StrategicData.com.au (Adam Clarke) Date: Wed Aug 4 00:02:55 2004 Subject: PerlEZ? Message-ID: <3EDC26FC.8070006@StrategicData.com.au> Hi all, At the last meeting someone mentioned a tool that makes creating a COM object from a perl Module that can be called from Windows apps relatively easy. Can anyone steer me in the right direction? Cheers -- Adam Clarke Strategic Data Pty Ltd www.strategicdata.com.au Adam.Clarke@StrategicData.com.au [p] +61-3-9348-2013 [f] +61-3-9348-2015 From pjf at perltraining.com.au Mon Jun 2 23:52:06 2003 From: pjf at perltraining.com.au (Paul Fenwick) Date: Wed Aug 4 00:02:55 2004 Subject: PerlEZ? In-Reply-To: <3EDC26FC.8070006@StrategicData.com.au> References: <3EDC26FC.8070006@StrategicData.com.au> Message-ID: <20030603045206.GE19862@mukc.org.au> G'day Adam, On Tue, Jun 03, 2003 at 02:41:32PM +1000, Adam Clarke wrote: > At the last meeting someone mentioned a tool that makes creating a COM > object from a perl Module that can be called from Windows apps > relatively easy. Can anyone steer me in the right direction? One of the tools mentioned was the Perl Dev Kit from ActiveState, http://www.activestate.com/Products/Perl_Dev_Kit/ . It provides the ability to create ActiveX controls in Perl, and to use and build new .NET objects with Perl. I'm looking forward to playing with this in the near future, as I have a few customers for which this sort of thing will prove very useful. I don't remember much about PerlEZ, I'm afraid. Perhaps Graham can enlighten us? Cheers, Paul -- Paul Fenwick | http://perltraining.com.au/ Director of Training | Ph: +61 3 9354 6001 Perl Training Australia | Fax: +61 3 9354 2681 From Adam.Clarke at StrategicData.com.au Tue Jun 3 00:09:38 2003 From: Adam.Clarke at StrategicData.com.au (Adam Clarke) Date: Wed Aug 4 00:02:55 2004 Subject: PerlEZ? In-Reply-To: <20030603045206.GE19862@mukc.org.au> References: <3EDC26FC.8070006@StrategicData.com.au> <20030603045206.GE19862@mukc.org.au> Message-ID: <3EDC2D92.5090208@StrategicData.com.au> Paul Fenwick wrote: >One of the tools mentioned was the Perl Dev Kit from ActiveState, >http://www.activestate.com/Products/Perl_Dev_Kit/ . > Ack However I should have said that I thought there was a open source / free alternative mentioned that was kind of a wrapper for PerlEZ which is in the basic ActiveState Perl distro (the freebie). >I don't remember much about PerlEZ, I'm afraid. Perhaps Graham >can enlighten us? > > PerlEZ is a method of embedding a perl interpreter under Windows. Some of this may be the invention of my own optimism however. It may have been Jeremy Howard who provided at least one of the comments that I recalled. From Adam.Clarke at StrategicData.com.au Tue Jun 3 00:29:16 2003 From: Adam.Clarke at StrategicData.com.au (Adam Clarke) Date: Wed Aug 4 00:02:55 2004 Subject: PerlEZ? In-Reply-To: <004b01c2fcc5$ed021a10$1200a8c0@sammy> References: <3EDC26FC.8070006@StrategicData.com.au> <20030603045206.GE19862@mukc.org.au> <3EDC2D92.5090208@StrategicData.com.au> <004b01c2fcc5$ed021a10$1200a8c0@sammy> Message-ID: <3EDC322C.8070603@StrategicData.com.au> Thanks Jeremy, That's exactly what I was part-remembering. Cheers Adam From Joe.M at comune.re.it Tue Jun 3 15:43:47 2003 From: Joe.M at comune.re.it (Gov't Services) Date: Wed Aug 4 00:02:55 2004 Subject: Make your financial future secure 9741 Message-ID: <0000186525eb$00006350$00002aa3@arcturus.ciril.fr> An HTML attachment was scrubbed... URL: http://mail.pm.org/archives/melbourne-pm/attachments/20030603/e5ae0fda/attachment.htm From scottp at dd.com.au Tue Jun 3 18:02:22 2003 From: scottp at dd.com.au (Scott Penrose) Date: Wed Aug 4 00:02:55 2004 Subject: Next Weeks Meeting Message-ID: <6F2FB59E-9617-11D7-AB9A-003065B58CF8@dd.com.au> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Hey Dudes, I have had a bit of a chaotic week and have not yet organised anything for next week (apart from part two of Beginners Perl). Does anyone have any ideas, offers for talks or suggestions ? Scooter - -- Scott Penrose Anthropomorphic Personification Expert http://search.cpan.org/search?author=SCOTT scott@cpan.org Dismaimer: While every attempt has been made to make sure that this email only contains zeros and ones, there has been no effort made to guarantee the quantity or the order. -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.0.6 (Darwin) Comment: For info see http://www.gnupg.org iD8DBQE+3SkBDCFCcmAm26YRAicXAJ9rixzHKF0V7DE8Dlq0+sYRXV70/ACdH/XF ajJ1AnvC2x5FyN/+SuR4YpM= =BXhD -----END PGP SIGNATURE----- From stas at stason.org Tue Jun 3 22:21:26 2003 From: stas at stason.org (Stas Bekman) Date: Wed Aug 4 00:02:55 2004 Subject: Next Weeks Meeting References: <6F2FB59E-9617-11D7-AB9A-003065B58CF8@dd.com.au> Message-ID: <3EDD65B6.2010108@stason.org> Scott Penrose wrote: > -----BEGIN PGP SIGNED MESSAGE----- > Hash: SHA1 > > Hey Dudes, > > I have had a bit of a chaotic week and have not yet organised anything > for next week (apart from part two of Beginners Perl). > > Does anyone have any ideas, offers for talks or suggestions ? I can always teach some more mod_perl ;) 10 minutes to 10 hours... For example now I'm working on the document: How Apache::MP3 was ported to mod_perl 2.0 Does it sound interesting? __________________________________________________________________ Stas Bekman JAm_pH ------> Just Another mod_perl Hacker http://stason.org/ mod_perl Guide ---> http://perl.apache.org mailto:stas@stason.org http://use.perl.org http://apacheweek.com http://modperlbook.org http://apache.org http://ticketmaster.com From simon at unisolve.com.au Tue Jun 3 22:34:48 2003 From: simon at unisolve.com.au (Simon Taylor) Date: Wed Aug 4 00:02:55 2004 Subject: The mod perl book Message-ID: <200306041334.48497.simon@unisolve.com.au> Hello Melbourne Perl Mongers, Great news. Stas' new book "practical mod_perl" is now an official Oreilly title. http://modperlbook.org/ http://www.oreilly.com/catalog/pmodperl/ Regards, Simon Taylor -- Unisolve Pty Ltd - Melbourne, Australia +61 3 9568 2005 From jarich at perltraining.com.au Tue Jun 3 23:01:36 2003 From: jarich at perltraining.com.au (Jacinta Richardson) Date: Wed Aug 4 00:02:55 2004 Subject: Next Weeks Meeting In-Reply-To: <3EDD65B6.2010108@stason.org> Message-ID: On Wed, 4 Jun 2003, Stas Bekman wrote: > I can always teach some more mod_perl ;) 10 minutes to 10 hours... > > For example now I'm working on the document: > > How Apache::MP3 was ported to mod_perl 2.0 > > Does it sound interesting? Sounds great to me! Congratulations on the book too! Jacinta -- ("`-''-/").___..--''"`-._ | Jacinta Richardson | `6_ 6 ) `-. ( ).`-.__.`) | Perl Training Australia | (_Y_.)' ._ ) `._ `. ``-..-' | +613 9354 6001 | _..`--'_..-_/ /--'_.' ,' | contact@perltraining.com.au | (il),-'' (li),' ((!.-' | www.perltraining.com.au | From 237409 at delphi.com Sat Jun 7 23:26:48 2003 From: 237409 at delphi.com (237409@delphi.com) Date: Wed Aug 4 00:02:55 2004 Subject: 237409 NORTON SYSTEMWORKS CLEARANCE SALE_ONLY $38.95! 387377564 Message-ID: <200306071518.h57FISw06958@mail.pm.org> An HTML attachment was scrubbed... URL: http://mail.pm.org/archives/melbourne-pm/attachments/20030607/e6af9582/attachment.htm From j1328 at ms89.url.com.tw Mon Jun 9 11:38:15 2003 From: j1328 at ms89.url.com.tw (=?Big5?B?qHyp+g==?=) Date: Wed Aug 4 00:02:55 2004 Subject: =?Big5?B?vda7oaRXr1qkfqazpqykSg==?= Message-ID: <200306091637.h59Gb4B32636@mail.pm.org> An HTML attachment was scrubbed... URL: http://mail.pm.org/archives/melbourne-pm/attachments/20030610/e7a2c488/attachment.htm From 237455 at bigfoot.com Tue Jun 10 09:06:43 2003 From: 237455 at bigfoot.com (237455@bigfoot.com) Date: Wed Aug 4 00:02:55 2004 Subject: 237455 PROTECT YOUR COMPUTER AND YOUR VALUABLE... 1648721209 Message-ID: <200306100057.h5A0vkB06311@mail.pm.org> An HTML attachment was scrubbed... URL: http://mail.pm.org/archives/melbourne-pm/attachments/20030610/0f0968ca/attachment.htm From Tom.C at jalisco.it Tue Jun 10 14:02:25 2003 From: Tom.C at jalisco.it (DNN Inc.) Date: Wed Aug 4 00:02:55 2004 Subject: Have you heard of a no risk investment? 4258 Message-ID: <000047007c99$00001a12$00006839@oberon.tpgi.com.au> An HTML attachment was scrubbed... URL: http://mail.pm.org/archives/melbourne-pm/attachments/20030610/78b4e11d/attachment.htm From scottp at dd.com.au Tue Jun 10 02:14:33 2003 From: scottp at dd.com.au (Scott Penrose) Date: Wed Aug 4 00:02:55 2004 Subject: Melbourne.pm Meeting - Wednesday 11h of June 2003 - "Beginners Tk, Apache::MP3, perllab" Message-ID: <2FCA0A7C-9B13-11D7-B677-003065B58CF8@dd.com.au> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Welcome to May Melbourne.pm We are continuing our excellent talks this month ! This month we will be doing a beginners presentation on Tk, Apache::MP3 module and a discussion on perllab. Stas will also be taking general questions on mod_perl - so be prepared :-) Where: myinternet Level 8, myinternet House 14-20 Blackwood Street North Melbourne When: Wednesday the 11th of June 2003 - 6:30 pm Doors open from 6pm till 6:45pm Agenda: * Welcome to Melbourne.pm * "Beginners Tk" - Simon Taylor * "Apache::MP3" - Stas Bekman * "perllab" - Simon Taylor * Dinner :-) "Beginners Tk" - Simon Taylor Tk is one of the most omnipresent windowing toolkits around. Although it is old, and doesn't look fantastic, it works on Windows, Mac (Classic and X), and X Windows to name but some. If you want to know how to do a GUI in perl, then Tk is certainly the most portable. Simon will be back in future meetings to do more advanced Tk. "Apache::MP3" - Stas Bekman Apache::MP3 will generate streamable directories of MP3 and Ogg Vorbis files on your own Apache server - very cool. "perllab" - Simon Taylor Perl Doco for beginners. An introduction to a new concept. Scott - -- Scott Penrose Anthropomorphic Personification Expert http://search.cpan.org/search?author=SCOTT scott@cpan.org -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.0.6 (Darwin) Comment: For info see http://www.gnupg.org iD8DBQE+5YVdDCFCcmAm26YRAuI+AKCtUhVWhiAbEmbL56MH21okXCbz3QCeJiBJ MPJLTeipM1+VHx+/0Zc/3vI= =XLMp -----END PGP SIGNATURE----- From simon at unisolve.com.au Tue Jun 10 02:49:21 2003 From: simon at unisolve.com.au (Simon Taylor) Date: Wed Aug 4 00:02:55 2004 Subject: Melbourne.pm Meeting - Wednesday 11h of June 2003 - "Beginners Tk, Apache::MP3, perllab" In-Reply-To: <2FCA0A7C-9B13-11D7-B677-003065B58CF8@dd.com.au> References: <2FCA0A7C-9B13-11D7-B677-003065B58CF8@dd.com.au> Message-ID: <200306101749.21742.simon@unisolve.com.au> Hello perl mongers, > Tk is one of the most omnipresent windowing toolkits around. Although > it is old, and doesn't look fantastic, Or, as we'll see, it can look a lot slicker than you might think.... ;-) Regards, Simon Taylor -- Unisolve Pty Ltd - Melbourne, Australia +61 3 9568 2005 From david_dick at iprimus.com.au Tue Jun 10 04:59:50 2003 From: david_dick at iprimus.com.au (David Dick) Date: Wed Aug 4 00:02:55 2004 Subject: Converting '\n' to "\n" In-Reply-To: <200306101749.21742.simon@unisolve.com.au> References: <2FCA0A7C-9B13-11D7-B677-003065B58CF8@dd.com.au> <200306101749.21742.simon@unisolve.com.au> Message-ID: <3EE5AC16.2030706@iprimus.com.au> G'day all, Struck an interesting one today. Starting with my ($t) = '\n'; how does one convert it to be equal to "\n", ie a normal line feed? Any ideas? Tia -Dave From pjf at perltraining.com.au Tue Jun 10 05:18:54 2003 From: pjf at perltraining.com.au (Paul Fenwick) Date: Wed Aug 4 00:02:55 2004 Subject: Converting '\n' to "\n" In-Reply-To: <3EE5AC16.2030706@iprimus.com.au> References: <2FCA0A7C-9B13-11D7-B677-003065B58CF8@dd.com.au> <200306101749.21742.simon@unisolve.com.au> <3EE5AC16.2030706@iprimus.com.au> Message-ID: <20030610101854.GA18967@mukc.org.au> G'day David, On Tue, Jun 10, 2003 at 07:59:50PM +1000, David Dick wrote: > Struck an interesting one today. Starting with > > my ($t) = '\n'; > > how does one convert it to be equal to "\n", ie a normal line feed? $t =~ s/\\n/\n/g; Or am I missing something here? Cheers, Paul -- Paul Fenwick | http://perltraining.com.au/ Director of Training | Ph: +61 3 9354 6001 Perl Training Australia | Fax: +61 3 9354 2681 From pjf at perltraining.com.au Tue Jun 10 05:20:14 2003 From: pjf at perltraining.com.au (Paul Fenwick) Date: Wed Aug 4 00:02:55 2004 Subject: No pjf at melb.pm tomorrow :( Message-ID: <20030610102014.GB18967@mukc.org.au> G'day everyone, Unfortunately I won't be attending tomorrow's Melb.PM as I'll be on a flight to Canberra, teaching Perl of all things. :) Cheers, Paul -- Paul Fenwick | http://perltraining.com.au/ Director of Training | Ph: +61 3 9354 6001 Perl Training Australia | Fax: +61 3 9354 2681 From rickm at isite.net.au Tue Jun 10 05:24:13 2003 From: rickm at isite.net.au (Rick Measham) Date: Wed Aug 4 00:02:55 2004 Subject: Converting '\n' to "\n" In-Reply-To: <3EE5AC16.2030706@iprimus.com.au> References: <2FCA0A7C-9B13-11D7-B677-003065B58CF8@dd.com.au> <200306101749.21742.simon@unisolve.com.au> <3EE5AC16.2030706@iprimus.com.au> Message-ID: At 7:59 PM +1000 10/6/03, David Dick wrote: >G'day all, >Struck an interesting one today. Starting with > >my ($t) = '\n'; Firstly, it should be either: my $t = '\n'; # or possibly my ($t) = ('\n'); # but only if there's a good reason (I can't think of one) The parens () say 'this is a list' so in your example you're assigning a single value to a list. >how does one convert it to be equal to "\n", ie a normal line feed? $t=~s/\\n/\n/g; Will do the trick .. is that what you need or have I completely missed the point? -- -------------------------------------------------------- There are 10 kinds of people: those that understand binary, and those that don't. -------------------------------------------------------- The day Microsoft makes something that doesn't suck is the day they start selling vacuum cleaners -------------------------------------------------------- "Write a wise proverb and your name will live forever." -- Anonymous -------------------------------------------------------- From david_dick at iprimus.com.au Tue Jun 10 05:27:44 2003 From: david_dick at iprimus.com.au (David Dick) Date: Wed Aug 4 00:02:55 2004 Subject: Converting '\n' to "\n" In-Reply-To: <20030610101854.GA18967@mukc.org.au> References: <2FCA0A7C-9B13-11D7-B677-003065B58CF8@dd.com.au> <200306101749.21742.simon@unisolve.com.au> <3EE5AC16.2030706@iprimus.com.au> <20030610101854.GA18967@mukc.org.au> Message-ID: <3EE5B2A0.2040708@iprimus.com.au> Paul Fenwick wrote: >G'day David, > >On Tue, Jun 10, 2003 at 07:59:50PM +1000, David Dick wrote: > > > >>Struck an interesting one today. Starting with >> >>my ($t) = '\n'; >> >>how does one convert it to be equal to "\n", ie a normal line feed? >> >> > > $t =~ s/\\n/\n/g; > i thought i was crazy for a second there. Then i realised that i just hadn't stated the problem fully. :) for a more general solution, $t =~ s/\\(.)/\$1/g; # was the best i could guess at and doesn't work of course. I'm running an Expect app with stuff drawn from a database, so "\r", "\n", "\whatever" is highly probable. :) > >Or am I missing something here? > >Cheers, > > Paul > > > From joshua at roughtrade.net Tue Jun 10 05:31:25 2003 From: joshua at roughtrade.net (Joshua Goodall) Date: Wed Aug 4 00:02:55 2004 Subject: Converting '\n' to "\n" In-Reply-To: <20030610101854.GA18967@mukc.org.au> References: <2FCA0A7C-9B13-11D7-B677-003065B58CF8@dd.com.au> <200306101749.21742.simon@unisolve.com.au> <3EE5AC16.2030706@iprimus.com.au> <20030610101854.GA18967@mukc.org.au> Message-ID: <20030610103125.GH24070@roughtrade.net> On Tue, Jun 10, 2003 at 08:18:54PM +1000, Paul Fenwick wrote: > G'day David, > > On Tue, Jun 10, 2003 at 07:59:50PM +1000, David Dick wrote: > > > Struck an interesting one today. Starting with > > > > my ($t) = '\n'; > > > > how does one convert it to be equal to "\n", ie a normal line feed? > > $t =~ s/\\n/\n/g; > > Or am I missing something here? More generally, if you want to use a string literal interpolation that would normally be performed at compile-time, perhaps $foo = eval qq("$t"); Koshua. -- Joshua Goodall "tea makes itself" joshua@roughtrade.net - Ana Susanj From joshua at roughtrade.net Tue Jun 10 05:32:43 2003 From: joshua at roughtrade.net (Joshua Goodall) Date: Wed Aug 4 00:02:55 2004 Subject: No pjf at melb.pm tomorrow :( In-Reply-To: <20030610102014.GB18967@mukc.org.au> References: <20030610102014.GB18967@mukc.org.au> Message-ID: <20030610103243.GI24070@roughtrade.net> On Tue, Jun 10, 2003 at 08:20:14PM +1000, Paul Fenwick wrote: > G'day everyone, > > Unfortunately I won't be attending tomorrow's Melb.PM > as I'll be on a flight to Canberra, teaching Perl of all things. :) Most surely better than the in-flight movie! K From david_dick at iprimus.com.au Tue Jun 10 05:31:46 2003 From: david_dick at iprimus.com.au (David Dick) Date: Wed Aug 4 00:02:55 2004 Subject: Converting '\n' to "\n" In-Reply-To: <20030610103125.GH24070@roughtrade.net> References: <2FCA0A7C-9B13-11D7-B677-003065B58CF8@dd.com.au> <200306101749.21742.simon@unisolve.com.au> <3EE5AC16.2030706@iprimus.com.au> <20030610101854.GA18967@mukc.org.au> <20030610103125.GH24070@roughtrade.net> Message-ID: <3EE5B392.5040003@iprimus.com.au> >More generally, if you want to use a string literal interpolation that >would normally be performed at compile-time, perhaps > >$foo = eval qq("$t"); > >Koshua. > > very cool. many thanks and apologies for misstating the problem. :) From scottp at dd.com.au Tue Jun 10 05:51:39 2003 From: scottp at dd.com.au (Scott Penrose) Date: Wed Aug 4 00:02:55 2004 Subject: Cleaning Up on Edit from Perl Message-ID: <837673E5-9B31-11D7-B677-003065B58CF8@dd.com.au> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Hey Dudes, We have a daemon which takes up over 120MB before exit. It has HEAPS of objects all open. It performs adequately and at least 80MB of the system is shared, so that when we fork we are getting a best economy of memory. Like Apache we tend to prefork and only allow our processes to run for a while to capture those occasional memory leaks (somewhere between 25 and 200 requests before exiting). On Exit the daemon flushes log entries and dies. This sends a HUP to the parent which restarts a new child. My problem is that on exit Perl unwinds each of its objects that is created, calling DESTROY where possible on each. This takes a MASSIVE amount of time, during which, even the normally read only modules (with huge data) can tend to come out of share as they are written to. So time is huge and memory is huge ! Two question - Can and Should I do a ABSOLUTE EXIT. What I mean to say is - QUIT the process (equal to do a kill -9). Even if my code was perfect Perl still deallocates all its memory - which all takes a while with such a large amount of code. So... I know that I can send myself a KILL, and I know I can do an exit in C - but ... * Should I? * Is there a Perl way to do it (properly - not kill) There are other good reasons to do this - eg: a system is in an unstable state (database are fragile or going down) and you don't want your objects to exit. Scooter - -- Scott Penrose Welcome to the Digital Dimension http://www.dd.com.au/ scottp@dd.com.au Dismaimer: Contents of this mail and signature are bound to change randomly. Whilst every attempt has been made to control said randomness, the author wishes to remain blameless for the number of eggs that damn chicken laid. Oh and I don't want to hear about butterflies either. -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.0.6 (Darwin) Comment: For info see http://www.gnupg.org iD8DBQE+5bg+DCFCcmAm26YRAm6mAJ9SmfLqSbGKqvtWg51KCSzMYzIHegCffAqg NfI3D+5sYg7L15ih32vWN2A= =NYhZ -----END PGP SIGNATURE----- From wigs at stirfried.org Tue Jun 10 06:18:11 2003 From: wigs at stirfried.org (Aaron Wigley) Date: Wed Aug 4 00:02:55 2004 Subject: Cleaning Up on Edit from Perl In-Reply-To: <837673E5-9B31-11D7-B677-003065B58CF8@dd.com.au>; from scottp@dd.com.au on Tue, Jun 10, 2003 at 08:51:39PM +1000 References: <837673E5-9B31-11D7-B677-003065B58CF8@dd.com.au> Message-ID: <20030610211811.A3748@feathers.stirfried.org> On Tue, Jun 10, 2003 at 08:51:39PM +1000, Scott Penrose wrote: > Even if my code was perfect Perl still deallocates all its memory - > which all takes a while with such a large amount of code. > > So... I know that I can send myself a KILL, and I know I can do an exit > in C - but ... > > * Should I? Assuming that you know all external resources are disposed of adequately, then there isn't anything really stopping you. This also means that whatever code is added in future by any developers needs to be aware of this exit policy for the process and respond accordingly, even third party code/modules imported from CPAN. > * Is there a Perl way to do it (properly - not kill) You could always dispose of just those objects you don't want to have their destructors called by using Acme::Damn, uploaded to CPAN yesterday :-) -- Aaron From stas at stason.org Tue Jun 10 18:39:40 2003 From: stas at stason.org (Stas Bekman) Date: Wed Aug 4 00:02:55 2004 Subject: Cleaning Up on Edit from Perl References: <837673E5-9B31-11D7-B677-003065B58CF8@dd.com.au> Message-ID: <3EE66C3C.6010807@stason.org> Scott Penrose wrote: > -----BEGIN PGP SIGNED MESSAGE----- > Hash: SHA1 > > Hey Dudes, > > We have a daemon which takes up over 120MB before exit. It has HEAPS of > objects all open. It performs adequately and at least 80MB of the system > is shared, so that when we fork we are getting a best economy of memory. > > Like Apache we tend to prefork and only allow our processes to run for a > while to capture those occasional memory leaks (somewhere between 25 and > 200 requests before exiting). > > On Exit the daemon flushes log entries and dies. This sends a HUP to the > parent which restarts a new child. > > My problem is that on exit Perl unwinds each of its objects that is > created, calling DESTROY where possible on each. This takes a MASSIVE > amount of time, during which, even the normally read only modules (with > huge data) can tend to come out of share as they are written to. So time > is huge and memory is huge ! > > Two question - Can and Should I do a ABSOLUTE EXIT. What I mean to say > is - QUIT the process (equal to do a kill -9). > > Even if my code was perfect Perl still deallocates all its memory - > which all takes a while with such a large amount of code. > > So... I know that I can send myself a KILL, and I know I can do an exit > in C - but ... > > * Should I? > > * Is there a Perl way to do it (properly - not kill) > > There are other good reasons to do this - eg: a system is in an unstable > state (database are fragile or going down) and you don't want your > objects to exit. The mod_perl guide comes to help: http://perl.apache.org/docs/1.0/guide/troubleshooting.html#_warn__child_process_30388_did_not_exit__sending_another_SIGHUP PERL_DESTRUCT_LEVEL=-1 perl my_heavy_destruct_program __________________________________________________________________ Stas Bekman JAm_pH ------> Just Another mod_perl Hacker http://stason.org/ mod_perl Guide ---> http://perl.apache.org mailto:stas@stason.org http://use.perl.org http://apacheweek.com http://modperlbook.org http://apache.org http://ticketmaster.com From scottp at dd.com.au Tue Jun 10 19:06:24 2003 From: scottp at dd.com.au (Scott Penrose) Date: Wed Aug 4 00:02:55 2004 Subject: [dev] Melbourne.pm Meeting - Wednesday 11h of June 2003 - "Beginners Tk, Apache::MP3, perllab" In-Reply-To: <2FCA0A7C-9B13-11D7-B677-003065B58CF8@dd.com.au> Message-ID: <8A418455-9BA0-11D7-B677-003065B58CF8@dd.com.au> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Made a small mistake around Apache::MP3 (sorry Stas). Stas will be showing us how to port from mod_perl 1 to mod_perl 2 using Apache::MP3 as an example. Man... must have been on too many Cappuccinos yesterday :-) Scooter On Tuesday, Jun 10, 2003, at 17:14 Australia/Melbourne, Scott Penrose wrote: > -----BEGIN PGP SIGNED MESSAGE----- > Hash: SHA1 > > Welcome to May Melbourne.pm > > We are continuing our excellent talks this month ! > > This month we will be doing a beginners presentation on Tk, > Apache::MP3 module and a discussion on perllab. > Stas will also be taking general questions on mod_perl - so be > prepared :-) > > Where: > myinternet > Level 8, myinternet House > 14-20 Blackwood Street > North Melbourne > > When: > Wednesday the 11th of June 2003 - 6:30 pm > Doors open from 6pm till 6:45pm > > Agenda: > * Welcome to Melbourne.pm > * "Beginners Tk" - Simon Taylor > * "Apache::MP3" - Stas Bekman > * "perllab" - Simon Taylor > * Dinner :-) > > "Beginners Tk" - Simon Taylor > > Tk is one of the most omnipresent windowing toolkits around. Although > it > is old, and doesn't look fantastic, it works on Windows, Mac (Classic > and X), > and X Windows to name but some. If you want to know how to do a GUI > in perl, > then Tk is certainly the most portable. > > Simon will be back in future meetings to do more advanced Tk. > > "Apache::MP3" - Stas Bekman > > Apache::MP3 will generate streamable directories of MP3 and Ogg > Vorbis files > on your own Apache server - very cool. > > "perllab" - Simon Taylor > > Perl Doco for beginners. An introduction to a new concept. > > > Scott > - -- Scott Penrose > Anthropomorphic Personification Expert > http://search.cpan.org/search?author=SCOTT > scott@cpan.org > -----BEGIN PGP SIGNATURE----- > Version: GnuPG v1.0.6 (Darwin) > Comment: For info see http://www.gnupg.org > > iD8DBQE+5YVdDCFCcmAm26YRAuI+AKCtUhVWhiAbEmbL56MH21okXCbz3QCeJiBJ > MPJLTeipM1+VHx+/0Zc/3vI= > =XLMp > -----END PGP SIGNATURE----- > > > > > > > > > > > > > - -- Scott Penrose Welcome to the Digital Dimension http://www.dd.com.au/ scottp@dd.com.au Dismaimer: Contents of this mail and signature are bound to change randomly. Whilst every attempt has been made to control said randomness, the author wishes to remain blameless for the number of eggs that damn chicken laid. Oh and I don't want to hear about butterflies either. -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.0.6 (Darwin) Comment: For info see http://www.gnupg.org iD8DBQE+5nKEDCFCcmAm26YRAg44AJ95RXKBZcLsArFKPZVFdWpB4ieQ4wCgmIem 3u6Rjej8ZLo1siKxcE1OiHM= =kGws -----END PGP SIGNATURE----- From scottp at dd.com.au Tue Jun 10 23:22:53 2003 From: scottp at dd.com.au (Scott Penrose) Date: Wed Aug 4 00:02:55 2004 Subject: Cleaning Up on Edit from Perl In-Reply-To: <3EE66C3C.6010807@stason.org> Message-ID: <5ED9E60C-9BC4-11D7-B677-003065B58CF8@dd.com.au> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 On Wednesday, Jun 11, 2003, at 09:39 Australia/Melbourne, Stas Bekman wrote: > The mod_perl guide comes to help: > http://perl.apache.org/docs/1.0/guide/ > troubleshooting.html#_warn__child_process_30388_did_not_exit__sending_a > nother_SIGHUP > > PERL_DESTRUCT_LEVEL=-1 perl my_heavy_destruct_program On exploring this further I have discovered that this only works for mod_perl.... From perlhack > if you want to run any of the tests yourself manually using the > pureperl or perl.third executables, please note that by default perl > does not explicitly cleanup all the memory it has allocated (such as > global memory arenas) but instead lets the exit() of the whole program > "take care" of such allocations, also known as "global destruction of > objects". > > There is a way to tell perl to do complete cleanup: set the > environment variable PERL_DESTRUCT_LEVEL to a non-zero value. The > t/TEST wrapper does set this to 2, and this is what you need to do > too, if you don't want to see the "global leaks": For example, for > "third-degreed" Perl: > (Note: the mod_perl apache module uses also this environment variable > for its own purposes and extended its semantics. Refer to the mod_perl > documentation for more information.) Note the last part - It seems that mod_perl has extended to support the - -1. For now I am going with the following approach. kill 9, $$; Scott - -- Scott Penrose Anthropomorphic Personification Expert http://search.cpan.org/search?author=SCOTT scott@cpan.org Dismaimer: While every attempt has been made to make sure that this email only contains zeros and ones, there has been no effort made to guarantee the quantity or the order. -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.0.6 (Darwin) Comment: For info see http://www.gnupg.org iD8DBQE+5q6gDCFCcmAm26YRAj0HAKCp4pj3cgGMsfCfoQw/sX9I929MVACfWj7e hkHM41L2aW5OjC9zN1CbQpY= =Pf5P -----END PGP SIGNATURE----- From stas at stason.org Wed Jun 11 18:36:20 2003 From: stas at stason.org (Stas Bekman) Date: Wed Aug 4 00:02:55 2004 Subject: Cleaning Up on Edit from Perl References: <5ED9E60C-9BC4-11D7-B677-003065B58CF8@dd.com.au> Message-ID: <3EE7BCF4.3040004@stason.org> Scott Penrose wrote: > -----BEGIN PGP SIGNED MESSAGE----- > Hash: SHA1 > > > On Wednesday, Jun 11, 2003, at 09:39 Australia/Melbourne, Stas Bekman > wrote: > >> The mod_perl guide comes to help: >> http://perl.apache.org/docs/1.0/guide/ >> troubleshooting.html#_warn__child_process_30388_did_not_exit__sending_a >> nother_SIGHUP >> >> PERL_DESTRUCT_LEVEL=-1 perl my_heavy_destruct_program > > > On exploring this further I have discovered that this only works for > mod_perl.... > > From perlhack > >> if you want to run any of the tests yourself manually using the >> pureperl or perl.third executables, please note that by default perl >> does not explicitly cleanup all the memory it has allocated (such as >> global memory arenas) but instead lets the exit() of the whole >> program "take care" of such allocations, also known as "global >> destruction of objects". >> >> There is a way to tell perl to do complete cleanup: set the >> environment variable PERL_DESTRUCT_LEVEL to a non-zero value. The >> t/TEST wrapper does set this to 2, and this is what you need to do >> too, if you don't want to see the "global leaks": For example, for >> "third-degreed" Perl: >> (Note: the mod_perl apache module uses also this environment variable >> for its own purposes and extended its semantics. Refer to the >> mod_perl documentation for more information.) > > > Note the last part - It seems that mod_perl has extended to support the > - -1. > > For now I am going with the following approach. > > kill 9, $$; Indeed. perlhack.pod says: =head2 PERL_DESTRUCT_LEVEL If you want to run any of the tests yourself manually using the pureperl or perl.third executables, please note that by default perl B explicitly cleanup all the memory it has allocated (such as global memory arenas) but instead lets the exit() of the whole program "take care" of such allocations, also known as "global destruction of objects". There is a way to tell perl to do complete cleanup: set the environment variable PERL_DESTRUCT_LEVEL to a non-zero value. The t/TEST wrapper does set this to 2, and this is what you need to do too, if you don't want to see the "global leaks": For example, for "third-degreed" Perl: env PERL_DESTRUCT_LEVEL=2 ./perl.third -Ilib t/foo/bar.t (Note: the mod_perl apache module uses also this environment variable for its own purposes and extended its semantics. Refer to the mod_perl documentation for more information. Also, spawned threads do the equivalent of setting this variable to the value 1.) If, at the end of a run you get the message I, you can recompile with C<-DDEBUG_LEAKING_SCALARS>, which will cause the addresses of all those leaked SVs to be dumped; it also converts C from a macro into a real function, so you can use your favourite debugger to discover where those pesky SVs were allocated. __________________________________________________________________ Stas Bekman JAm_pH ------> Just Another mod_perl Hacker http://stason.org/ mod_perl Guide ---> http://perl.apache.org mailto:stas@stason.org http://use.perl.org http://apacheweek.com http://modperlbook.org http://apache.org http://ticketmaster.com From stas at stason.org Wed Jun 11 21:34:34 2003 From: stas at stason.org (Stas Bekman) Date: Wed Aug 4 00:02:55 2004 Subject: Cleaning Up on Edit from Perl References: <5ED9E60C-9BC4-11D7-B677-003065B58CF8@dd.com.au> <3EE7BCF4.3040004@stason.org> Message-ID: <3EE7E6BA.3040506@stason.org> Somebody, please send an XXX-large coffee pack to the IBM Centre. My apologies to Scott, I have to drink my coffee before starting to answer emails. Apparently I have quoted what Scott has quoted :( Stas Bekman wrote: > Scott Penrose wrote: > >> -----BEGIN PGP SIGNED MESSAGE----- >> Hash: SHA1 >> >> >> On Wednesday, Jun 11, 2003, at 09:39 Australia/Melbourne, Stas Bekman >> wrote: >> >>> The mod_perl guide comes to help: >>> http://perl.apache.org/docs/1.0/guide/ >>> troubleshooting.html#_warn__child_process_30388_did_not_exit__sending_a >>> nother_SIGHUP >>> >>> PERL_DESTRUCT_LEVEL=-1 perl my_heavy_destruct_program >> >> >> >> On exploring this further I have discovered that this only works for >> mod_perl.... >> >> From perlhack >> >>> if you want to run any of the tests yourself manually using the >>> pureperl or perl.third executables, please note that by default perl >>> does not explicitly cleanup all the memory it has allocated (such as >>> global memory arenas) but instead lets the exit() of the whole >>> program "take care" of such allocations, also known as "global >>> destruction of objects". >>> >>> There is a way to tell perl to do complete cleanup: set the >>> environment variable PERL_DESTRUCT_LEVEL to a non-zero value. The >>> t/TEST wrapper does set this to 2, and this is what you need to do >>> too, if you don't want to see the "global leaks": For example, for >>> "third-degreed" Perl: >>> (Note: the mod_perl apache module uses also this environment >>> variable for its own purposes and extended its semantics. Refer to >>> the mod_perl documentation for more information.) >> >> >> >> Note the last part - It seems that mod_perl has extended to support >> the - -1. >> >> For now I am going with the following approach. >> >> kill 9, $$; > > > Indeed. perlhack.pod says: > > =head2 PERL_DESTRUCT_LEVEL > > If you want to run any of the tests yourself manually using the > pureperl or perl.third executables, please note that by default > perl B explicitly cleanup all the memory it has allocated > (such as global memory arenas) but instead lets the exit() of > the whole program "take care" of such allocations, also known > as "global destruction of objects". > > There is a way to tell perl to do complete cleanup: set the > environment variable PERL_DESTRUCT_LEVEL to a non-zero value. > The t/TEST wrapper does set this to 2, and this is what you > need to do too, if you don't want to see the "global leaks": > For example, for "third-degreed" Perl: > > env PERL_DESTRUCT_LEVEL=2 ./perl.third -Ilib t/foo/bar.t > > (Note: the mod_perl apache module uses also this environment variable > for its own purposes and extended its semantics. Refer to the mod_perl > documentation for more information. Also, spawned threads do the > equivalent of setting this variable to the value 1.) > > If, at the end of a run you get the message I, you can > recompile with C<-DDEBUG_LEAKING_SCALARS>, which will cause > the addresses of all those leaked SVs to be dumped; it also converts > C from a macro into a real function, so you can use your > favourite debugger to discover where those pesky SVs were allocated. > > > __________________________________________________________________ > Stas Bekman JAm_pH ------> Just Another mod_perl Hacker > http://stason.org/ mod_perl Guide ---> http://perl.apache.org > mailto:stas@stason.org http://use.perl.org http://apacheweek.com > http://modperlbook.org http://apache.org http://ticketmaster.com -- __________________________________________________________________ Stas Bekman JAm_pH ------> Just Another mod_perl Hacker http://stason.org/ mod_perl Guide ---> http://perl.apache.org mailto:stas@stason.org http://use.perl.org http://apacheweek.com http://modperlbook.org http://apache.org http://ticketmaster.com From scottp at dd.com.au Tue Jun 17 01:18:03 2003 From: scottp at dd.com.au (Scott Penrose) Date: Wed Aug 4 00:02:55 2004 Subject: Matching two lists of users Message-ID: <7412AF5A-A08B-11D7-AACE-003065B58CF8@dd.com.au> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Hey Dudes, I am writing code to match a set of users. One set is a set of users existing on a system, I have their login name, first and last name. The other list is a list a user has typed in and I want to match users where ever I can. The basic rules are simple. If I find a match and there is only one of that type then I accept that. For example, the user scottp = Scott Penrose Would match on scottp Scott Penrose Penrose, Scott Scott D Penrose Penrose, Scott D SDP SP Ignoring case, and ignoring spurious white space. However, if there is a Simon Portis also in my list of users, then SP would not be a valid match as it is can't be absolutely determined. The code is not that hard or complex, but it strikes me as being extremely useful. One thing I thought very useful for is matching in a search and in email address in your email program. You can match on people in your list and even who you have ever sent mail to. But... like always, as soon as I think something is useful I find it is usually already written. So ... does anyone know of a module like this on CPAN etc ? Scooter - -- Scott Penrose Welcome to the Digital Dimension http://www.dd.com.au/ scottp@dd.com.au Dismaimer: Contents of this mail and signature are bound to change randomly. Whilst every attempt has been made to control said randomness, the author wishes to remain blameless for the number of eggs that damn chicken laid. Oh and I don't want to hear about butterflies either. -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.0.6 (Darwin) Comment: For info see http://www.gnupg.org iD8DBQE+7rKfDCFCcmAm26YRAp0mAJ4ibKDe2Z2Pxos5E9o/pZtGNOxavACdG/tV jLFhHoYjrylrRFSw0c+uJ6g= =ucyq -----END PGP SIGNATURE----- From simon at unisolve.com.au Tue Jun 17 01:31:14 2003 From: simon at unisolve.com.au (Simon Taylor) Date: Wed Aug 4 00:02:55 2004 Subject: Matching two lists of users In-Reply-To: <7412AF5A-A08B-11D7-AACE-003065B58CF8@dd.com.au> References: <7412AF5A-A08B-11D7-AACE-003065B58CF8@dd.com.au> Message-ID: <200306171631.14269.simon@unisolve.com.au> Hi Scott, > One thing I thought very useful for is matching in a search and in > email address in your email program. You can match on people in your > list and even who you have ever sent mail to. > > But... like always, as soon as I think something is useful I find it is > usually already written. So ... does anyone know of a module like this > on CPAN etc ? Have you had a look at Text::PhraseDistance? We've used it once and it seems quite robust. Regards, Simon Taylor -- Unisolve Pty Ltd - Melbourne, Australia +61 3 9568 2005 From jarich at perltraining.com.au Tue Jun 17 02:13:05 2003 From: jarich at perltraining.com.au (Jacinta Richardson) Date: Wed Aug 4 00:02:55 2004 Subject: Matching two lists of users In-Reply-To: <7412AF5A-A08B-11D7-AACE-003065B58CF8@dd.com.au> Message-ID: On Tue, 17 Jun 2003, Scott Penrose wrote: > The basic rules are simple. If I find a match and there is only one of > that type then I accept that. > > For example, the user > > scottp = Scott Penrose > > Would match on > > scottp > Scott Penrose > Penrose, Scott > Scott D Penrose > Penrose, Scott D > SDP > SP I've got _some_ suggestions but none that specifically answer your question: Lingua::Stem - applies stemming algorithms Text::Levenshtein - measures approximatelness String::Approx - as above Tie::Hash::Approx - uses String::Approx Tie::Hash::Regex (maybe) - tries to find values using the given regexp Text::Soundex - has some advantages. all the best, Jacinta -- ("`-''-/").___..--''"`-._ | Jacinta Richardson | `6_ 6 ) `-. ( ).`-.__.`) | Perl Training Australia | (_Y_.)' ._ ) `._ `. ``-..-' | +613 9354 6001 | _..`--'_..-_/ /--'_.' ,' | contact@perltraining.com.au | (il),-'' (li),' ((!.-' | www.perltraining.com.au | From Adam.Clarke at StrategicData.com.au Tue Jun 17 05:00:06 2003 From: Adam.Clarke at StrategicData.com.au (Adam Clarke) Date: Wed Aug 4 00:02:55 2004 Subject: Matching two lists of users In-Reply-To: References: Message-ID: <3EEEE6A6.9020808@StrategicData.com.au> Jacinta Richardson wrote: >Text::Soundex - has some advantages > Text::Metaphone also! -- Adam Clarke Strategic Data Pty Ltd www.strategicdata.com.au Adam.Clarke@StrategicData.com.au [p] +61-3-9348-2013 [f] +61-3-9348-2015 From david_dick at iprimus.com.au Tue Jun 17 07:17:44 2003 From: david_dick at iprimus.com.au (David Dick) Date: Wed Aug 4 00:02:55 2004 Subject: Matching two lists of users In-Reply-To: References: Message-ID: <3EEF06E8.4060804@iprimus.com.au> >>For example, the user >> >> scottp = Scott Penrose >> >>Would match on >> >> scottp >> Scott Penrose >> Penrose, Scott >> Scott D Penrose >> Penrose, Scott D >> SDP >> SP >> >> > >Lingua::Stem - applies stemming algorithms >Text::Levenshtein - measures approximatelness >String::Approx - as above > interesting problem, the research that string::approx is based on is the levenstein distance between two words, or the number of edits, deletes and adds required to turn one word into another. However, given such a huge range of values to match on, i don't think it'll be a simple fit. SDP for example will match just about everything before it gets to Scott Penrose. You'd need to do some pre-processing on your input values before string::approx (or anything) is useful to you. uru -Dave From scottp at dd.com.au Tue Jun 17 18:37:06 2003 From: scottp at dd.com.au (Scott Penrose) Date: Wed Aug 4 00:02:55 2004 Subject: Matching two lists of users In-Reply-To: <3EEF06E8.4060804@iprimus.com.au> Message-ID: <9AF9F242-A11C-11D7-A7F9-003065B58CF8@dd.com.au> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 I am still looking into these modules, and thanks heaps for all the replies I have had. But it appears there is nothing that thinks about users in the terms of unique identifiers and names. Here is a more complex example of some matching I want to do, and I think the right thing to do is some specific name based rules. What I know about the some users: Student ID: 123 Full Name: Scott Dustin Penrose Login: scottp Student ID: 666 Full Name: Brooke Penrose Login: brookep Student ID: 333 Full Name: Steven Trevor Platypus Login: steve Student ID: 444 Full Name: John Smithson Login: 123 Here is a list and what should match... 123 Fails, there is two 123 unique identifiers above sp Fails, there are two SP above sdp Found Scott Penrose Found Penrose, Scott Found Penrose, SD Found Penrose Fails, there are two Penrose, S Found John Smithson Found Steven Platypus Found Steven T Platypus Found Steven Trevor Platypus Found The trick is around how to split up the words and rejoin them. For example a person can have a two word surname, in which case the following would be wrong. Smith, David Ashton it should be Ashton Smith, David There is no way for me to know that, so likely I would accept any of the following... David Ashton Smith Smith, David Ashton Ashton Smith, David David Smith Smith, David Smith, D D Smith D A Smith Smith, D A David A Smith DS DAD and there are probably more. Of course if we have a David Smith as well as David Ashton Smith then lots of the above would be a fail. My current code has two hashes along the lines of... if (exist($match{"DAD"}) && ($count{"DAD"} == 1)) { # MATCH !!! } That way when building the match hash we increment the counter to keep track of more than one of that type, thus making it redundant. I guess to make it complete, I would have to provide a config to say how to treat each incoming field... For example 'Full_Name' => 'words', 'Student_ID' => 'unique', 'Login' => 'unique', Thus knowing to do the split up of words, and potential reorder, or just match the string. I think that approximate matches in this case would not be beneficial and potentially add quite a bit of confusion around matching the students listed. Scott -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.0.6 (Darwin) Comment: For info see http://www.gnupg.org iD8DBQE+76YlDCFCcmAm26YRAniSAJ4+rA5QorGZpxkix/f+K14xxtvqIwCfRMHN fVflGRbQ6e45R6w/H+4pKoc= =P39l -----END PGP SIGNATURE----- From ross-perl at lonsteins.com Wed Jun 18 20:34:22 2003 From: ross-perl at lonsteins.com (R. Lonstein) Date: Wed Aug 4 00:02:55 2004 Subject: Hello Melbourne PM Message-ID: <20030619013422.GB3211@clio.muses.lonsteins.com> Perl Mongers - I'm a New York Perl Monger and will be traveling some of NSW in early August (I know, it's Winter but I have the vacation time now). Thought I'd join the list and drop a note to see what is going on. Thanks. - Ross From scottp at dd.com.au Wed Jun 18 21:36:06 2003 From: scottp at dd.com.au (Scott Penrose) Date: Wed Aug 4 00:02:55 2004 Subject: Hello Melbourne PM In-Reply-To: <20030619013422.GB3211@clio.muses.lonsteins.com> Message-ID: -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 On Thursday, Jun 19, 2003, at 11:34 Australia/Melbourne, R. Lonstein wrote: > Perl Mongers - > > I'm a New York Perl Monger and will be traveling some of NSW in early > August (I know, it's Winter but I have the vacation time now). > Thought I'd join the list and drop a note to see what is going on. Thanks Ross, but for NSW you will need to go to the Sydney Perl Mongers. Melbourne is in Victoria. Unless you are planning to visit Victoria as well :-) Scott > Thanks. > > - Ross > > > - -- Scott Penrose Open source developer http://linux.dd.com.au/ scottp@dd.com.au Dismaimer: Open sauce usually ends up never coming out (of the bottle). -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.0.6 (Darwin) Comment: For info see http://www.gnupg.org iD8DBQE+8SGZDCFCcmAm26YRAm6NAJ9oqKAKiKXQzRvnc7KxSh2JOkOVRwCglh8k /G0GxQzSMWdUSGrKLhXs2vw= =zx1E -----END PGP SIGNATURE----- From rickm at printaform.com.au Wed Jun 18 21:38:08 2003 From: rickm at printaform.com.au (Rick Measham) Date: Wed Aug 4 00:02:55 2004 Subject: Hello Melbourne PM In-Reply-To: <20030619013422.GB3211@clio.muses.lonsteins.com> References: <20030619013422.GB3211@clio.muses.lonsteins.com> Message-ID: At 9:34 PM -0400 18/6/03, R. Lonstein wrote: >Perl Mongers - > >I'm a New York Perl Monger and will be traveling some of NSW in early >August (I know, it's Winter but I have the vacation time now). >Thought I'd join the list and drop a note to see what is going on. > >Thanks. > >- Ross G'day Ross, You might want to look for the Sydney mongers .. we're are about 900km away (or 1400km via the costal road). Of course, you may well know this or not mind. If you'd like to come along there's some great drives. Have a look at http://www.biztravel.com/TRAVEL/SIT/sit_pages/10811.html for a four-day driving tour. (Of course there's hour-long-flights every half-hour or so and an overnight or day train trip.) If you decide to come to Melbourne (in Victoria) you'll find yourself in one of the world's 'Most Livable Cities' (equal first with Vancouver) and the 'cultural' capital of Australia. There's always something going on here, although winter does tend to be a time of hibernation. Have a look at the city's website (http://www.melbourne.vic.gov.au/) for activities and events. Cheers! Rick -- -------------------------------------------------------- There are 10 kinds of people: those that understand binary, and those that don't. -------------------------------------------------------- The day Microsoft makes something that doesn't suck is the day they start selling vacuum cleaners -------------------------------------------------------- "Write a wise proverb and your name will live forever." -- Anonymous -------------------------------------------------------- From ross-perl at lonsteins.com Wed Jun 18 21:08:59 2003 From: ross-perl at lonsteins.com (ross-perl@lonsteins.com) Date: Wed Aug 4 00:02:55 2004 Subject: Hello Melbourne PM In-Reply-To: <20030619015425.GC4169@mukc.org.au> References: <20030619013422.GB3211@clio.muses.lonsteins.com> <20030619015425.GC4169@mukc.org.au> Message-ID: <20030619020859.GA3898@clio.muses.lonsteins.com> On Thu, Jun 19, 2003 at 11:54:25AM +1000, Paul Fenwick wrote: [snip] > Welcome to the list! Melbourne is a little bit distant from NSW > (we're in the next state down), but we do have regular meetings the I'm driving from Sydney to Melbourne and stopping for whatever in between over the span of two weeks. No fixed itinerary yet. > second Wednesday of each month. (And due to my own travelling > time-table, it looks like I'll be in Sydney for the next Melb.PM > meeting. D'oh!) Not sure where I'll be, but I'm noting it. > Depending upon your travelling schedule, you may also be interested > in Sydney.PM and Canberra.PM: [snip] Checked in there too :) Thanks. - Ross From pjf at perltraining.com.au Wed Jun 18 20:54:25 2003 From: pjf at perltraining.com.au (Paul Fenwick) Date: Wed Aug 4 00:02:55 2004 Subject: Hello Melbourne PM In-Reply-To: <20030619013422.GB3211@clio.muses.lonsteins.com> References: <20030619013422.GB3211@clio.muses.lonsteins.com> Message-ID: <20030619015425.GC4169@mukc.org.au> G'day Ross, On Wed, Jun 18, 2003 at 09:34:22PM -0400, R. Lonstein wrote: > I'm a New York Perl Monger and will be traveling some of NSW in early > August (I know, it's Winter but I have the vacation time now). > Thought I'd join the list and drop a note to see what is going on. Welcome to the list! Melbourne is a little bit distant from NSW (we're in the next state down), but we do have regular meetings the second Wednesday of each month. (And due to my own travelling time-table, it looks like I'll be in Sydney for the next Melb.PM meeting. D'oh!) Depending upon your travelling schedule, you may also be interested in Sydney.PM and Canberra.PM: http://sydney.pm.org/ http://canberra.pm.org/ Cheers, Paul -- Paul Fenwick | http://perltraining.com.au/ Director of Training | Ph: +61 3 9354 6001 Perl Training Australia | Fax: +61 3 9354 2681 From pintaopintaoo18 at bol.com.br Wed Jun 18 18:22:39 2003 From: pintaopintaoo18 at bol.com.br (pintaopintaoo18) Date: Wed Aug 4 00:02:55 2004 Subject: AUMENTE SEU PENIS EM ATE 5CM Message-ID: <20030619013537.58C1F48844@mail1.panix.com> Com o MANUAL mais cobiçado da internet no momento, você aumenta o tamanho de seu pênis de 2 a 5 cm em 2 meses com exercícios absolutamente naturais. Aumenta também a sua potência, controle e volume da ejaculação, dentre outros benefícios. Programa completo com figuras ilustrativas explicando detalhadamente todos os exercícios. Fotos comparativas no site de pessoas que experimentaram essa técnica. http://alavanca2003.tripod.com.br http://orbita.starmedia.com/ssuperx _________________________________________________________ OBS: Esta mensagem não é um spam, visto que somente estará sendo enviado uma única vez, e também contém uma forma de ser removida, é um e-mail normal como tantos outros que você recebe, não estamos invadindo sua privacidade e enviar um e-mail não é crime, desde que não contenha mensagens que possam causar danos ao usuário. Caso queria remover seu endereço de nossa lista, basta enviar um e-mail com o titulo (assunto) remover, que seu e-mail será removido de nossa lista definitivamente.Desculpe-nos caso tenhamos lhe importunado com nosso e-mail de divulgação. Obrigado! From cas at taz.net.au Thu Jun 19 03:04:23 2003 From: cas at taz.net.au (Craig Sanders) Date: Wed Aug 4 00:02:55 2004 Subject: Hello Melbourne PM In-Reply-To: <20030619020859.GA3898@clio.muses.lonsteins.com> References: <20030619013422.GB3211@clio.muses.lonsteins.com> <20030619015425.GC4169@mukc.org.au> <20030619020859.GA3898@clio.muses.lonsteins.com> Message-ID: <20030619080423.GA17380@taz.net.au> On Wed, Jun 18, 2003 at 10:08:59PM -0400, ross-perl@lonsteins.com wrote: > On Thu, Jun 19, 2003 at 11:54:25AM +1000, Paul Fenwick wrote: > [snip] > > Welcome to the list! Melbourne is a little bit distant from NSW > > (we're in the next state down), but we do have regular meetings the > > I'm driving from Sydney to Melbourne and stopping for whatever in > between over the span of two weeks. No fixed itinerary yet. cool, that's a good trip - the longer road following the coast at least (the much shorter and faster Hume highway is pretty boring, long stretches of nothingness). very pleasant if you take it slow and do it over 3 or 4 days. FYI, one thing that visitors to australia often don't realise is that when you look at a country road map and it doesn't show anything between one little town and the next little town 50 or 100km or more away, that the map is accurate. there are long stretches of farmland or bush, with no shops or petrol stations or anything. i only mention this because i've had visiting friends from europe who just assumed that they would be able to buy petrol before they run out. bad assumption. craig From simon at unisolve.com.au Thu Jun 19 19:45:49 2003 From: simon at unisolve.com.au (Simon Taylor) Date: Wed Aug 4 00:02:55 2004 Subject: A perl monger has a baby ;-) Message-ID: <200306201045.49312.simon@unisolve.com.au> Hello fellow perl mongers, Just a quick note to let you know that Bianca has had a baby girl. The baby's name is Eliza, and she weighed in at a little over 2 and a half kilos. Both mum and baby are very well. Regards, Simon Taylor -- Unisolve Pty Ltd - Melbourne, Australia +61 3 9568 2005 From mjs at beebo.org Sun Jun 22 00:05:00 2003 From: mjs at beebo.org (Michael Stillwell) Date: Wed Aug 4 00:02:55 2004 Subject: mod_perl and closures Message-ID: <1393AF7F-A46F-11D7-AD90-0003930BCEFA@beebo.org> I'm not too familiar with mod_perl; are there any mod_perl modules that maintain state on the server with closures? I'm thinking about something Apache::ClosureManager in the following (incomplete, untested, untypoed, etc.) code: package Hangman; sub output_html { my ($self) = @_; my $c = Apache::ClosureManager->new(sub { $self->process_cgi_input; # see below $self->output_html; }); $c->expires("1 hour"); my $url = $c->url; # e.g. "/cgi-bin/invoke-closure.cgi?38f4a11bc3" print p("You have guessed: ", join(" ", @{$self->{GUESSES}})); print p("Enter next guess:"); print qq{
}; sub process_cgi_input { my ($self) = @_; push @{$self->{GUESSES}}, param("guess"); } This would seem to be a nice way to maintain state in some circumstances (especially those where you don't/can't care about the readability of the URL). --M. * * * http://beebo.org From david_dick at iprimus.com.au Mon Jun 23 04:37:59 2003 From: david_dick at iprimus.com.au (David Dick) Date: Wed Aug 4 00:02:55 2004 Subject: Matching two lists of users In-Reply-To: <9AF9F242-A11C-11D7-A7F9-003065B58CF8@dd.com.au> References: <9AF9F242-A11C-11D7-A7F9-003065B58CF8@dd.com.au> Message-ID: <3EF6CA77.401@iprimus.com.au> Scott, Hopefully this is better late than never :), i was reading an article today that mentioned some modules that might also be useful to you. Specifically, Lingua::EN::Nickname and Lingua::EN::MatchNames. uru -Dave From scottp at dd.com.au Sun Jun 29 00:22:28 2003 From: scottp at dd.com.au (Scott Penrose) Date: Wed Aug 4 00:02:55 2004 Subject: Next Months Talks Message-ID: -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Hi there mongers of the perl of melbourne, We have talked about running a small set of talks for a while and I think it is time to do that in the month of July. We already have a couple of talks ready * Perl and Tail Recursion - it is possible * Require file, Read/Eval file, do file - performance * Inline::Guile - embedding scheme / lisp in your perl * Filter::Debug - an example filter to remove debugging code when not in debug mode. * Attribute::Deprecated2 - how to make your own Attribute handler and why. * Proc::Daemon - Make me a daemon (with a catch) There is no particular theme this month, just a set of useful talks. It should be a really exciting evening. I would like to increase the number of entries above, if any of you would like to talk about something, have an idea, want to start a discussion - anything between 2 and 20 minutes is fine - please send your ideas on to me. Scott - -- Scott Penrose Anthropomorphic Personification Expert http://search.cpan.org/search?author=SCOTT scott@cpan.org Dismaimer: While every attempt has been made to make sure that this email only contains zeros and ones, there has been no effort made to guarantee the quantity or the order. -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.0.6 (Darwin) Comment: For info see http://www.gnupg.org iD8DBQE+/neVDCFCcmAm26YRAjvXAJ0SxSL7kmPBN7XuZfGd/5Mo9HqDpwCfT/41 LY02tln4X2LLLe7aCRIN3Jo= =eFM0 -----END PGP SIGNATURE----- From gcross at alphalink.com.au Mon Jun 30 20:41:27 2003 From: gcross at alphalink.com.au (Graeme Cross) Date: Wed Aug 4 00:02:55 2004 Subject: YAPC slides Message-ID: <20030701014127.46B573799F@www.fastmail.fm> Some of the talks from the recent American YAPC are online and worth a read: http://yapc.kwiki.org/index.cgi?OnlineSlides - Graeme -- Graeme Cross