From sneex at bellsouth.net Wed Sep 25 20:00:38 2002 From: sneex at bellsouth.net (iudicium ferat) Date: Thu Aug 5 00:03:00 2004 Subject: [JaxPM] [Admin] Posting Test Message-ID: <5F52E2BC-D0EB-11D6-8A11-0003930FDFC6@bellsouth.net> On the jacksonville-pm-list; Jax.PM'er iudicium ferat wrote - { test } -Bill- :] ____________________________________________________________________ WC -Sx- Jones * Lead e-Systems Developer * http://insecurity.org/ FCCJ * 501 W State St * Jacksonville, FL 32202 * 1 (904) 632-3089 __ __ __ __ __ / // /__ ____ ___ __ __ / // /__ _____/ /_____ ____ / _ / _ `/ _ \/ _ \/ // / / _ / _ `/ __/ '_/ -_) __/ /_//_/\_,_/ .__/ .__/\_, / /_//_/\_,_/\__/_/\_\\__/_/ /_/ /_/ /___/ Running LinuxPPC UltraPenguin SuSE 7.3 (-Sx-) __ _ http://jacksonville.pm.org/ / /(_)_ __ _ ___ __ http://cis4dl.sf.net/ / / | | '_ \| | | \ \/ / http://www.suse.com/ / /__| | | | | |_| |> < http://www.perl.com/ \____/_|_| |_|\__,_/_/\_\ http://www.fccj.edu/ Jax.PM Moderator's Note: This message was posted to the Jacksonville Perl Monger's Group listserv. The group manager can be reached at -- owner-jacksonville-pm-list@pm.org to whom send all praises, complaints, or comments... From sneex at bellsouth.net Wed Sep 25 20:14:47 2002 From: sneex at bellsouth.net (iudicium ferat) Date: Thu Aug 5 00:03:00 2004 Subject: [JaxPM] [ADMIN] List Membership Message-ID: <5913143E-D0ED-11D6-8A11-0003930FDFC6@bellsouth.net> On the jacksonville-pm-list; Jax.PM'er iudicium ferat wrote - [Admin Posting] Hi All :) Recently the "lists" at hfb.pm.org under went some changes (some good, some bad.) I would like everyone who receives this to "sound off" BACK to the LIST -- to make sure you can POST back to the list. The posting address is: jacksonville-pm-list@happyfunball.pm.org Also, if anyone wants to be taken off the list, please contact me directly. Thank you; -Bill- :] ---------------------- http://insecurity.org/ Jax.PM Moderator's Note: This message was posted to the Jacksonville Perl Monger's Group listserv. The group manager can be reached at -- owner-jacksonville-pm-list@pm.org to whom send all praises, complaints, or comments... From jproctor at marlboro.edu Thu Sep 26 09:18:57 2002 From: jproctor at marlboro.edu (J Proctor) Date: Thu Aug 5 00:03:00 2004 Subject: [JaxPM] Sound off! Message-ID: On the jacksonville-pm-list; Jax.PM'er J Proctor wrote - Okay, folks. Sneexie sent that message last night; I know I'm not the only one here. Am I? *tap* *tap* Is this thing on? *tap* Hello? j Jax.PM Moderator's Note: This message was posted to the Jacksonville Perl Monger's Group listserv. The group manager can be reached at -- owner-jacksonville-pm-list@pm.org to whom send all praises, complaints, or comments... From sml at zfx.com Thu Sep 26 09:24:54 2002 From: sml at zfx.com (Steve Lane) Date: Thu Aug 5 00:03:00 2004 Subject: [JaxPM] [ADMIN] List Membership References: <5913143E-D0ED-11D6-8A11-0003930FDFC6@bellsouth.net> Message-ID: <3D9318B6.473C6C05@zfx.com> On the jacksonville-pm-list; Jax.PM'er Steve Lane wrote - pong. iudicium ferat wrote: > > On the jacksonville-pm-list; Jax.PM'er iudicium ferat wrote - > > [Admin Posting] > > Hi All :) > > Recently the "lists" at hfb.pm.org under went some changes (some > good, some bad.) > > I would like everyone who receives this to "sound off" BACK to the > LIST -- to make sure you can POST back to the list. > > The posting address is: > > jacksonville-pm-list@happyfunball.pm.org > > Also, if anyone wants to be taken off the list, please contact me > directly. > > Thank you; > > -Bill- :] > ---------------------- > http://insecurity.org/ > > Jax.PM Moderator's Note: > This message was posted to the Jacksonville Perl Monger's Group listserv. > The group manager can be reached at -- owner-jacksonville-pm-list@pm.org > to whom send all praises, complaints, or comments... -- Steve Lane Jax.PM Moderator's Note: This message was posted to the Jacksonville Perl Monger's Group listserv. The group manager can be reached at -- owner-jacksonville-pm-list@pm.org to whom send all praises, complaints, or comments... From nate at campin.net Thu Sep 26 09:29:27 2002 From: nate at campin.net (Nate Campi) Date: Thu Aug 5 00:03:00 2004 Subject: [JaxPM] Sound off! In-Reply-To: References: Message-ID: <20020926142927.GA15805@campin.net> On the jacksonville-pm-list; Jax.PM'er Nate Campi wrote - On Thu, Sep 26, 2002 at 10:18:57AM -0400, J Proctor wrote: > On the jacksonville-pm-list; Jax.PM'er J Proctor wrote - > > Okay, folks. Sneexie sent that message last night; I know I'm not the > only one here. Am I? > > *tap* *tap* Is this thing on? *tap* Hello? Sorry, for whatever reason I forgot to post. I also be here. -- We can't prove that God exists. However, we can prove that if God does exist, he's pretty good at math. In fact, we can prove that even if God doesn't exist, he's still pretty good at math. Jax.PM Moderator's Note: This message was posted to the Jacksonville Perl Monger's Group listserv. The group manager can be reached at -- owner-jacksonville-pm-list@pm.org to whom send all praises, complaints, or comments... From JMcCarthy at citistreetonline.com Thu Sep 26 11:40:46 2002 From: JMcCarthy at citistreetonline.com (McCarthy, John) Date: Thu Aug 5 00:03:00 2004 Subject: [JaxPM] [ADMIN] List Membership Message-ID: <3C4CC57923BCD411A65900508BB355E209D7F70A@wjbs0078xch.fl.wellspringres.com> Reply. -----Original Message----- From: Steve Lane [mailto:sml@zfx.com] Sent: Thursday, September 26, 2002 10:25 AM To: jacksonville-pm-list@happyfunball.pm.org Subject: Re: [JaxPM] [ADMIN] List Membership On the jacksonville-pm-list; Jax.PM'er Steve Lane wrote - pong. iudicium ferat wrote: > > On the jacksonville-pm-list; Jax.PM'er iudicium ferat wrote - > > [Admin Posting] > > Hi All :) > > Recently the "lists" at hfb.pm.org under went some changes (some > good, some bad.) > > I would like everyone who receives this to "sound off" BACK to the > LIST -- to make sure you can POST back to the list. > > The posting address is: > > jacksonville-pm-list@happyfunball.pm.org > > Also, if anyone wants to be taken off the list, please contact me > directly. > > Thank you; > > -Bill- :] > ---------------------- > http://insecurity.org/ > > Jax.PM Moderator's Note: > This message was posted to the Jacksonville Perl Monger's Group listserv. > The group manager can be reached at -- owner-jacksonville-pm-list@pm.org > to whom send all praises, complaints, or comments... -- Steve Lane Jax.PM Moderator's Note: This message was posted to the Jacksonville Perl Monger's Group listserv. The group manager can be reached at -- owner-jacksonville-pm-list@pm.org to whom send all praises, complaints, or comments... -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/archives/jacksonville-pm/attachments/20020926/b7fef1cd/attachment.htm From greg at turnstep.com Thu Sep 26 17:16:02 2002 From: greg at turnstep.com (greg@turnstep.com) Date: Thu Aug 5 00:03:00 2004 Subject: [JaxPM] [ADMIN] List Membership Message-ID: <200209262229.g8QMTSs09922@mail.pm.org> On the jacksonville-pm-list; Jax.PM'er greg@turnstep.com wrote - -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 > I would like everyone who receives this to "sound off" BACK to the > LIST -- to make sure you can POST back to the list. $_=ref\@_;print lc substr(ref\*STDOUT,-2,++$|).$/ if print chop; -----BEGIN PGP SIGNATURE----- iD8DBQE9k4acvJuQZxSWSsgRAqFFAKDfpWG40ufM82s5/K8lQ1YFeOKnVACg06l0 m9fYopz46AqTmvgxIqrO8pc= =yDym -----END PGP SIGNATURE----- Jax.PM Moderator's Note: This message was posted to the Jacksonville Perl Monger's Group listserv. The group manager can be reached at -- owner-jacksonville-pm-list@pm.org to whom send all praises, complaints, or comments... From jproctor at marlboro.edu Thu Sep 26 18:42:22 2002 From: jproctor at marlboro.edu (J Proctor) Date: Thu Aug 5 00:03:00 2004 Subject: [JaxPM] [ADMIN] List Membership In-Reply-To: <200209262229.g8QMTSs09922@mail.pm.org> Message-ID: On the jacksonville-pm-list; Jax.PM'er J Proctor wrote - Greg, you know I mean this in the nicest way possible ... > $_=ref\@_;print lc substr(ref\*STDOUT,-2,++$|).$/ if print chop; You're a geek. Sneex will purchase (on my behalf; I'll pay him back) a Krispy Kreme donut for the first person (other than Greg) who can say what this does without running it first. j Jax.PM Moderator's Note: This message was posted to the Jacksonville Perl Monger's Group listserv. The group manager can be reached at -- owner-jacksonville-pm-list@pm.org to whom send all praises, complaints, or comments... From sneex at bellsouth.net Thu Sep 26 21:57:11 2002 From: sneex at bellsouth.net (iudicium ferat) Date: Thu Aug 5 00:03:00 2004 Subject: [JaxPM] Donuts? In-Reply-To: Message-ID: On the jacksonville-pm-list; Jax.PM'er iudicium ferat wrote - A box of donuts (but this would only apply to the LOCAL members.) LOL :) >> $_=ref\@_;print lc substr(ref\*STDOUT,-2,++$|).$/ if print chop; > Here, maybe this will help - $_ = ref \@_; print lc substr(ref \*STDOUT, -2, ++$|) . $/ if print chop; :) -Sx- (And yes, even I had to run it. Never said that just because I founded the Jax.PM group meant that I actually knew anything about PERL :) Jax.PM Moderator's Note: This message was posted to the Jacksonville Perl Monger's Group listserv. The group manager can be reached at -- owner-jacksonville-pm-list@pm.org to whom send all praises, complaints, or comments... From sneex at bellsouth.net Thu Sep 26 22:21:47 2002 From: sneex at bellsouth.net (iudicium ferat) Date: Thu Aug 5 00:03:00 2004 Subject: [JaxPM] Yo ! Message-ID: <417CF1FC-D1C8-11D6-9D53-0003930FDFC6@bellsouth.net> On the jacksonville-pm-list; Jax.PM'er iudicium ferat wrote - A small, likely inaccurate, explanation... # returns the TYPE of reference, in this # case the Ref is pointing to an ARRAY $_ = ref \@_; # ref \* returns the TYPE of reference, in this # case the Ref is pointing to a GLOB # STDOUT forces the resulting output of the # immediately previous statement, in this case # ref \@_ to be part of the "string" being truncated. # The -2 characters and the ++$| (which is now 1) # causes the Y from ARRAY to be added to the now # LowerCased o from GLOB -- which says "Yo" print lc substr(ref \*STDOUT, -2, ++$|) . $/ if print chop; # What I want Greg to explain is how 'chop' cuts # off the beginning of ARRAY (the ARRA portion?) # Cheers! :) # -Sx- Jax.PM Moderator's Note: This message was posted to the Jacksonville Perl Monger's Group listserv. The group manager can be reached at -- owner-jacksonville-pm-list@pm.org to whom send all praises, complaints, or comments... From solution at gina.net Thu Sep 26 23:14:10 2002 From: solution at gina.net (Aaron Johnson) Date: Thu Aug 5 00:03:00 2004 Subject: [JaxPM] Yo ! In-Reply-To: <417CF1FC-D1C8-11D6-9D53-0003930FDFC6@bellsouth.net> References: <417CF1FC-D1C8-11D6-9D53-0003930FDFC6@bellsouth.net> Message-ID: <1033100050.27128.210.camel@development.gina.net> On the jacksonville-pm-list; Jax.PM'er Aaron Johnson wrote - On Thu, 2002-09-26 at 23:21, iudicium ferat wrote: > On the jacksonville-pm-list; Jax.PM'er iudicium ferat wrote - > > A small, likely inaccurate, explanation... > > > # returns the TYPE of reference, in this > # case the Ref is pointing to an ARRAY > > $_ = ref \@_; > > > # ref \* returns the TYPE of reference, in this > # case the Ref is pointing to a GLOB > # STDOUT forces the resulting output of the > # immediately previous statement, in this case > # ref \@_ to be part of the "string" being truncated. > > # The -2 characters and the ++$| (which is now 1) > # causes the Y from ARRAY to be added to the now > # LowerCased o from GLOB -- which says "Yo" > > print lc substr(ref \*STDOUT, -2, ++$|) . $/ if print chop; > > # What I want Greg to explain is how 'chop' cuts > # off the beginning of ARRAY (the ARRA portion?) > He isn't chopping it off, he is merely printing only the chop character. :) and don't forget the $/ is the default "newline" character to get you a newline on the console instead of having the prompt against the input, how cross platform correct :) > # Cheers! :) > # -Sx- > > > Jax.PM Moderator's Note: > This message was posted to the Jacksonville Perl Monger's Group listserv. > The group manager can be reached at -- owner-jacksonville-pm-list@pm.org > to whom send all praises, complaints, or comments... > > Jax.PM Moderator's Note: This message was posted to the Jacksonville Perl Monger's Group listserv. The group manager can be reached at -- owner-jacksonville-pm-list@pm.org to whom send all praises, complaints, or comments... From jproctor at marlboro.edu Fri Sep 27 07:47:07 2002 From: jproctor at marlboro.edu (J Proctor) Date: Thu Aug 5 00:03:00 2004 Subject: [JaxPM] Yo ! In-Reply-To: <1033100050.27128.210.camel@development.gina.net> Message-ID: On the jacksonville-pm-list; Jax.PM'er J Proctor wrote - Hmm. No prize, since you ran it first and *then* tried to explain what it was doing. For remembering that chop returns the chopped character, Aaron gets the runner-up prize, which is permission to go buy his own donuts. I'm working on a module that uses a great big object representation of a relational database (tables, columns, relations, etc.) to generate multi-table queries. Once I get a 0.01-local, anyone interested in helping me make sure I haven't been too architecture or problem-dependent before I send to CPAN? j Jax.PM Moderator's Note: This message was posted to the Jacksonville Perl Monger's Group listserv. The group manager can be reached at -- owner-jacksonville-pm-list@pm.org to whom send all praises, complaints, or comments... From sneex at bellsouth.net Fri Sep 27 08:05:13 2002 From: sneex at bellsouth.net (iudicium ferat) Date: Thu Aug 5 00:03:00 2004 Subject: [JaxPM] Yo ! In-Reply-To: <1033100050.27128.210.camel@development.gina.net> Message-ID: On the jacksonville-pm-list; Jax.PM'er iudicium ferat wrote - See? Told ya I was thick as a brick :P On Friday, September 27, 2002, at 12:14 AM, Aaron Johnson wrote: > He isn't chopping it off, he is merely printing only the chop > character. > :) > > and don't forget the $/ is the default "newline" character to get you a > newline on the console instead of having the prompt against the input, > how cross platform correct :) $/ default INPUT record separator ? :) -Sx- BTW - Everyone review the example Perl Guide at http://web.fccj.org/~wcjones/Classes/CGS2557/Perl_Guide.html http://www.cpan.org/authors/id/S/SN/SNEEX/School-Perl-Guide-0.1.zip And give me INPUT :) Thx! Jax.PM Moderator's Note: This message was posted to the Jacksonville Perl Monger's Group listserv. The group manager can be reached at -- owner-jacksonville-pm-list@pm.org to whom send all praises, complaints, or comments... From solution at gina.net Fri Sep 27 08:02:00 2002 From: solution at gina.net (Aaron Johnson) Date: Thu Aug 5 00:03:00 2004 Subject: [JaxPM] Yo ! In-Reply-To: References: Message-ID: <1033131720.27128.217.camel@development.gina.net> On the jacksonville-pm-list; Jax.PM'er Aaron Johnson wrote - On Fri, 2002-09-27 at 08:47, J Proctor wrote: > On the jacksonville-pm-list; Jax.PM'er J Proctor wrote - > > > Hmm. No prize, since you ran it first and *then* tried to explain what it > was doing. For remembering that chop returns the chopped character, Aaron > gets the runner-up prize, which is permission to go buy his own donuts. > > I'm working on a module that uses a great big object representation of a > relational database (tables, columns, relations, etc.) to generate > multi-table queries. Once I get a 0.01-local, anyone interested in > helping me make sure I haven't been too architecture or problem-dependent > before I send to CPAN? > Sure send it to me. I love new stuff. Which platform was it developed on? Is it similar to Alzabo ? http://www.alzabo.org/ > > j > > > Jax.PM Moderator's Note: > This message was posted to the Jacksonville Perl Monger's Group listserv. > The group manager can be reached at -- owner-jacksonville-pm-list@pm.org > to whom send all praises, complaints, or comments... > > Jax.PM Moderator's Note: This message was posted to the Jacksonville Perl Monger's Group listserv. The group manager can be reached at -- owner-jacksonville-pm-list@pm.org to whom send all praises, complaints, or comments... From jproctor at marlboro.edu Fri Sep 27 09:03:38 2002 From: jproctor at marlboro.edu (J Proctor) Date: Thu Aug 5 00:03:00 2004 Subject: [JaxPM] Yo ! In-Reply-To: <1033131720.27128.217.camel@development.gina.net> Message-ID: On the jacksonville-pm-list; Jax.PM'er J Proctor wrote - > Which platform was it developed on? Perl 5.8 and MySQL on Irix. > Is it similar to Alzabo ? > > http://www.alzabo.org/ Damn. Knew I should've gone to YAPC this year even though I was unemployed. That's what credit cards are for. There's a great deal of intersection, but I'm not sure Alzabo solves exactly the same set of problems. I'm developing an rdb structure with a couple dozen tables (so far), and a need to do CGI-driven show table/show record detail/add record/edit record operations on a handful of them. All of those operations require joins, though, and the various detail pages sometimes require joins through a cross-reference table instead of a simple foreign key. So I started modeling the db structure, and including in the model information about the 'views' I expect for each table, which columns to show, in which order, and with what formatting. My "show table" script just gets the name of the table as an argument (for example, "show.cgi?table=plasmids") and it calls the table-generator method on the control object with that as an argument. This method (via many private methods it calls) generates the SQL, executes it, applies any special formatting, and spits out a complete HTML table for me. Or, it will, when I'm done rearranging it. I had it working yesterday, then started trying to clean up hash key names (I had some weird artifacts from simpler versions) and tackle the representation of a complex output format (bibliography entry) without, if possible, dragging printf-style format strings into it. I don't think I'm going to win that one. Next challenge will be where I broke about 8000 database design rules to track a particularly nasty clump of data. j Jax.PM Moderator's Note: This message was posted to the Jacksonville Perl Monger's Group listserv. The group manager can be reached at -- owner-jacksonville-pm-list@pm.org to whom send all praises, complaints, or comments... From greg at turnstep.com Mon Sep 30 08:12:40 2002 From: greg at turnstep.com (greg@turnstep.com) Date: Thu Aug 5 00:03:00 2004 Subject: [JaxPM] Yo ! Message-ID: <200209301326.g8UDQeO19718@mail.pm.org> On the jacksonville-pm-list; Jax.PM'er greg@turnstep.com wrote - -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Here is my attempt to explain the following code. Don't read this if you want to try and figure it out on your own. $_=ref\@_;print lc substr(ref\*STDOUT,-2,++$|).$/ if print chop; First, let's rearrange it a little more logically. This is really two statements, separated by a semicolon. The second half is of the format "do x if y" which is really just another way of saying: if (x) { do y } I'll tell you up front that the "x" in this case is true, so we can start by rewriting the whole thing like this: $_ = ref \@_; print chop; print lc substr (ref\*STDOUT,-2,++$|) . $/; - From the top: The first line assigns the word "ARRAY" into the default variable, aka "dollar underscore". The @_ is the default array: it's not seen as often as $_, but it is always there. We don't really care what is inside of it, we merely care that it is an array. The "ref" function is usually used in perl to do a simple test of whether or not something is a reference. However, it also returns the type of reference, in uppercase letters, such as "SCALAR", "HASH", "ARRAY", etc. Since we put a backslash in front of the @_ array, we passed a reference to an array to the ref function, which returns the string "ARRAY". This string is put into the variable $_; Next is the statement "print chop." I really like the poor little chop function. It's usually overshadowed by it's newer cousin chomp, but it, like ref, returns a value that is seldom used. Chop returns the letter that it chopped, in this case the letter "Y" from "ARRAY" If you looked at the default string, it would now contain the string "ARRA". Since we are chopping the default variable, we can avoid saying "print chop $_" and simply say "print chop". Since this statement evaluates to true (i.e. returns a non-zero, non-null value) we run the other print statement next. Recall that the original statement said "print foo... if print chop" - perl will actually run the second half first, check the result, and only run the first part afterwards. You'll often see sytax like this in code where you wish to emphasis the result more than the test, such as: die "Not a valid number!\n" if $number !~ /^\d+$/; Thus, at this point in the code, we have printed a capital letter "Y", and can start the final bit of code: print lc substr (ref\*STDOUT,-2,++$|) . $/; First, let's normalize things a little bit. The substr call is getting everything from the second letter from the end of the string, up to one character beyond that. The $| variable starts at 0, so we increment it by one before passing it into substr. The $/ is another seldom used special variable, but it almost always defaults to a newline. If it doesn't, you have a very unusual perl installed! Now we can rewrite it as: print lc substr (ref \*STDOUT, -2, 1); print "\n"; Here we see ref again, this time used to see what type of reference *STDOUT is. STDOUT is another predefined variable (much like @_). In this case, we are throwing a star before it, which means we are getting a typeglob, which is basically a container of all variables named "STDOUT" In other words, the STDOUT typeglob contains $STDOUT, @STDOUT, %STDOUT, and some others without signs (such as filehandles). The inly important part is that it is a typeglob, which ref reports as being a "GLOB". Thus, we are using substr to get the second letter from the end of the word GLOB, in this case an uppercase "O". Finally, we lowercase our result, and get the final message: "Yo\n"; Greg Sabino Mullane greg@turnstep.com PGP Key: 0x14964AC8 200209271928 -----BEGIN PGP SIGNATURE----- Comment: http://www.turnstep.com/pgp.html iD8DBQE9mE0YvJuQZxSWSsgRArznAKCdrjvniWYYdD6dQ572A3CILG9TUACgg127 47pKAW8h530hfr4bUaE+g5M= =NzUl -----END PGP SIGNATURE----- Jax.PM Moderator's Note: This message was posted to the Jacksonville Perl Monger's Group listserv. The group manager can be reached at -- owner-jacksonville-pm-list@pm.org to whom send all praises, complaints, or comments... From sneex at bellsouth.net Mon Sep 30 09:05:10 2002 From: sneex at bellsouth.net (iudicium ferat) Date: Thu Aug 5 00:03:00 2004 Subject: [JaxPM] OK, I admit it :P Message-ID: On the jacksonville-pm-list; Jax.PM'er iudicium ferat wrote - OK, Greg is KING! (Quick!?Someone go get the donuts and coffee!) -Sx- :] Jax.PM Leader... (Perl wanna be.) Jax.PM Moderator's Note: This message was posted to the Jacksonville Perl Monger's Group listserv. The group manager can be reached at -- owner-jacksonville-pm-list@pm.org to whom send all praises, complaints, or comments...