From scottp at dd.com.au Sun Oct 1 16:58:22 2006 From: scottp at dd.com.au (Scott Penrose) Date: Mon, 2 Oct 2006 09:58:22 +1000 Subject: [Melbourne-pm] Perl crypto code In-Reply-To: <200609291646.56454.shlomif@iglu.org.il> References: <1158913749.4217.85.camel@m0.bom> <200609231135.56722.shlomif@iglu.org.il> <200609291646.56454.shlomif@iglu.org.il> Message-ID: <1642913E-9436-4067-B275-AF68935A60B5@dd.com.au> On 29/09/2006, at 23:46, Shlomi Fish wrote: > Actually, that's not what I meant. Module-Starter can generate > ExtUtils::MakeMaker-based distros with a Makefile.PL. However, the > code that > it puts inside the module is more modern and may only work on a > modern perl. > With h2xs, on the other hand, one can specify the version of perl > that the > skeleton will be able to run on. Right. Hmm... I wonder if this is something we can test with a de- parser, formatter or something like TidyView. So we can say - check for Perl XYZ compatibility. From a manual point of view about the only thing I can think of is things like attributes (not normally added by Module-Starter) and 'use version' - which is I think dependent on 5.8+ Scooter From daniel at rimspace.net Tue Oct 3 19:59:50 2006 From: daniel at rimspace.net (Daniel Pittman) Date: Wed, 04 Oct 2006 12:59:50 +1000 Subject: [Melbourne-pm] Driving a serial command line device with Perl Message-ID: <87y7rw7pll.fsf@rimspace.net> G'day. I need to build a script wrapper around a command line device, accessed via a serial port. I know a bunch of ways to do this, from driving an external cu with Expect, or implementing all that code myself with sysread and syswrite. What I am not sure on is the best way to achieve what I want, focused on minimum fuss rather than maximum features. All I really need is to connect to the device, write a few commands out and read back the responses. All pretty trivial, no complex buffering needed, and all should be pretty easy to manage. So, any suggestions on what the easy way to do this is? Regards, Daniel -- Digital Infrastructure Solutions -- making IT simple, stable and secure Phone: 0401 155 707 email: contact at digital-infrastructure.com.au http://digital-infrastructure.com.au/ From skud at infotrope.net Sun Oct 8 22:36:02 2006 From: skud at infotrope.net (Kirrily Robert) Date: Mon, 9 Oct 2006 15:36:02 +1000 (EST) Subject: [Melbourne-pm] Realestate.com.au (still) hiring Message-ID: <1895.203.13.23.48.1160372162.squirrel@webmail.infotrope.net> Yeah, still looking for Perl bodies at realestate.com.au. Thought I'd post again because there are a few newish developments: 1) We're starting to look for more junior programmers to join our team. Previously we were wanting people with about 5 years' Perl in a LAMP-like setting, but now we're exploring the idea of getting in some less experienced folks and training them up. If you've got some Perl or even PHP or Ruby or similar, perhaps in the context of open source projects but not commercially, and you're keen and smart, you could be what we're looking for. 2) There's a sysadmin opening in our ops group. It's BSD with a side order of Debian, and they want exposure to Cisco and NetApp, as well as some sysadmin Perl skills. 3) Just since I'm on a roll -- we also need another web designer, and we want them to be the kind who quote CSS and XHTML specs in their sleep, not the pointy-clicky kind. So if you know anyone... Anyway, if you're interested at all drop me a note at skud at infotrope.net. I can answer any questions and/or pass on a resume to our HR folks. There's a job ad up at http://jobs.perl.org/job/4404 which you might've seen, but if you email HR directly I won't get a referral bonus if you're hired ;) Wouldn't it be much better if I owed you beer? Thought so. K. -- Kirrily Robert skud at infotrope.net http://infotrope.net/ From pjf at perltraining.com.au Mon Oct 9 04:50:46 2006 From: pjf at perltraining.com.au (Paul Fenwick) Date: Mon, 09 Oct 2006 21:50:46 +1000 Subject: [Melbourne-pm] OSDClub reminder - 11th October, *THIS WEDNESDAY* Message-ID: <452A3796.8040506@perltraining.com.au> G'day Everyone, This is a reminder that the next OSDClub meeting is *THIS WENDESDAY*, 11th October: Date: Wednesday 11th October Time: 6:30pm Venue: Level 8 14 Blackwood St (myinternet house) North Melbourne This week we have two great talks lined up: == Insights from an Open Source Start-up -- Alec Clews == Start-up businesses can be hard work. Open Source start-ups present their own unique challenges. Alec will be presenting a series of unique insights gained from his work in this field. Topics include: 1) Having an idea 2) Having a good team. 3) Which comes first? The Money or the Code 4) OSS licensing 5) Where is the centre of the OSS universe? 6) Angel founding vs VC funding 7) Meeting VC's 8) Dealing with suits who don't get OSS == sed - revisiting the sed stream editor -- Simon Taylor == The man page: A stream editor is used to perform text transformations on an input stream... The reality: sed is much, much more powerful utility than you've been lead to believe. If your typical conception of sed is: sed 's/this/that/' some_file then you may be interested to see what this arcane tool can really get up to. For instance: To commify numbers in a file: sed ':a;s/\B[0-9]\{3\}\>/,&/;ta' Print paragraphs in a file that match the regex 'regex': sed '/./{H;$!d;};x;/regex/!d' And so much more. The talk will demonstrate a variety of uses for this tool and make the case for adding sed to your tool box. We'll also look at: dc.sed - an arbitrary precision RPN calculator sed.hanoi - Solve Towers of Hanoi sql.sed - a SQL interpreter Hope to see you there! Paul From cas at taz.net.au Mon Oct 9 06:06:25 2006 From: cas at taz.net.au (Craig Sanders) Date: Mon, 9 Oct 2006 23:06:25 +1000 Subject: [Melbourne-pm] Driving a serial command line device with Perl In-Reply-To: <87y7rw7pll.fsf@rimspace.net> References: <87y7rw7pll.fsf@rimspace.net> Message-ID: <20061009130625.GC12552@taz.net.au> On Wed, Oct 04, 2006 at 12:59:50PM +1000, Daniel Pittman wrote: > G'day. I need to build a script wrapper around a command line device, > accessed via a serial port. > > I know a bunch of ways to do this, from driving an external cu with > Expect, or implementing all that code myself with sysread and syswrite. no need to do that, there is a CPAN module called 'Expect' which re-implements Expect in perl. > All I really need is to connect to the device, write a few commands out > and read back the responses. All pretty trivial, no complex buffering > needed, and all should be pretty easy to manage. > > So, any suggestions on what the easy way to do this is? Expect.pm craig -- craig sanders (part time cyborg) From daniel at rimspace.net Mon Oct 9 17:39:19 2006 From: daniel at rimspace.net (Daniel Pittman) Date: Tue, 10 Oct 2006 10:39:19 +1000 Subject: [Melbourne-pm] Driving a serial command line device with Perl In-Reply-To: <20061009130625.GC12552@taz.net.au> (Craig A. Sanders's message of "Mon\, 9 Oct 2006 23\:06\:25 +1000") References: <87y7rw7pll.fsf@rimspace.net> <20061009130625.GC12552@taz.net.au> Message-ID: <87odslknrc.fsf@rimspace.net> Craig Sanders writes: > On Wed, Oct 04, 2006 at 12:59:50PM +1000, Daniel Pittman wrote: >> G'day. I need to build a script wrapper around a command line device, >> accessed via a serial port. >> >> I know a bunch of ways to do this, from driving an external cu with >> Expect, or implementing all that code myself with sysread and syswrite. > > no need to do that, there is a CPAN module called 'Expect' which > re-implements Expect in perl. That was the Expect I meant, and used. :) >> All I really need is to connect to the device, write a few commands out >> and read back the responses. All pretty trivial, no complex buffering >> needed, and all should be pretty easy to manage. >> >> So, any suggestions on what the easy way to do this is? > > Expect.pm ...and now I have hit one odd problem. I wanted to make sure that I issued a log-off command to the device and drained any output correctly as part of the shutdown process for my device wrapper class. So, I figured that, hey, using the DESTROY method was a simple enough way to ensure that this did the right thing, and much safer that forcing every caller to remember to call a shutdown method. My object was a blessed hash, containing the Expect object; very basic stuff. When my DESTROY method was called, though, the reference to the expect object was always undef and, with debugging enabled, I could see that it was destroyed immediately prior to my DESTROY method being called. Have I missed something basic about Perl objects? I thought DESTROY was called before, not after, my contained objects were destroyed -- so I could clean them up appropriately? Regards, Daniel -- Digital Infrastructure Solutions -- making IT simple, stable and secure Phone: 0401 155 707 email: contact at digital-infrastructure.com.au http://digital-infrastructure.com.au/ From sisyphus1 at optusnet.com.au Mon Oct 9 19:21:06 2006 From: sisyphus1 at optusnet.com.au (Sisyphus) Date: Tue, 10 Oct 2006 12:21:06 +1000 Subject: [Melbourne-pm] Driving a serial command line device with Perl References: <87y7rw7pll.fsf@rimspace.net> <20061009130625.GC12552@taz.net.au> <87odslknrc.fsf@rimspace.net> Message-ID: <059501c6ec12$c3462b40$0100a8c0@desktop> ----- Original Message ----- From: "Daniel Pittman" . . > > When my DESTROY method was called, though, the reference to the expect > object was always undef and, with debugging enabled, I could see that it > was destroyed immediately prior to my DESTROY method being called. > Does your DESTROY method try to clean up the Expect object ? Expect will call it's own DESTROY method on its own objects - your DESTROY should not do that. Here's a silly demo - don't know if it helps: --------------------- use warnings; package EG; sub DESTROY {print "EG exterminating $_[0]\n"} package EXAMPLE; for(1..5) { print "\nStarting loop $_\n"; my $r = $_; my $z = \$r; bless $z, 'EG'; my $z_ref = \$z; bless $z_ref, 'EXAMPLE'; } print "\nFinished the for loop\n"; sub DESTROY {print "EXAMPLE exterminating $_[0]\n"} -------------------- Outputs: ------------------- Starting loop 1 EXAMPLE exterminating EXAMPLE=REF(0x8c5894) EG exterminating EG=SCALAR(0x8c58ac) Starting loop 2 EXAMPLE exterminating EXAMPLE=REF(0x3f5148) EG exterminating EG=SCALAR(0x8c5894) Starting loop 3 EXAMPLE exterminating EXAMPLE=REF(0x8c58ac) EG exterminating EG=SCALAR(0x3f5148) Starting loop 4 EXAMPLE exterminating EXAMPLE=REF(0x8c5894) EG exterminating EG=SCALAR(0x8c58ac) Starting loop 5 EXAMPLE exterminating EXAMPLE=REF(0x3f5148) EG exterminating EG=SCALAR(0x8c5894) Finished the for loop ------------------- Cheers, Rob From simon at unisolve.com.au Mon Oct 9 19:42:44 2006 From: simon at unisolve.com.au (Simon Taylor) Date: Tue, 10 Oct 2006 12:42:44 +1000 Subject: [Melbourne-pm] OSDClub reminder - 11th October, *THIS WEDNESDAY* In-Reply-To: <452A3796.8040506@perltraining.com.au> References: <452A3796.8040506@perltraining.com.au> Message-ID: <200610101242.44111.simon@unisolve.com.au> On Mon, 9 Oct 2006 09:50 pm, Paul Fenwick wrote: > This is a reminder that the next OSDClub meeting is *THIS WENDESDAY*, > 11th October: And the pages are now online at: http://www.osdc.com.au/osdclub/ See: http://www.osdc.com.au/osdclub/200610/insights.html and http://www.osdc.com.au/osdclub/200610/sed.html Regards, Simon Taylor -- Unisolve Pty Ltd - Melbourne, Australia +61 3 9568 2005 From daniel at rimspace.net Mon Oct 9 20:01:06 2006 From: daniel at rimspace.net (Daniel Pittman) Date: Tue, 10 Oct 2006 13:01:06 +1000 Subject: [Melbourne-pm] Driving a serial command line device with Perl In-Reply-To: <059501c6ec12$c3462b40$0100a8c0@desktop> (Sisyphus's message of "Tue\, 10 Oct 2006 12\:21\:06 +1000") References: <87y7rw7pll.fsf@rimspace.net> <20061009130625.GC12552@taz.net.au> <87odslknrc.fsf@rimspace.net> <059501c6ec12$c3462b40$0100a8c0@desktop> Message-ID: <874pucan7x.fsf@rimspace.net> "Sisyphus" writes: > From: "Daniel Pittman" > >> When my DESTROY method was called, though, the reference to the expect >> object was always undef and, with debugging enabled, I could see that it >> was destroyed immediately prior to my DESTROY method being called. > > Does your DESTROY method try to clean up the Expect object? Expect > will call it's own DESTROY method on its own objects - your DESTROY > should not do that. Er, no, sorry if that wasn't clear. What I tried to do was: sub DESTROY { my $self = ...; if ($self->{serial}) { $self->{serial}->send("exit\n"); # log out of the device $self->{serial}->soft_close(); # wait for that to acknowledge } } In other words, I tried to use the object that I manage to send the correct sequence to log out, and wait for the device to do so. Once my object goes out of scope the Expect object would be cleaned up, of course, and I wasn't trying to do anything like that -- just to make sure that my code doesn't need to call an additional method to send that exit sequence.[1] Regards, Daniel Footnotes: [1] ...and, yes, the lifetime rules do support that, and I am careful about tracking manual disconnects as well, and so forth. -- Digital Infrastructure Solutions -- making IT simple, stable and secure Phone: 0401 155 707 email: contact at digital-infrastructure.com.au http://digital-infrastructure.com.au/ From jarich at perltraining.com.au Thu Oct 12 01:09:29 2006 From: jarich at perltraining.com.au (Jacinta Richardson) Date: Thu, 12 Oct 2006 18:09:29 +1000 Subject: [Melbourne-pm] Important whitespace Message-ID: <452DF839.40109@perltraining.com.au> Most of the time we say that Perl doesn't care about white space. We all know that *sometimes* it does, for example: print "$a [0]"; is not the same as: print "$a[0]"; but that seems pretty easy to grasp and most people go on believing that by and large white space doesn't matter. So, can you guess (before running it) what happens with the following code? $a = 10; $b = 20; print $a +$b; how about: use warnings; use strict; my $c = 10; my $d = 20; print $c +$d; Cute huh? All the best, Jacinta From sisyphus1 at optusnet.com.au Thu Oct 12 01:31:14 2006 From: sisyphus1 at optusnet.com.au (Sisyphus) Date: Thu, 12 Oct 2006 18:31:14 +1000 Subject: [Melbourne-pm] Important whitespace References: <452DF839.40109@perltraining.com.au> Message-ID: <06c001c6edd8$ce060e20$0100a8c0@desktop> ----- Original Message ----- From: "Jacinta Richardson" To: "Melbourne Perlmongers" Sent: Thursday, October 12, 2006 6:09 PM Subject: [Melbourne-pm] Important whitespace > Most of the time we say that Perl doesn't care about white space. We all know > that *sometimes* it does, for example: > > print "$a [0]"; > > is not the same as: > > print "$a[0]"; > > but that seems pretty easy to grasp and most people go on believing that by and > large white space doesn't matter. > > So, can you guess (before running it) what happens with the following code? > > $a = 10; > $b = 20; > print $a +$b; > > how about: > > use warnings; > use strict; > > my $c = 10; > my $d = 20; > print $c +$d; > > Cute huh? All the best, > Heh ... you been perusing perlmonks SOPW, too ? ( http://www.perlmonks.org/index.pl?node_id=577561 ) It's interesting that the op there was thinking in terms of "hidden secrets" (perhaps the op was being sarcastic .... not sure), whereas I'm thinking in terms of "hair removal" :-) Cheers, Rob From jarich at perltraining.com.au Thu Oct 12 02:57:29 2006 From: jarich at perltraining.com.au (Jacinta Richardson) Date: Thu, 12 Oct 2006 19:57:29 +1000 Subject: [Melbourne-pm] Important whitespace In-Reply-To: <06c001c6edd8$ce060e20$0100a8c0@desktop> References: <452DF839.40109@perltraining.com.au> <06c001c6edd8$ce060e20$0100a8c0@desktop> Message-ID: <452E1189.3000408@perltraining.com.au> Sisyphus wrote: > Heh ... you been perusing perlmonks SOPW, too ? ( > http://www.perlmonks.org/index.pl?node_id=577561 ) Ah, so that's where it originated. I encountered it on another list where someone was asking for more information. J From sisyphus1 at optusnet.com.au Thu Oct 12 03:03:24 2006 From: sisyphus1 at optusnet.com.au (Sisyphus) Date: Thu, 12 Oct 2006 20:03:24 +1000 Subject: [Melbourne-pm] Important whitespace References: <452DF839.40109@perltraining.com.au> <06c001c6edd8$ce060e20$0100a8c0@desktop> <452E1189.3000408@perltraining.com.au> Message-ID: <06ce01c6ede5$acee9b50$0100a8c0@desktop> ----- Original Message ----- From: "Jacinta Richardson" To: "Sisyphus" Cc: "Melbourne Perlmongers" Sent: Thursday, October 12, 2006 7:57 PM Subject: Re: [Melbourne-pm] Important whitespace > Sisyphus wrote: > > > Heh ... you been perusing perlmonks SOPW, too ? ( > > http://www.perlmonks.org/index.pl?node_id=577561 ) > > Ah, so that's where it originated. I encountered it on another list where > someone was asking for more information. > It didn't get properly explained in that node on perlmonks, afaict. I must confess that I can't provide the explanation .... and I'm not game to seek explanation for fear of not understanding the answer :-) I think it's something I've encountered (and understood) before, but I'm not altogether sure about that. Cheers, Rob From mg at sgi.com Thu Oct 12 04:05:42 2006 From: mg at sgi.com (Mike Gigante) Date: Thu, 12 Oct 2006 21:05:42 +1000 Subject: [Melbourne-pm] Short term Perl contract position available Message-ID: <003601c6edee$5f7aa3b0$22000f86@SGIGORT> I have a short term opening for an experienced perl programmer, finishing on Fri 22 Dec. FWIW, the software is being delivered on SLES10 (IA64 and x86_64). If you are interested, please send your details to Mark Goodwin (markgw at sgi.com) and cc me (mg at sgi.com) Thanks, Mike --- Mike Gigante Engineering Director, Fileserving Technologies SGI, Melbourne, Australia From alfiejohn at gmail.com Thu Oct 12 04:48:50 2006 From: alfiejohn at gmail.com (Alfie John) Date: Thu, 12 Oct 2006 21:48:50 +1000 Subject: [Melbourne-pm] Important whitespace In-Reply-To: <06ce01c6ede5$acee9b50$0100a8c0@desktop> References: <452DF839.40109@perltraining.com.au> <06c001c6edd8$ce060e20$0100a8c0@desktop> <452E1189.3000408@perltraining.com.au> <06ce01c6ede5$acee9b50$0100a8c0@desktop> Message-ID: <75A8B5A5-F7FD-4E43-B073-0AA0E9607B3B@gmail.com> When in doubt, B::Deparse :) ---8<--- [06/10/12 21:46:02] ~/ $ perl -MO=Deparse,p -e '$a=10; $b=20; print $a+$b' $a = 10; $b = 20; print $a + $b; -e syntax OK [06/10/12 21:46:29] ~/ $ perl -MO=Deparse,p -e '$a=10; $b=20; print $a +$b' $a = 10; $b = 20; print $a $b; -e syntax OK [06/10/12 21:47:54] ~/ $ --->8--- Alfie On 12/10/2006, at 8:03 PM, Sisyphus wrote: > > ----- Original Message ----- > From: "Jacinta Richardson" > To: "Sisyphus" > Cc: "Melbourne Perlmongers" > Sent: Thursday, October 12, 2006 7:57 PM > Subject: Re: [Melbourne-pm] Important whitespace > > >> Sisyphus wrote: >> >>> Heh ... you been perusing perlmonks SOPW, too ? ( >>> http://www.perlmonks.org/index.pl?node_id=577561 ) >> >> Ah, so that's where it originated. I encountered it on another >> list where >> someone was asking for more information. >> > > It didn't get properly explained in that node on perlmonks, afaict. > > I must confess that I can't provide the explanation .... and I'm > not game to > seek explanation for fear of not understanding the answer :-) > > I think it's something I've encountered (and understood) before, > but I'm not > altogether sure about that. > > Cheers, > Rob > > _______________________________________________ > Melbourne-pm mailing list > Melbourne-pm at pm.org > http://mail.pm.org/mailman/listinfo/melbourne-pm From joshua at roughtrade.net Thu Oct 12 17:26:48 2006 From: joshua at roughtrade.net (Joshua Goodall) Date: Fri, 13 Oct 2006 10:26:48 +1000 Subject: [Melbourne-pm] Important whitespace In-Reply-To: <06ce01c6ede5$acee9b50$0100a8c0@desktop> References: <452DF839.40109@perltraining.com.au> <06c001c6edd8$ce060e20$0100a8c0@desktop> <452E1189.3000408@perltraining.com.au> <06ce01c6ede5$acee9b50$0100a8c0@desktop> Message-ID: <20061013002648.GY37855@roughtrade.net> On Thu, Oct 12, 2006 at 08:03:24PM +1000, Sisyphus wrote: > It didn't get properly explained in that node on perlmonks, afaict. > > I must confess that I can't provide the explanation .... and I'm not game to > seek explanation for fear of not understanding the answer :-) > > I think it's something I've encountered (and understood) before, but I'm not > altogether sure about that. It's properly explained between perldoc -f print and man perlop (look for the unary '+' operator. it does nothing semantically, only syntactically). Now try $a = 'STDOUT'; $b = undef; print $a -$b; ;) JG From leif.eriksen at hpa.com.au Mon Oct 16 17:52:51 2006 From: leif.eriksen at hpa.com.au (leif.eriksen at hpa.com.au) Date: Tue, 17 Oct 2006 10:52:51 +1000 Subject: [Melbourne-pm] Tidyview now available from CPAN Message-ID: <6462CBB658614845A7702E37988076980139C9D9@exhnat2.nsw.hpa> I'm very pleased to announce that tidyview is now available from CPAN. Tidyview is a Tk-based GUI previewer for perltidy's many options, to help ease the pain of trying to find just the right set of options for your, or your organisations, preferred coding style. Having a consistently applied coding style, driven by a coding standard if required, is a big aid to QA and debugging. Tidyview can read and generate perltidy config files, and displays your code before and after being formatted with the currently selected set of perltidy formatting options. Once your happy, just hit the "Save perltidyrc as..." button and you have a config file for all your code. Tidyview displays its own code if you don?t supply a perl file for it. Currently it only has Tk-bindings, but patches integrating other bindings are welcome. It also has dependencies on Perl::Tidy (part of the perltidy application), Log::Log4perl and version. version.pm is a bit problematic for people on case-insensitive filesystems (win, cygwin etc) - it conflicts with Version.pm. version.pm is used for the qv() operator, so we can test the version of Tk and generate the right (that is, supported by that version) set of widgets. Tidyview supports Tk back to early Tk8 releases. Log::log4perl is there to help me during these early alpha days, I will remove it one day. CPAN link - http://search.cpan.org/~leif/tidyview-1.09/ Code is also hosted at sourceforge. Note - some people feel that perltidy isn't safe to run over their code, for fear it will change the semantics (meaning) of their code. As far as I am aware, there are no bug reports against perltidy stating that this has happened. I've heard TheDamian once wrote a program for a perl obfuscation competition that wasn?t tidy'able (selfGOL). This code seems to be hard to track down so I haven't had a chance to confirm this. I feel pretty confidant that semantic changes arent a problem. However, if people really want, I can add a dependency on PPI::Signature to compare the parse trees before and after tidy'ing, to guarantee semantic identity. Leif Eriksen -- No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.1.408 / Virus Database: 268.13.4/477 - Release Date: 16/10/2006 ********************************************************************** IMPORTANT The contents of this e-mail and its attachments are confidential and intended solely for the use of the individual or entity to whom they are addressed. If you received this e-mail in error, please notify the HPA Postmaster, postmaster at hpa.com.au, then delete the e-mail. This footnote also confirms that this e-mail message has been swept for the presence of computer viruses by Ironport. Before opening or using any attachments, check them for viruses and defects. Our liability is limited to resupplying any affected attachments. HPA collects personal information to provide and market our services. For more information about use, disclosure and access see our Privacy Policy at www.hpa.com.au ********************************************************************** From rob.casey at swishgroup.com.au Mon Oct 16 17:55:56 2006 From: rob.casey at swishgroup.com.au (Rob Casey) Date: Tue, 17 Oct 2006 10:55:56 +1000 Subject: [Melbourne-pm] Tidyview now available from CPAN Message-ID: <675C5A5A309B1F4EB9EE1EC5FA94AE4572E45F@MAILSERVER.swishgroup.local> > Note - some people feel that perltidy isn't safe to run over > their code, for fear it will change the semantics (meaning) > of their code. As far as I am aware, there are no bug reports > against perltidy stating that this has happened. I've heard > TheDamian once wrote a program for a perl obfuscation > competition that wasn't tidy'able (selfGOL). This code seems > to be hard to track down so I haven't had a chance to confirm > this. I feel pretty confidant that semantic changes arent a > problem. However, if people really want, I can add a > dependency on PPI::Signature to compare the parse trees > before and after tidy'ing, to guarantee semantic identity. SelfGOL can be obtained from http://libarynth.f0.am/cgi-bin/view/Libarynth/SelfGOL and http://everything2.com/index.pl?node_id=1143566 Rob Casey Swish Interactive a division of The Swish Group Limited 170 Dorcas Street South Melbourne, Victoria 3205 Australia [P] +61 3 9686 6640 [F] +61 3 9686 6680 [M] +61 401 460 490 [E] rob.casey at swishgroup.com.au > -----Original Message----- > From: melbourne-pm-bounces+rob.casey=swishgroup.com.au at pm.org > [mailto:melbourne-pm-bounces+rob.casey=swishgroup.com.au at pm.or > g] On Behalf Of leif.eriksen at hpa.com.au > Sent: Tuesday, 17 October 2006 10:53 AM > To: melbourne-pm at pm.org > Subject: [Melbourne-pm] Tidyview now available from CPAN > > > I'm very pleased to announce that tidyview is now available from CPAN. > > Tidyview is a Tk-based GUI previewer for perltidy's many > options, to help ease the pain of trying to find just the > right set of options for your, or your organisations, > preferred coding style. Having a consistently applied coding > style, driven by a coding standard if required, is a big aid > to QA and debugging. > > Tidyview can read and generate perltidy config files, and > displays your code before and after being formatted with the > currently selected set of perltidy formatting options. Once > your happy, just hit the "Save perltidyrc as..." button and > you have a config file for all your code. Tidyview displays > its own code if you don't supply a perl file for it. > > Currently it only has Tk-bindings, but patches integrating > other bindings are welcome. > > It also has dependencies on Perl::Tidy (part of the perltidy > application), Log::Log4perl and version. version.pm is a bit > problematic for people on case-insensitive filesystems (win, > cygwin etc) - it conflicts with Version.pm. version.pm is > used for the qv() operator, so we can test the version of Tk > and generate the right (that is, supported by that version) > set of widgets. Tidyview supports Tk back to early Tk8 > releases. Log::log4perl is there to help me during these > early alpha days, I will remove it one day. > > CPAN link - http://search.cpan.org/~leif/tidyview-1.09/ > > Code is also hosted at sourceforge. > > Note - some people feel that perltidy isn't safe to run over > their code, for fear it will change the semantics (meaning) > of their code. As far as I am aware, there are no bug reports > against perltidy stating that this has happened. I've heard > TheDamian once wrote a program for a perl obfuscation > competition that wasn't tidy'able (selfGOL). This code seems > to be hard to track down so I haven't had a chance to confirm > this. I feel pretty confidant that semantic changes arent a > problem. However, if people really want, I can add a > dependency on PPI::Signature to compare the parse trees > before and after tidy'ing, to guarantee semantic identity. > > Leif Eriksen > > -- > No virus found in this outgoing message. > Checked by AVG Free Edition. > Version: 7.1.408 / Virus Database: 268.13.4/477 - Release > Date: 16/10/2006 > > ********************************************************************** > IMPORTANT > The contents of this e-mail and its attachments are > confidential and intended solely for the use of the > individual or entity to whom they are addressed. If you > received this e-mail in error, please notify the HPA > Postmaster, postmaster at hpa.com.au, then delete the e-mail. > This footnote also confirms that this e-mail message has been > swept for the presence of computer viruses by Ironport. > Before opening or using any attachments, check them for > viruses and defects. > Our liability is limited to resupplying any affected attachments. > HPA collects personal information to provide and market our > services. For more information about use, disclosure and > access see our Privacy Policy at www.hpa.com.au > ********************************************************************** > _______________________________________________ > Melbourne-pm mailing list > Melbourne-pm at pm.org > http://mail.pm.org/mailman/listinfo/melbourne-pm > From damian at conway.org Mon Oct 16 18:01:34 2006 From: damian at conway.org (Damian Conway) Date: Tue, 17 Oct 2006 11:01:34 +1000 Subject: [Melbourne-pm] Tidyview now available from CPAN In-Reply-To: <6462CBB658614845A7702E37988076980139C9D9@exhnat2.nsw.hpa> References: <6462CBB658614845A7702E37988076980139C9D9@exhnat2.nsw.hpa> Message-ID: <832f158a0610161801q7936c9d4j1c6367c429c8fa18@mail.gmail.com> Leif wrote: > Note - some people feel that perltidy isn't safe to run over their > code, for fear it will change the semantics (meaning) of their code. > As far as I am aware, there are no bug reports against perltidy > stating that this has happened. I've heard TheDamian once wrote a > program for a perl obfuscation competition that wasn't tidy'able > (selfGOL). This code seems to be hard to track down so I haven't had a > chance to confirm this. Yes, SelfGOL breaks when tidied, but only because it uses a subroutine named ";\n" (literal semicolon, literal newline). Not, I suspect, something perltidy should really be expected to cope with. ;-) There *are*, however, a few places where whitespace is significant in "normal" Perl code too. We had the example on this list just last week: print $x + $y; vs: print $x +$y; Damian From jarich at perltraining.com.au Tue Oct 17 01:33:52 2006 From: jarich at perltraining.com.au (jarich at perltraining.com.au) Date: Tue, 17 Oct 2006 18:33:52 +1000 (EST) Subject: [Melbourne-pm] OSDC 2006's fabulous keynotes Message-ID: <20061017083352.E3657A803C@teddybear.perltraining.com.au> Book before 31st October to save $50 and get a free conference t-shirt! Registrations are open for the Open Source Developers' Conference 2006: http://www.osdc.com.au/registration/index.html The conference is running in Melbourne from the 6th - 8th December, with a day of tutorials on the 5th. Keynote talks this year include: Damian Conway: "The Da Vinci Codebase" When a dying operating system scrawls his name across its corrupted boot volume, Dr. Damian Conway, an unassuming college professor, is plunged into a deadly race against time to solve a series of impossible riddles. What is the mysterious "Priory of Bios?" And who are their deadly nemeses "Opus Arai?" On the run from the law and stalked by a ghostly pale killer, will he unravel the subtle clues hidden in Leonardo's most famous source code and reveal to the world the incredible secret encrypted in...the Da Vinci Codebase? Randal L. Schwartz: "Free software - A look back, a look ahead" A twenty year history of the free/open software movement, from my perspective of how to contribute (in many ways!) and how to make money as well. Richard Farnsworth: "Open Source Synchrotron" What is a Synchrotron anyway? What software needs does it has? How can Open Source help solve these? The Australian Synchrotron achieved first light in July 2005 almost exclusively filling its software needs through open source. The code base has been refined to suit local conditions, and shared with the rest of the Synchrotron open source community. By sharing information, experience and software freely between scientists and engineers, great design efficiencies have been made further aiding the development of experimental beamlines. Anthony Baxter: "futurepython" import __future__ What does the future hold for the Python language? In this talk, we'll look at Microsoft's (Open Sourced!) IronPython and show some of the massive fun coming down the track for scripting languages thanks to .Net and Mono. We'll also cover Python 3.0 (now under development) and the PyPy (Python, in Python) project. Be a part of this fantastic conference and help it be the best developers' conference this year! If your business would like to benefit from exposure to many of Australia's best open source developers then perhaps you should consider sponsorship. We have a wide range of sponsorship options, to find out more information please visit: http://www.osdc.com.au/sponsors/index.html We look forward to sharing this great conference with you! Don't forget to register before 31st October to get a free conference t-shirt. http://www.osdc.com.au/registration/index.html Jacinta Richardson OSDC Publicity Officer From jarich at perltraining.com.au Mon Oct 23 03:53:41 2006 From: jarich at perltraining.com.au (Jacinta Richardson) Date: Mon, 23 Oct 2006 20:53:41 +1000 Subject: [Melbourne-pm] Call for presentations: Women's mini-conference at linux.conf.au 2007 Message-ID: <453C9F35.9020607@perltraining.com.au> G'day everyone, I'm posting this on behalf of the LinuxChix Women's mini-conference. If you're interested in participating or know someone who might be, please pass it on. Everyone is welcome to attend the mini-conf. All the best, J The women's mini-conference at linux.conf.au 2007 is calling for presentations by women on both Free Software technical topics and general topics of general interest to women involved in Free Software or working in IT. About the miniconference The LinuxChix women's mini-conference will be held on Tuesday, 16 January, 2007 at the University of New South Wales in Sydney Australia, as part of the annual linux.conf.au Free Software conference running from 15?20 January, 2007. All attendees of linux.conf.au are welcome to attend the women's miniconference, which will highlight the technical achievements of women in Free Software. The mini-conference welcomes attendees and speakers from other women's advocacy and development groups including Systers, Fedora Women and Debian Women among others. The mini-conference has several 45 talks slots available. Speakers should plan to present for 30 minutes; the remaining time will be devoted to discussion. All technical talks should be on Free (Open Source) Software related topics. Abstracts for talk proposals should be submitted to miniconf-submission at puzzling.org by Friday, November 10, 2006. The miniconference will also have some shorter (5?10 minute) demonstration and lightning talk slots available, you are welcome to email us to express an interest in giving one of these, but they do not have to be submitted at this time. Please see http://lca2007.linux.org.au/Miniconfs/Linuxchix for more information about the women's mini-conference and http://lca2007.linux.org.au/Miniconfs/Linuxchix/CFP for full details of the call for presentations. Feel free to forward this mail to any women or groups you think would be interested. About linux.conf.au 2007 linux.conf.au is Australia's annual technical conference for the Open Source and Free Software developer community. Now in its eighth year, linux.conf.au is regarded as one of the premier global FLOSS technical events and attracts many international open source software developers and users. Returning to Sydney from the 15th to 20th of January, linux.conf.au 2007 is supported by our Emperor sponsors, HP and IBM, and hosted at the University of New South Wales. For more information about linux.conf.au 2007 visit our website at: http://lca2007.linux.org.au/ About Linux Australia Linux Australia exists to serve and promote the Australian Linux and Open Source community. The organisation aims to do this best by taking enthusiasms within the community, such as FOSS issues, projects, education, advocacy just to name a few, and help them flourish, to succeed. The lifeblood of this organisation is the people in the community, and Linux Australia strives to be both relevant and useful to the community. For more details about Linux Australia visit: http://www.linux.org.au/ From jarich at perltraining.com.au Mon Oct 23 05:04:58 2006 From: jarich at perltraining.com.au (Jacinta Richardson) Date: Mon, 23 Oct 2006 22:04:58 +1000 Subject: [Melbourne-pm] Next meeting: 12th November 2006 Message-ID: <453CAFEA.2000308@perltraining.com.au> G'day everyone, At the moment we don't have any talks lined up for our next meeting on 12th November. This is a great opportunity for you to practice your OSDC talk. Send your talk offers to this list, we look forward to hearing from you. All the best, Jacinta From jarich at perltraining.com.au Mon Oct 23 19:51:36 2006 From: jarich at perltraining.com.au (Jacinta Richardson) Date: Tue, 24 Oct 2006 12:51:36 +1000 Subject: [Melbourne-pm] Next meeting: 8th November 2006 In-Reply-To: <453CAFEA.2000308@perltraining.com.au> References: <453CAFEA.2000308@perltraining.com.au> Message-ID: <453D7FB8.1070305@perltraining.com.au> Sorry everyone, the meeting on the 8th November. J Jacinta Richardson wrote: > G'day everyone, > > At the moment we don't have any talks lined up for our next meeting on 12th > November. This is a great opportunity for you to practice your OSDC talk. Send > your talk offers to this list, we look forward to hearing from you. > > All the best, > > Jacinta > _______________________________________________ > Melbourne-pm mailing list > Melbourne-pm at pm.org > http://mail.pm.org/mailman/listinfo/melbourne-pm > -- ("`-''-/").___..--''"`-._ | Jacinta Richardson | `6_ 6 ) `-. ( ).`-.__.`) | Perl Training Australia | (_Y_.)' ._ ) `._ `. ``-..-' | +61 3 9354 6001 | _..`--'_..-_/ /--'_.' ,' | contact at perltraining.com.au | (il),-'' (li),' ((!.-' | www.perltraining.com.au | From andrew.stuart at flatraterecruitment.com.au Mon Oct 23 21:53:00 2006 From: andrew.stuart at flatraterecruitment.com.au (Andrew Stuart) Date: Tue, 24 Oct 2006 14:53:00 +1000 Subject: [Melbourne-pm] Melbourne job: Development / Technology Lead Message-ID: <00c201c6f728$4907d380$6800000a@swishgroup.local> Melbourne job: Development / Technology Lead This 15-person, high growth company in the Melbourne CBD is experiencing great success in the market. It has developed a set of messaging related software applications including a server and various clients. The Managing Director of the company is seeking a Technical Team Lead who has the capability to guide the technology direction for the company as well as run the development team and carry out hands on development. This is a hands on coding role in which you will run a 3-person PHP/Perl development team and you'll ensure that the technology goals of the Managing Director successfully come to fruition. You'll need: ** significant industry experience ** strong hands on development skills with PHP and/or Perl ** outstanding coding and software design skills ** experience leading teams and getting the best out of people - an ability to inspire ** software product development experience ** the knowledge and experience to improve software development process ** a reputation for delivering the goods ** deep technology knwoledge across a range of topics and fields If you're interested please send your resume to andrew.stuart at flatraterecruitment.com.au - questions welcome to (03) 9696 1616 Andrew Stuart Managing Director Flat Rate Recruitment Head Office: 68 -72 York St South Melbourne, Victoria 3205 Phone: 1300 55 91 92 Phone 03 9696 1616 Fax: +61 3 9686 6680 Mobile: 0417 034 241 Email: andrew.stuart at FlatRateRecruitment.com.au Web: http://www.FlatRateRecruitment.com.au From krobert at realestate.com.au Tue Oct 24 20:57:38 2006 From: krobert at realestate.com.au (Kirrily Robert) Date: Wed, 25 Oct 2006 13:57:38 +1000 Subject: [Melbourne-pm] Next meeting: 8th November 2006 Message-ID: <6FA6124E9378214883CA93A54AED601D048581F6@EMAIL.win.int.realestate.com.au> On the subject of talks... what level of interest would there be in HTML::Mason related talks? I've been doing some stuff lately that might be of potential interest... assuming anyone's interested in my idiosyncratic and slightly curmudgeonly views on web development with Mason. K. From blm at woodheap.org Tue Oct 24 22:27:29 2006 From: blm at woodheap.org (blm at woodheap.org) Date: Wed, 25 Oct 2006 15:27:29 +1000 Subject: [Melbourne-pm] Next meeting: 8th November 2006 In-Reply-To: <6FA6124E9378214883CA93A54AED601D048581F6@EMAIL.win.int.realestate.com.au> References: <6FA6124E9378214883CA93A54AED601D048581F6@EMAIL.win.int.realestate.com.au> Message-ID: <20061025052729.GA7753@woodheap.org> * Kirrily Robert (krobert at realestate.com.au) wrote: > On the subject of talks... what level of interest would there be in > HTML::Mason related talks? I've been doing some stuff lately that might > be of potential interest... assuming anyone's interested in my > idiosyncratic and slightly curmudgeonly views on web development with > Mason. I am interested. Ben Marsh From hjm at bigpond.com Tue Oct 31 22:01:48 2006 From: hjm at bigpond.com (Harley Mackenzie) Date: Wed, 01 Nov 2006 17:01:48 +1100 Subject: [Melbourne-pm] Perl Apache::ASP problem with XAMPP Message-ID: <200611011701480111.1353512F@mail.bigpond.com> I have been successfully running XAMPP 1.5.4a with Perl 5.8.8-2.2.3 addon and using the Apache::ASP modules. I am attempting a simple redirect within my own site: <% $Response->Redirect('chainend.asp'); %> and all that I receive is a 200 internal server error with nothing added to the error.log. The Apache::ASP website documentation had nothing to add that would explain the problem. Does anyone have any pointers where to look for the error or is there some configuration option for Apache that needs to be set to get this to work? Regards, Harley ------------------------------------------------------------------ Dr. Harley Mackenzie ACN: 087 953 839 ABN: 27 087 953 839 HARD Software Web: www.hardsoftware.com 7 Wallace Street Tel: +61 3 5222 3435 Newtown 3220, Australia Email: hjm at hardsoftware.com ------------------------------------------------------------------