From bill at fccj.org Tue Jul 6 15:22:42 1999 From: bill at fccj.org (Bill Jones) Date: Thu Aug 5 00:03:06 2004 Subject: Perl Conference 3.0 Message-ID: <199907062019.QAA16908@astro.fccj.cc.fl.us> On the Jax.PM jacksonville-pm-list; "Bill Jones" wrote - The next PERL Conference, version 3.0, will be held at the Monterey Convention Center; Monterey, California Also showing are - The Linux Conference The Apache Conference The Python Conference The Sendmail Conference The Tcl/Tk Conference (Over all it is called the O'Reilly's Open Source Convention, being held August 21st thru the 24th...) I have about 18 'official' ORA brochures left, they sent me 20, if you want one, either stop by FCCJ MCCS Rm 237 or wait til the next JaxLUG meeting and I'll bring them then. There is an (upto) $200 discount if you register BEFORE July 15th. I am hoping I can go this year myself :) C'Ya, -Sneex- :] FCCJ Data Security Group ______________________________________________________________________ Bill Jones Data Security Specialist http://www.fccj.org/cgi/mail?dss The Jacksonville Perl Monger's Group is operated by - Bill -Sneex- Jones ( sneex@usa.net ), to whom send all praises, complaints, or comments... From bill at fccj.org Fri Jul 9 11:30:41 1999 From: bill at fccj.org (Bill Jones) Date: Thu Aug 5 00:03:06 2004 Subject: Priceless Message-ID: <199907091627.MAA16668@astro.fccj.cc.fl.us> On the Jax.PM jacksonville-pm-list; "Bill Jones" wrote - http://pudge.net/tmp/pudge_on_espn.mp3 -Sneex- :] _________________________________________________________________________ Bill Jones | Data Security Specialist | http://www.fccj.org/cgi/mail?dss FCCJ | 501 W State St | Jacksonville, FL 32202 | 1 (904) 632-3089 $_="Jacksonville Perl Mongers";while(/([Jacksonville Perl Mongers])/g){ print join(" ",map{defined $_ ? $_ : ""}$`,$&,$',$+),"\n";} The Jacksonville Perl Monger's Group is operated by - Bill -Sneex- Jones ( sneex@usa.net ), to whom send all praises, complaints, or comments... From bill at fccj.org Fri Jul 9 11:38:59 1999 From: bill at fccj.org (Bill Jones) Date: Thu Aug 5 00:03:06 2004 Subject: HELLO? [Was Re: Weekly Perl Script] Message-ID: <199907091635.MAA16719@astro.fccj.cc.fl.us> On the Jax.PM jacksonville-pm-list; "Bill Jones" wrote - Got one response to this mailing from Steve Lane, Thx Steve :P :b :] Because of lack of interest (and the fact I have less and less time to do something like this) the: "Weekly Perl Script" has been placed on hold indefinitely. I know you are ALL out there somewhere. Is everybody just in Read-Only mode? ??? -Sneex- :] FCCJ Data Security Group ______________________________________________________________________ Bill Jones Data Security Specialist http://www.fccj.org/cgi/mail?dss "f u cn rd ths, u cn gt a gd jb n cmptr prgrmmng.", TC in c.l.p.misc The Jacksonville Perl Monger's Group is operated by - Bill -Sneex- Jones ( sneex@usa.net ), to whom send all praises, complaints, or comments... From jproctor at oit.umass.edu Fri Jul 9 12:47:42 1999 From: jproctor at oit.umass.edu (j proctor) Date: Thu Aug 5 00:03:06 2004 Subject: HELLO? [Was Re: Weekly Perl Script] In-Reply-To: <199907091635.MAA16719@astro.fccj.cc.fl.us> Message-ID: On the Jax.PM jacksonville-pm-list; j proctor wrote - > I know you are ALL out there somewhere. > Is everybody just in Read-Only mode? Mostly. I'm sure I didn't get a weekly script last week, though; I wonder if happyfunball croaked in the middle of the mailing, or if you're talking about the one that happened two weeks ago and you still haven't gotten any significant response. Just to torment people, you could just send winning entries from the Obfuscated Perl Contest. :) j The Jacksonville Perl Monger's Group is operated by - Bill -Sneex- Jones ( sneex@usa.net ), to whom send all praises, complaints, or comments... From bill at fccj.org Wed Jul 14 18:12:30 1999 From: bill at fccj.org (Bill Jones) Date: Thu Aug 5 00:03:06 2004 Subject: [JaxPM] Perl Job Available in Austin, TX Message-ID: <199907142308.TAA12678@astro.fccj.cc.fl.us> On the Jax.PM jacksonville-pm-list; "Bill Jones" wrote - See below. If any are interested, e-mail Tory, not the list. -Sneex- :] ________________________________________________________ eval join '', map { (split //, (' $().s/rlenJ2Ei;o"_MNP' .'3Ot5{R}G*k,HILSTp1X\ab4cduvwhgA='))[$_] } split /\D+/, "d1o18n53'17t11_23y34o20u0_37t33h13i0n11k52_40t0h21a13t 27_35t0h19o23s20e29_13p27e36r0l11_0m42o45n31g5e16r10s48_ 14f8r8o9m0_21j9a7c8k0o19n16s10o51n9v7i5l0l11e41_10a17r 15e0_6c0o2o2l4?3_3y0o6u15_0k46n16o0w26_0t38h7a14t10_24t 0h5e47y43_5a24r7e2_1w18o32r12l25d3_15r0e28n0o49u50n14d8_ 9a0n2d0_5t6h2e2y4_3d4o26_12c22o28o3l0_1s12t0u2f4f3.2_4g 30i3v0e2_4y3o1u6r1s39e1l25f0_1t12e0n1_44p0o1i22n6t0s3"; My name is Tory Upchurch and I am an IT Recruiter in Austin, TX. I am working with a client in Austin that is an incredibly fast growing pre-IPO internet start up company that many people are familiar with. I was wondering if you could do me a favor and distribute my name and phone number to the users of your mail list to see if anyone is interested. This company has several openings for a mid to SR. Level Perl/CGI programmer with client/server experience in Austin. This is a great opportunity to get on with a company before they go public and to work in one of the largest Perl shops in the USA. Thanks for any help that you can give me! Tory Upchurch Romac International Inc. Recruiter IT Division Direct (512) 231-3604 Toll Free (888) 548-6514 Fax (512) 345-7736 tupchurch@romac.com http://www.romac.com The Jacksonville Perl Monger's Group is operated by - Bill -Sneex- Jones ( sneex@usa.net ), to whom send all praises, complaints, or comments... From bill at fccj.org Thu Jul 15 07:07:55 1999 From: bill at fccj.org (Bill Jones) Date: Thu Aug 5 00:03:06 2004 Subject: Weekly Perl Scripts. Message-ID: <199907151204.IAA14971@astro.fccj.cc.fl.us> On the Jax.PM jacksonville-pm-list; "Bill Jones" wrote - Hi! The Jax.PM Group is now at 11 members, Yeah! Welcome to the Jacksonville Perl Monger's! A local area chapter committed to using Perl in everyday life :) To date there have been 6 issues of a weekly series called "The Weekly Perl Script" If you would like, I can send you these past 6 issues; just drop me line :) Again, welcome to the Jax.PM LIstServ and Group, if you have Perl questions, do not hesitate to contact the list at: jacksonville-pm-list@hfb.pm.org The Home page is at: http://jacksonville.pm.org /^Enjoy\!$/ -Sneex- :] __________________________________________________________________ Bill Jones | FCCJ DSS | Life is a 'Do it yourself' thing... http://www.fccj.org/cgi/mail?dss Jacksonville Perl Mongers http://jacksonville.pm.org jax@jacksonville.pm.org 'Be not the first by whom the new are tried, nor yet the last to lay the old aside...' The Jacksonville Perl Monger's Group is operated by - Bill -Sneex- Jones ( sneex@usa.net ), to whom send all praises, complaints, or comments... From bill at fccj.org Fri Jul 16 16:47:28 1999 From: bill at fccj.org (Bill Jones) Date: Thu Aug 5 00:03:06 2004 Subject: Weekly Perl Script [Issue 7] Message-ID: <199907162143.RAA28855@astro.fccj.cc.fl.us> On the Jax.PM jacksonville-pm-list; "Bill Jones" wrote - Jax.PM - Weekly Perl Script [Issue 7] In an effort to raise the Member responsiveness on this List, this weeks script is a 'Question': Can you answer the question on the last line below; based upon the code which appears before it? RULES: Do not use any discussion threads found in clp.mod/misc or or on the FWP list. #!/usr/local/bin/perl -wT use strict; use diagnostics -verbose; my $len = -1; open WORDS, "words" or die "No words file: $!"; while () { chomp; # no newline... s/#.*//; # no comments... s/^\s+//; # no leading whitespace... s/\s+$//; # no trailing whitespace... next unless length; # anything to process? print "\nInside of $_, I found "; while (++$len <= length) { print substr($_, $len, 1) if (index("abcdefghijklmnopqrstuvwxyz", substr($_ , $len, 1)) > -1); } $len = -1; } # What did I find? # # I found yet another LONG way to split up # words into individual characters... # # Not yet sure if that is good or bad... # # QUESTION: I know I could do the same thing with split - How? # BONUS: What's so 'funny' about the above script? Post your answers to: jacksonville-pm-list@happyfunball.pm.org PS - The 'words' file is normally at '/usr/dict/words' ... Enjoy, and good luck! -Sneex- :] ____________________________________________________________________ Bill Jones * Data Security Specialist * http://jacksonville.pm.org/ FCCJ * 501 W State St * Jacksonville, FL 32202 * 1 (904) 632-3089 ??? __ __????????????????????? __ __???????? __ ?? / // /__ ____? ___? __ __? / // /__ _____/ /_____ ____ ? / _? / _ `/ _ \/ _ \/ // / / _? / _ `/ __/? '_/ -_) __/ /_//_/\_,_/ .__/ .__/\_, / /_//_/\_,_/\__/_/\_\\__/_/ ????????? /_/? /_/?? /___/ Running LinuxPPC RedHat 5.0 (Hurricane) __ _ http://www.linuxppc.org / /(_)_ __ _ ___ __ http://www.apache.org / / | | '_ \| | | \ \/ / http://www.redhat.com / /__| | | | | |_| |> < http://www.perl.com \____/_|_| |_|\__,_/_/\_\ http://www.gimp.org The Jacksonville Perl Monger's Group is operated by - Bill -Sneex- Jones ( sneex@usa.net ), to whom send all praises, complaints, or comments... From jproctor at oit.umass.edu Fri Jul 23 07:36:15 1999 From: jproctor at oit.umass.edu (j proctor) Date: Thu Aug 5 00:03:06 2004 Subject: Weekly Perl Script [Issue 7] In-Reply-To: <199907162143.RAA28855@astro.fccj.cc.fl.us> Message-ID: On the Jax.PM jacksonville-pm-list; j proctor wrote - Okay, no one has answered in a week. I guess I'll stab at it. > while (++$len <= length) { > print substr($_, $len, 1) > if (index("abcdefghijklmnopqrstuvwxyz", > substr($_ , $len, 1)) > -1); > } Working from the assumption that this is the significant part of the program you were asking us to replace (even though a few of those other lines are extraneous), and you like the output format, and whatever else I'm not addressing by simply removing the rest of the code, here's what I found, given the constraint that we had to use split: There's More Than One Way To Do It.(tm) In my first attempt, I went for the fairly straightforward "split it into characters and print each character if it's a lowercase letter". While there are many many ways to write this in Perl, I decided to try my hand at the map function. The code above can be replaced by map { /[a-z]/ && print } split('', $_); However, that still required the test of every character. So, I thought about the problem from a slightly different angle. What I really wanted to do was throw away everything that wasn't [a-z] and print what was left. My first thought along this line was tr/a-z//cd, but that didn't involve splitting anything. Split. Split. What does split do? Split takes a string or regex and treats it as a delimiter to apply to a scalar (usually a string), thereby spitting out a list of things in that scalar that were separated by that delimiter. *** And it throws away the delimiter! *** So all I had to do is make a regex for the parts I wanted to keep, then split using as the delimiter. So, my final answer is to replace the code above by print split(/[^a-z]+/, $_); For the second (bonus) question, what's so 'funny' about the script, I have no idea. The bits where he strips white-space aren't necessary, but I don't feel like running benchmarks to see if they actually hurt performance. It's at least slightly amusing that sneex put the effort into playing with this when the whole thing could by handled by that tr/// I wrote a couple paragraphs above, and that I was duped into playing with it also. I did use map for the very first time, so it wasn't a total loss. :) Um, I can't think of anything else. What, pray tell, was so 'funny'? j The Jacksonville Perl Monger's Group is operated by - Bill -Sneex- Jones ( sneex@usa.net ), to whom send all praises, complaints, or comments... From bill at fccj.org Fri Jul 23 07:50:42 1999 From: bill at fccj.org (Bill Jones) Date: Thu Aug 5 00:03:06 2004 Subject: Weekly Perl Script [Issue 7] Message-ID: <199907231246.IAA22712@astro.fccj.cc.fl.us> On the Jax.PM jacksonville-pm-list; "Bill Jones" wrote - > On the Jax.PM jacksonville-pm-list; > j proctor wrote - > Okay, no one has answered in a week. I guess I'll stab at it. > > >> while (++$len <= length) { >> print substr($_, $len, 1) >> if (index("abcdefghijklmnopqrstuvwxyz", >> substr($_ , $len, 1)) > -1); >> } > > > print split(/[^a-z]+/, $_); > > > For the second (bonus) question, what's so 'funny' about the script, I > have no idea. The bits where he strips white-space aren't necessary, but > I don't feel like running benchmarks to see if they actually hurt > performance. It's at least slightly amusing that sneex put the effort > into playing with this when the whole thing could by handled by that tr/// > I wrote a couple paragraphs above, and that I was duped into playing with > it also. I did use map for the very first time, so it wasn't a total > loss. :) > > Um, I can't think of anything else. What, pray tell, was so 'funny'? > > > j Very good :) When you moving back to Jax, FL ??? I haven't tested your code as a replacement (on my way to a meeting) but I will answer the second portion of your post first: The BONUS is also misleading - the script does nothing more funny than simply ignore any data lines that start with a Capital letter. So, you get credit for being first to answer and you get credit for answering the BONUS without really knowing - your solution - on the surface without testing - appears to do the same thing as the code you've replaced. Yes, all that other stuff was supposed to be misleading; functional, but misleading none the less. I'll have a better answer about the puzzle/question/answer and why latter. Thx, -Sneex- :] (Where is my other shoe?) The Jacksonville Perl Monger's Group is operated by - Bill -Sneex- Jones ( sneex@usa.net ), to whom send all praises, complaints, or comments... From jproctor at oit.umass.edu Fri Jul 23 08:32:44 1999 From: jproctor at oit.umass.edu (j proctor) Date: Thu Aug 5 00:03:06 2004 Subject: Weekly Perl Script [Issue 7] In-Reply-To: <199907231246.IAA22712@astro.fccj.cc.fl.us> Message-ID: On the Jax.PM jacksonville-pm-list; j proctor wrote - >>> while (++$len <= length) { >>> print substr($_, $len, 1) >>> if (index("abcdefghijklmnopqrstuvwxyz", >>> substr($_ , $len, 1)) > -1); >>> } >> >> >> print split(/[^a-z]+/, $_); > Very good :) When you moving back to Jax, FL ??? No time soon. Jacksonvile is purgatory--you have to stay there until you figure out where you're really supposed to be. In the last year and a half, I've gotten quite fond of Western Mass. > The BONUS is also misleading - the script does nothing more funny > than simply ignore any data lines that start with a Capital letter. > > So, you get credit for being first to answer and you get credit for > answering the BONUS without really knowing - your solution - on > the surface without testing - appears to do the same thing as the > code you've replaced. I tested it, and my version does *not* skip lines with initial caps (although it does ignore the capital itself). On considering it, I couldn't see why yours would skip a line either, so I checked, and it behaved identically (it skipped the letter but not the line). So, I eagerly await your explanation. :) j The Jacksonville Perl Monger's Group is operated by - Bill -Sneex- Jones ( sneex@usa.net ), to whom send all praises, complaints, or comments... From bill at fccj.org Fri Jul 23 09:17:12 1999 From: bill at fccj.org (Bill Jones) Date: Thu Aug 5 00:03:06 2004 Subject: Weekly Perl Script [Issue 7] Message-ID: <199907231413.KAA23308@astro.fccj.cc.fl.us> On the Jax.PM jacksonville-pm-list; "Bill Jones" wrote - > On the Jax.PM jacksonville-pm-list; > j proctor wrote - > > > >>>> while (++$len <= length) { >>>> print substr($_, $len, 1) >>>> if (index("abcdefghijklmnopqrstuvwxyz", >>>> substr($_ , $len, 1)) > -1); >>>> } >>> >>> > > I tested it, and my version does *not* skip lines with initial caps > (although it does ignore the capital itself). On considering it, I > couldn't see why yours would skip a line either, so I checked, and it > behaved identically (it skipped the letter but not the line). > > So, I eagerly await your explanation. :) > > > j Mea Culpa :( This line: if (index("abcdefghijklmnopqrstuvwxyz", should say: unless (index("abcdefghijklmnopqrstuvwxyz", And what was funny is that It only prints the Capital letters :( (I do not remember what I was thinking at the time, and must have really changed my mind before posting...) Example output: Inside of a, I found Inside of AAA, I found AAA Inside of AAAS, I found AAAS Inside of Aarhus, I found A Inside of Aaron, I found A Inside of AAU, I found AAU Inside of ABA, I found ABA Inside of Ababa, I found A Inside of aback, I found Inside of abacus, I found Inside of abalone, I found Inside of abandon, I found Inside of abase, I found Inside of abash, I found Inside of abate, I found Inside of abater, I found Inside of abbas, I found Inside of abbe, I found Inside of abbey, I found Inside of abbot, I found Inside of Abbott, I found A Boy, was I way off; -Sneex- :] The Jacksonville Perl Monger's Group is operated by - Bill -Sneex- Jones ( sneex@usa.net ), to whom send all praises, complaints, or comments... From jproctor at oit.umass.edu Fri Jul 23 10:47:00 1999 From: jproctor at oit.umass.edu (j proctor) Date: Thu Aug 5 00:03:06 2004 Subject: Weekly Perl Script [Issue 7] In-Reply-To: <199907231413.KAA23308@astro.fccj.cc.fl.us> Message-ID: On the Jax.PM jacksonville-pm-list; j proctor wrote - > This line: > if (index("abcdefghijklmnopqrstuvwxyz", > > should say: > unless (index("abcdefghijklmnopqrstuvwxyz", > > > And what was funny is that It only prints the Capital letters :( > (I do not remember what I was thinking at the time, and must have > really changed my mind before posting...) Ooh! Ooh! I know that one, too! :) print split(/[a-z]+/, $_); ...although I'd still use tr/a-z//d instead. j The Jacksonville Perl Monger's Group is operated by - Bill -Sneex- Jones ( sneex@usa.net ), to whom send all praises, complaints, or comments... From jproctor at oit.umass.edu Fri Jul 23 12:04:11 1999 From: jproctor at oit.umass.edu (j proctor) Date: Thu Aug 5 00:03:06 2004 Subject: Weekly Perl Script [Issue 7] Message-ID: On the Jax.PM jacksonville-pm-list; j proctor wrote - Okay, folks. Bill and I can keep talking to each other and cluttering your mailbox, or you can actually participate and enjoy these little exchanges and maybe even learn something. "There are two possibilities. Either they are unable to respond, or they are unwilling to respond." -- Spock If we proceed from the assumption that y'all aren't responding because these scripts aren't interesting, then we need to know what you'd like to see. Web stuff? Using modules? Making modules? System administration tasks simplified? Less junk mail from twerps like me? Do you want to learn more about some feature? About the language in general? Do you want to have high-level theoretical discussions about things like function prototyping? If you don't speak up, we're going to keep posting the same kinds of stuff. And that's not a promise; it's a threat! :) j The Jacksonville Perl Monger's Group is operated by - Bill -Sneex- Jones ( sneex@usa.net ), to whom send all praises, complaints, or comments... From bill at fccj.org Sat Jul 24 18:20:25 1999 From: bill at fccj.org (Bill Jones) Date: Thu Aug 5 00:03:06 2004 Subject: [JaxPM] Home Page Message-ID: <199907242316.TAA00777@astro.fccj.cc.fl.us> On the Jax.PM jacksonville-pm-list; "Bill Jones" wrote - Hey Jax.PM'ers! :] The Jax.PM home page was updated today; if you have links you would like to see there - so you don't have to clutter your Favorites bar (like I do) send them to me to include on the Jacksonville PM Home Page! Submissions must be related to: Security Perl C or to WWW stuff in general... Various OpSys stuff of a general nature has already been covered by the existing links.... On note about Perl - if you have questions - Ask! Post them to the Jax.PM list and we (the group) will try to answer them. Let's form a 'Stump the group!' contest to see who can post something that the group will have to actually think about before answering! Also, I am looking for people to contribute to the Weekly Perl Script issues! Let's get together and help make the Jax.PM a great success! Enjoy! -Sneex- :] ____________________________________________________________________ Bill Jones * Data Security Specialist * http://jacksonville.pm.org/ FCCJ * 501 W State St * Jacksonville, FL 32202 * 1 (904) 632-3089 __ __ __ __ __ / // /__ ____ ___ __ __ / // /__ _____/ /_____ ____ / _ / _ `/ _ \/ _ \/ // / / _ / _ `/ __/ '_/ -_) __/ /_//_/\_,_/ .__/ .__/\_, / /_//_/\_,_/\__/_/\_\\__/_/ /_/ /_/ /___/ Running LinuxPPC RedHat 5.0 (Hurricane) __ _ http://www.linuxppc.org / /(_)_ __ _ ___ __ http://www.apache.org / / | | '_ \| | | \ \/ / http://www.redhat.com / /__| | | | | |_| |> < http://www.perl.com \____/_|_| |_|\__,_/_/\_\ http://www.gimp.org The Jacksonville Perl Monger's Group is operated by - Bill -Sneex- Jones ( sneex@usa.net ), to whom send all praises, complaints, or comments... From bill at fccj.org Tue Jul 27 08:11:39 1999 From: bill at fccj.org (Bill Jones) Date: Thu Aug 5 00:03:06 2004 Subject: [JaxPM] Home Page Updated Message-ID: <199907271307.JAA17410@astro.fccj.cc.fl.us> On the Jax.PM jacksonville-pm-list; "Bill Jones" wrote - Hi Jax.PM'ers :] Our Home Page at http://jacksonville.pm.org has been updated with some news and a new Jax Area Jobs Section - for the Jacksonville Perl Mongers, of course :) IntelliMark has asked me to place a corporate profile and to tell you that they are looking for Perl programmers for contract work. If you are interested - See http://jacksonville.pm.org/JaxPM_AreaJobs/IntelliMark_JaxPM.html As I find local area businesses looking for Perl programmers or if you know of local area businesses that would like to place an add to hire Perl Mongers then please contact me! I will list them all under the URL of - http://jacksonville.pm.org/JaxPM_AreaJobs/ Have a great week! -Sneex- :] ____________________________________________________________________ Bill Jones * Data Security Specialist * http://jacksonville.pm.org/ FCCJ * 501 W State St * Jacksonville, FL 32202 * 1 (904) 632-3089 __ __ __ __ __ / // /__ ____ ___ __ __ / // /__ _____/ /_____ ____ / _ / _ `/ _ \/ _ \/ // / / _ / _ `/ __/ '_/ -_) __/ /_//_/\_,_/ .__/ .__/\_, / /_//_/\_,_/\__/_/\_\\__/_/ /_/ /_/ /___/ Running LinuxPPC RedHat 5.0 (Hurricane) __ _ http://www.linuxppc.org / /(_)_ __ _ ___ __ http://www.apache.org / / | | '_ \| | | \ \/ / http://www.redhat.com / /__| | | | | |_| |> < http://www.perl.com \____/_|_| |_|\__,_/_/\_\ http://www.gimp.org The Jacksonville Perl Monger's Group is operated by - Bill -Sneex- Jones ( sneex@usa.net ), to whom send all praises, complaints, or comments...