From mkolakow at yahoo.com  Wed Nov  3 13:35:16 2010
From: mkolakow at yahoo.com (Michael Kolakowski)
Date: Wed, 3 Nov 2010 13:35:16 -0700 (PDT)
Subject: [Omaha.pm] Code retreat - repost
Message-ID: <826261.36732.qm@web54204.mail.re2.yahoo.com>

It's not too late to sign up!  There will be free breakfast and free lunch.  What more could you ask for?  Please pass it on to others as well.

[as featured in silicon prairie news]
http://coderetreat.ning.com/events/coderetreat-omaha

Thanks,
Michael

----------------------------------------
Hi,

A couple of us are organizing a code retreat.  I do believe this is Omaha's first.  Anyhow, please sign up here if you are interested:

http://coderetreat.ning.com/events/coderetreat-omaha

Let me know if you have any questions.

Cheers,
Michael Kolakowski




      

From dan at linder.org  Wed Nov  3 14:05:31 2010
From: dan at linder.org (Dan Linder)
Date: Wed, 3 Nov 2010 16:05:31 -0500
Subject: [Omaha.pm] Intermittent Perl error...
In-Reply-To: <CA259D3B-2916-41E8-AAF9-0A90391E27E8@mutationgrid.com>
References: <AANLkTikoPv3vEDH6NP_bNWaGA+_ef6chU=f7CTyRRnj4@mail.gmail.com>
	<429BE050-59A0-4F1B-93E6-EB2260A6C4A2@mutationgrid.com>
	<AANLkTim3bhwZFppbE2T0cucJkCnkT1NSjNAWJQ9NvsOA@mail.gmail.com>
	<AANLkTimtptcrbfxi3AQa6mox+Z_8=iLptDqDxN3zdXqF@mail.gmail.com>
	<B830BFB9-1675-4AD4-8235-C5AE47E1956A@mutationgrid.com>
	<AANLkTi=5-ug4K9oVZN2BgKFOW==PT5vzMt-yR0XU0FmB@mail.gmail.com>
	<CA259D3B-2916-41E8-AAF9-0A90391E27E8@mutationgrid.com>
Message-ID: <AANLkTinESa-ZfrXKskXhiCfhtYhzEZ1j-syHb0CJynmx@mail.gmail.com>

*sigh*

Turns out this was not the intermittent error I thought it was.  I talked
with the user some more, and it turns out they had customized the CGI and
the library file so it doesn't contain this second subroutine.

BUT, they forgot to update all the URLs in their system.  When they called
their customized CGI that only used the first subroutine, all was well.
 When the user clicked on one of the old URLs pointing to the original code
(that called both subroutines), it was crashing because the second
subroutine isn't defined in the module anymore...  (Don't know why.)

Thanks for all the feed-back on this, sorry it was a red herring.

Glad to know it wasn't an instability in the Perl libraries!

Dan

On Sun, Oct 31, 2010 at 08:00, Jay Hannah <jhannah at mutationgrid.com> wrote:

> On Oct 30, 2010, at 3:29 PM, Dan Linder wrote:
> > It's a vanilla CGI on a Solaris 10 (Sparc) box.
>
> Huh. Ya, with vanilla CGI (all Perl re-interpretted from scratch on every
> single web hit) I don't know how that error is possible if the source code
> isn't changing.   :(
>
> > If we're still stumped, I'm hoping to enlist a co-worker who has
> experience with Dtrace so we may go that route.  I'm hoping we can log
> memory, swap, or process related errors.
>
> If it's only happening every few weeks graphing out your long term system
> trends (memory, process count, etc.) might show a correlation?
> http://www.cacti.net/
>
> Make sure to tell us what you figure out.   :)
>
> HTH,
>
> Jay Hannah
> Software Architect
> jhannah at mutationgrid.com | http://mutationgrid.com | 1-402-598-7782
>
>
>
>
>
> _______________________________________________
> Omaha-pm mailing list
> Omaha-pm at pm.org
> http://mail.pm.org/mailman/listinfo/omaha-pm
>



-- 
***************** ************* *********** ******* ***** *** **
"Quis custodiet ipsos custodes?"
    (Who can watch the watchmen?)
    -- from the Satires of Juvenal
"I do not fear computers, I fear the lack of them."
    -- Isaac Asimov (Author)
** *** ***** ******* *********** ************* *****************
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/omaha-pm/attachments/20101103/a9969348/attachment.html>

From mkolakow at yahoo.com  Wed Nov  3 19:35:19 2010
From: mkolakow at yahoo.com (Michael Kolakowski)
Date: Wed, 3 Nov 2010 19:35:19 -0700 (PDT)
Subject: [Omaha.pm] Intermittent Perl error...
In-Reply-To: <AANLkTinESa-ZfrXKskXhiCfhtYhzEZ1j-syHb0CJynmx@mail.gmail.com>
Message-ID: <12297.32108.qm@web54205.mail.re2.yahoo.com>

Funny that - I just got done reading the "Select isn't broken" section from "The Pragmatic Programmer."? What an apropos book.

Michael


--- On Wed, 11/3/10, Dan Linder <dan at linder.org> wrote:

From: Dan Linder <dan at linder.org>
Subject: Re: [Omaha.pm] Intermittent Perl error...
To: "Perl Mongers of Omaha, Nebraska USA" <omaha-pm at pm.org>
Date: Wednesday, November 3, 2010, 4:05 PM

*sigh*
Turns out this was not the?intermittent?error I thought it was. ?I talked with the user some more, and it turns out they had customized the CGI and the library file so it doesn't contain this second subroutine.


BUT, they forgot to update all the URLs in their system. ?When they called their customized CGI that only used the first subroutine, all was well. ?When the user clicked on one of the old URLs pointing to the original code (that called both subroutines), it was crashing because the second subroutine isn't defined in the module anymore... ?(Don't know why.)


Thanks for all the feed-back on this, sorry it was a red herring.
Glad to know it wasn't an instability in the Perl libraries!
Dan



On Sun, Oct 31, 2010 at 08:00, Jay Hannah <jhannah at mutationgrid.com> wrote:


On Oct 30, 2010, at 3:29 PM, Dan Linder wrote:

> It's a vanilla CGI on a Solaris 10 (Sparc) box.



Huh. Ya, with vanilla CGI (all Perl re-interpretted from scratch on every single web hit) I don't know how that error is possible if the source code isn't changing. ? :(



> If we're still stumped, I'm hoping to enlist a co-worker who has experience with Dtrace so we may go that route. ?I'm hoping we can log memory, swap, or process related errors.



If it's only happening every few weeks graphing out your long term system trends (memory, process count, etc.) might show a correlation? ?http://www.cacti.net/





Make sure to tell us what you figure out. ? :)



HTH,



Jay Hannah

Software Architect

jhannah at mutationgrid.com | http://mutationgrid.com | 1-402-598-7782











_______________________________________________

Omaha-pm mailing list

Omaha-pm at pm.org

http://mail.pm.org/mailman/listinfo/omaha-pm




-- 
***************** ************* *********** ******* ***** *** **
"Quis custodiet ipsos custodes?"
? ? (Who can watch the watchmen?)
? ? -- from the Satires of Juvenal


"I do not fear computers, I fear the lack of them."
? ? -- Isaac Asimov (Author)
** *** ***** ******* *********** ************* *****************



-----Inline Attachment Follows-----

_______________________________________________
Omaha-pm mailing list
Omaha-pm at pm.org
http://mail.pm.org/mailman/listinfo/omaha-pm


      
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/omaha-pm/attachments/20101103/5e896209/attachment.html>

From sterling at hanenkamp.com  Wed Nov  3 23:37:29 2010
From: sterling at hanenkamp.com (Sterling Hanenkamp)
Date: Thu, 4 Nov 2010 01:37:29 -0500
Subject: [Omaha.pm] Intermittent Perl error...
In-Reply-To: <AANLkTinESa-ZfrXKskXhiCfhtYhzEZ1j-syHb0CJynmx@mail.gmail.com>
References: <AANLkTikoPv3vEDH6NP_bNWaGA+_ef6chU=f7CTyRRnj4@mail.gmail.com>
	<429BE050-59A0-4F1B-93E6-EB2260A6C4A2@mutationgrid.com>
	<AANLkTim3bhwZFppbE2T0cucJkCnkT1NSjNAWJQ9NvsOA@mail.gmail.com>
	<AANLkTimtptcrbfxi3AQa6mox+Z_8=iLptDqDxN3zdXqF@mail.gmail.com>
	<B830BFB9-1675-4AD4-8235-C5AE47E1956A@mutationgrid.com>
	<AANLkTi=5-ug4K9oVZN2BgKFOW==PT5vzMt-yR0XU0FmB@mail.gmail.com>
	<CA259D3B-2916-41E8-AAF9-0A90391E27E8@mutationgrid.com>
	<AANLkTinESa-ZfrXKskXhiCfhtYhzEZ1j-syHb0CJynmx@mail.gmail.com>
Message-ID: <AANLkTinOhtGoKB3cXB1OBrOymO-ob4agspHWwwvPi_sq@mail.gmail.com>

Awesome. At least you got it figured out. :)

2010/11/3 Dan Linder <dan at linder.org>

> *sigh*
>
> Turns out this was not the intermittent error I thought it was.  I talked
> with the user some more, and it turns out they had customized the CGI and
> the library file so it doesn't contain this second subroutine.
>
> BUT, they forgot to update all the URLs in their system.  When they called
> their customized CGI that only used the first subroutine, all was well.
>  When the user clicked on one of the old URLs pointing to the original code
> (that called both subroutines), it was crashing because the second
> subroutine isn't defined in the module anymore...  (Don't know why.)
>
> Thanks for all the feed-back on this, sorry it was a red herring.
>
> Glad to know it wasn't an instability in the Perl libraries!
>
> Dan
>
>
> On Sun, Oct 31, 2010 at 08:00, Jay Hannah <jhannah at mutationgrid.com>wrote:
>
>> On Oct 30, 2010, at 3:29 PM, Dan Linder wrote:
>> > It's a vanilla CGI on a Solaris 10 (Sparc) box.
>>
>> Huh. Ya, with vanilla CGI (all Perl re-interpretted from scratch on every
>> single web hit) I don't know how that error is possible if the source code
>> isn't changing.   :(
>>
>> > If we're still stumped, I'm hoping to enlist a co-worker who has
>> experience with Dtrace so we may go that route.  I'm hoping we can log
>> memory, swap, or process related errors.
>>
>> If it's only happening every few weeks graphing out your long term system
>> trends (memory, process count, etc.) might show a correlation?
>> http://www.cacti.net/
>>
>> Make sure to tell us what you figure out.   :)
>>
>> HTH,
>>
>> Jay Hannah
>> Software Architect
>> jhannah at mutationgrid.com | http://mutationgrid.com | 1-402-598-7782
>>
>>
>>
>>
>>
>> _______________________________________________
>> Omaha-pm mailing list
>> Omaha-pm at pm.org
>> http://mail.pm.org/mailman/listinfo/omaha-pm
>>
>
>
>
> --
> ***************** ************* *********** ******* ***** *** **
> "Quis custodiet ipsos custodes?"
>     (Who can watch the watchmen?)
>     -- from the Satires of Juvenal
> "I do not fear computers, I fear the lack of them."
>     -- Isaac Asimov (Author)
> ** *** ***** ******* *********** ************* *****************
>
> _______________________________________________
> Omaha-pm mailing list
> Omaha-pm at pm.org
> http://mail.pm.org/mailman/listinfo/omaha-pm
>



-- 
Andrew Sterling Hanenkamp
sterling at hanenkamp.com
785.370.4454
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/omaha-pm/attachments/20101104/66fc537e/attachment-0001.html>

From jhannah at mutationgrid.com  Fri Nov  5 10:01:11 2010
From: jhannah at mutationgrid.com (Jay Hannah)
Date: Fri, 5 Nov 2010 12:01:11 -0500
Subject: [Omaha.pm] Meeting Tue, 7pm - jQuery, MongoDB
Message-ID: <21DBFAD9-7798-4A31-99C0-FE5453CC764D@mutationgrid.com>

http://odlug.org

Next meeting:
  Tuesday November 9 2010, 7pm
  Room PKI 276

I'll be presenting "Dynamic HTML forms and storage via jQuery and MongoDB." This is recent work I've been doing for one of my clients where an arbitrary number of dynamic form fields need to be persisted per calendar date... My solution is a fairly large stack of jQuery features.

Plus whatever else y'all bring and want to share.  :)

Jay Hannah
Software Architect
jhannah at mutationgrid.com | http://mutationgrid.com | 1-402-598-7782



From jhannah at mutationgrid.com  Fri Nov  5 10:53:16 2010
From: jhannah at mutationgrid.com (Jay Hannah)
Date: Fri, 5 Nov 2010 12:53:16 -0500
Subject: [Omaha.pm] odlug.org template
Message-ID: <1B8AE16E-7CC4-46DF-9A32-8710857399F8@mutationgrid.com>

I got sick of staring at our white homepage, so I slapped our content (almost none -laugh-) into a free template:

   http://odlug.org

Patches welcome.  :)

Jay Hannah
Software Architect
jhannah at mutationgrid.com | http://mutationgrid.com | 1-402-598-7782




From rob.townley at gmail.com  Sat Nov  6 13:07:50 2010
From: rob.townley at gmail.com (Rob Townley)
Date: Sat, 6 Nov 2010 15:07:50 -0500
Subject: [Omaha.pm] community development server
In-Reply-To: <CA0C803A-8F18-4DE0-90F8-A38EDAAA4FC4@mutationgrid.com>
References: <CA0C803A-8F18-4DE0-90F8-A38EDAAA4FC4@mutationgrid.com>
Message-ID: <AANLkTimg1PEP7YMFibM2b-ZNo2Dv-1S1-q3MeVfM9GLu@mail.gmail.com>

On Wed, Sep 15, 2010 at 9:27 AM, Jay Hannah <jhannah at mutationgrid.com> wrote:
> The "community development server" is online:
>
> ?http://odlug.org
>
> Regular meeting attendees can send me their desired username and I'll create them an account w/ sudoers access.
>
> Cheers,
>
> Jay Hannah
> Software Architect
> jhannah at mutationgrid.com
> 1-402-598-7782
>


Can you please create an account
desired username=rjt
email=rob.townley at gmail.com



>
>
> _______________________________________________
> Omaha-pm mailing list
> Omaha-pm at pm.org
> http://mail.pm.org/mailman/listinfo/omaha-pm
>

From jay at jays.net  Sat Nov  6 15:09:05 2010
From: jay at jays.net (Jay Hannah)
Date: Sat, 6 Nov 2010 17:09:05 -0500
Subject: [Omaha.pm] community development server
In-Reply-To: <AANLkTimg1PEP7YMFibM2b-ZNo2Dv-1S1-q3MeVfM9GLu@mail.gmail.com>
References: <CA0C803A-8F18-4DE0-90F8-A38EDAAA4FC4@mutationgrid.com>
	<AANLkTimg1PEP7YMFibM2b-ZNo2Dv-1S1-q3MeVfM9GLu@mail.gmail.com>
Message-ID: <64117C51-0350-4CB5-9456-1B333A20474F@jays.net>

On Nov 6, 2010, at 3:07 PM, Rob Townley wrote:
> desired username=rjt

Yup. Done.    :)

(Thanks for coming out to Code Retreat!)

j



From jhannah at mutationgrid.com  Wed Nov 10 12:40:45 2010
From: jhannah at mutationgrid.com (Jay Hannah)
Date: Wed, 10 Nov 2010 14:40:45 -0600
Subject: [Omaha.pm] DBIx::Class - join on a joined table
Message-ID: <155B22C0-C121-4777-8B8C-EF635021CDAC@mutationgrid.com>

Whoah, neat. I just did my first "join on a joined table" in DBIC. It guessed at the syntax and it "Just Worked."   :)

   prefetch => [ qw( program ), { exercise => 'instruction' } ],

   SELECT ... FROM program_details me JOIN programs program ON program.id = me.program_id JOIN exercises exercise ON exercise.id = me.exercise_id JOIN instructions instruction ON instruction.id = exercise.instruction_id WHERE ...

I gained 2 XP for that one. Full context below.   :)

Jay Hannah
Software Architect
jhannah at mutationgrid.com | http://mutationgrid.com | 1-402-598-7782




   my $rows =    $c->model('amd::ProgramDetail')->search(
      {
         program_id     => $program->id,
         workout_number => $workout_number,
      },
      {
         prefetch => [ qw( program ), { exercise => 'instruction' } ],
         order_by => { -asc => [ qw( workout_number exercise_number ) ] },
      }
   );


export DBIC_TRACE=1

SELECT me.id, me.program_id, me.workout_number, me.exercise_number, me.exercise_id, me.extype, me.sets, me.reps, me.style, me.step, me.worktype, me.primex, me.primperc, me.compperc, me.percstop, me.targethigh, me.targetlow, me.highset, me.lowset, me.valinc, me.valdec, program.id, program.short_desc, program.skill_level, program.category, program.long_desc, exercise.id, exercise.short_desc, exercise.instruction_id, exercise.long_desc, instruction.id, instruction.long_desc FROM program_details me JOIN programs program ON program.id = me.program_id JOIN exercises exercise ON exercise.id = me.exercise_id JOIN instructions instruction ON instruction.id = exercise.instruction_id WHERE ( ( program_id = ? AND workout_number = ? ) ) ORDER BY workout_number ASC, exercise_number ASC: '63', '1'



From jhannah at mutationgrid.com  Thu Nov 18 13:09:27 2010
From: jhannah at mutationgrid.com (Jay Hannah)
Date: Thu, 18 Nov 2010 15:09:27 -0600
Subject: [Omaha.pm] Fwd: weird perl bug
References: <396CEDAA86B38646ACE2FEAA22C3FBF1041D13A5@l3exchange.omnihotels.net>
Message-ID: <6B86DB70-8C91-4E83-A5BB-59A8DBADE084@mutationgrid.com>

Forwarding w/ Trey's permission.

Jay Hannah
Software Architect
jhannah at mutationgrid.com | http://mutationgrid.com | 1-402-598-7782



From: "Trey Bianchini" <wbia... at omnihotels.com>
Date: November 10, 2010 2:31:32 PM CST
To: <jhannah at mutationgrid.com>
Subject: weird perl bug


Jay, I know you like things like this so


======================================================
use strict;

my $nc='JANE WELK';
my $tc='JANE WELK';

my $tmp_one_name='JANE';
my $tmp_two_name='WELK';


print "WELCOME\n" if ( ${nc} =~ /$tmp_two_name/g );
print "TO\n"      if ( ${tc} =~ /$tmp_one_name/g );

print "BIZZARO\n" if ( ${nc} =~ /$tmp_one_name/g );
print "LAND\n"    if ( ${nc} =~ /$tmp_two_name/g );


========================================================


It seems when I'm evaluating a scalar containing a string  I use scalars
for patterns in the regex, that when I match against the back of the
string and then try to use the same scalar and match against the front
of the string My match fails.

The first two print statements are my most unsatisfying workaround
The third  print statement illustrates the bug.

Here is the output
===================


omares-dev3>perl -v

This is perl, v5.10.0 built ...
...
Page.

omares-dev3>perl ./woah
WELCOME
TO
LAND


From andy at petdance.com  Thu Nov 18 13:29:00 2010
From: andy at petdance.com (Andy Lester)
Date: Thu, 18 Nov 2010 15:29:00 -0600
Subject: [Omaha.pm] Fwd: weird perl bug
In-Reply-To: <6B86DB70-8C91-4E83-A5BB-59A8DBADE084@mutationgrid.com>
References: <396CEDAA86B38646ACE2FEAA22C3FBF1041D13A5@l3exchange.omnihotels.net>
	<6B86DB70-8C91-4E83-A5BB-59A8DBADE084@mutationgrid.com>
Message-ID: <F83E877C-5127-48DF-A443-0F43665659C6@petdance.com>


On Nov 18, 2010, at 3:09 PM, Jay Hannah wrote:

> print "WELCOME\n" if ( ${nc} =~ /$tmp_two_name/g );
> print "TO\n"      if ( ${tc} =~ /$tmp_one_name/g );
> 
> print "BIZZARO\n" if ( ${nc} =~ /$tmp_one_name/g );
> print "LAND\n"    if ( ${nc} =~ /$tmp_two_name/g );

This is not a bug in Perl.

Boil this down to two statements:

print "WELCOME\n" if ( ${nc} =~ /$tmp_two_name/g );
print "BIZZARO\n" if ( ${nc} =~ /$tmp_one_name/g );

The first statement matches, and leaves the internal matching pointer pointing after the first match, which means at the end of the first string.  Then, the second match tries to pick up at the same place, because of the /g flag.

Unless you're trying to do some deep magic here that's not obvious to me, you should NOT be using the /g flag.  The /g flag is only used for matching multiple times the same pattern through the same string, as in

my (@words) = ( $string =~ /(\w+)/g );

xoxo,
Andy

--
Andy Lester => andy at petdance.com => www.techworklove.com => AIM:petdance






From dan at linder.org  Thu Nov 18 20:20:44 2010
From: dan at linder.org (Dan Linder)
Date: Thu, 18 Nov 2010 22:20:44 -0600
Subject: [Omaha.pm] Fwd: weird perl bug
In-Reply-To: <F83E877C-5127-48DF-A443-0F43665659C6@petdance.com>
References: <396CEDAA86B38646ACE2FEAA22C3FBF1041D13A5@l3exchange.omnihotels.net>
	<6B86DB70-8C91-4E83-A5BB-59A8DBADE084@mutationgrid.com>
	<F83E877C-5127-48DF-A443-0F43665659C6@petdance.com>
Message-ID: <AANLkTinnLSwBpkdQ0nFj52bzR5wjfgPraZLUa_CKcPYu@mail.gmail.com>

Andy Lester wrote:
> The first statement matches, and leaves the internal matching pointer
pointing
> after the first match, which means at the end of the first string.  Then,
the second
> match tries to pick up at the same place, because of the /g flag.

The "/g" flag carries across multiple matching calls/lines?

Learn something new every day...  Thanks!

Dan

-- 
***************** ************* *********** ******* ***** *** **
"Quis custodiet ipsos custodes?"
    (Who can watch the watchmen?)
    -- from the Satires of Juvenal
"I do not fear computers, I fear the lack of them."
    -- Isaac Asimov (Author)
** *** ***** ******* *********** ************* *****************
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/omaha-pm/attachments/20101118/c252cee2/attachment.html>

From jhannah at mutationgrid.com  Fri Nov 19 08:40:42 2010
From: jhannah at mutationgrid.com (Jay Hannah)
Date: Fri, 19 Nov 2010 10:40:42 -0600
Subject: [Omaha.pm] Fwd: weird perl bug
In-Reply-To: <AANLkTinnLSwBpkdQ0nFj52bzR5wjfgPraZLUa_CKcPYu@mail.gmail.com>
References: <396CEDAA86B38646ACE2FEAA22C3FBF1041D13A5@l3exchange.omnihotels.net>
	<6B86DB70-8C91-4E83-A5BB-59A8DBADE084@mutationgrid.com>
	<F83E877C-5127-48DF-A443-0F43665659C6@petdance.com>
	<AANLkTinnLSwBpkdQ0nFj52bzR5wjfgPraZLUa_CKcPYu@mail.gmail.com>
Message-ID: <343FAD3C-0433-4831-933D-A98FC55C85D9@mutationgrid.com>

On Nov 18, 2010, at 10:20 PM, Dan Linder wrote:
> The "/g" flag carries across multiple matching calls/lines?
> 
> Learn something new every day...  Thanks!

Ya, Andy's explanation helped me too. At a glance I had no idea what was going on.  :)

In array context all the /g matches are slurped out "in one line of code:"

   my (@words) = ( $string =~ /(\w+)/g );

And nothing "weird" happens. But in scalar context perl "remembers" so that functions like pos() can do their thing. I used pos() frequently in bioinformatics work (genetic sequence searches):

   $ cat j.pl
   my $string = "foo bar baz boogity baggity";
   while ($string =~ /(\w+)/g) {
      printf("%s match ended at position %s\n", $1, pos($string));
      # and do whatever else you want. perl remembers where you were
      # in the $string =~ match above!
   }

   $ perl j.pl  
   foo match ended at position 3
   bar match ended at position 7
   baz match ended at position 11
   boogity match ended at position 19
   baggity match ended at position 27

:)

Jay Hannah
Software Architect
jhannah at mutationgrid.com | http://mutationgrid.com | 1-402-598-7782






From andy at petdance.com  Fri Nov 19 08:48:33 2010
From: andy at petdance.com (Andy Lester)
Date: Fri, 19 Nov 2010 10:48:33 -0600
Subject: [Omaha.pm] Fwd: weird perl bug
In-Reply-To: <343FAD3C-0433-4831-933D-A98FC55C85D9@mutationgrid.com>
References: <396CEDAA86B38646ACE2FEAA22C3FBF1041D13A5@l3exchange.omnihotels.net>
	<6B86DB70-8C91-4E83-A5BB-59A8DBADE084@mutationgrid.com>
	<F83E877C-5127-48DF-A443-0F43665659C6@petdance.com>
	<AANLkTinnLSwBpkdQ0nFj52bzR5wjfgPraZLUa_CKcPYu@mail.gmail.com>
	<343FAD3C-0433-4831-933D-A98FC55C85D9@mutationgrid.com>
Message-ID: <EF6BBF88-775D-42CA-B806-1A6FA50EDA79@petdance.com>


On Nov 19, 2010, at 10:40 AM, Jay Hannah wrote:

> Ya, Andy's explanation helped me too. At a glance I had no idea what was going on.  :)
> 
> In array context all the /g matches are slurped out "in one line of code:"

The BIG lesson here is that one should not use flags on regexes if one does not know WHY they are there.  I suspect that the original author had a /g on the regex simply because all of his regexes have them, perhaps because of cut & paste.  This is called cargo culting.

Another classic bit of cargo culting is escaping characters in a regular expression simply because the author fears that it's necessary.  For example, you might be looking for a movie title, "Because of Winn-Dixie", including the quotation marks, in a block of text.  The cargo culter will write that regex like so

    $text =~ m/\"Because of Winn\-Dixie\"/

because he is afraid that " and - have to be escaped in a regular expression.  They do not.

xoa

--
Andy Lester => andy at petdance.com => www.techworklove.com => AIM:petdance






From jhannah at mutationgrid.com  Fri Nov 19 09:01:46 2010
From: jhannah at mutationgrid.com (Jay Hannah)
Date: Fri, 19 Nov 2010 11:01:46 -0600
Subject: [Omaha.pm] Fwd: weird perl bug
In-Reply-To: <EF6BBF88-775D-42CA-B806-1A6FA50EDA79@petdance.com>
References: <396CEDAA86B38646ACE2FEAA22C3FBF1041D13A5@l3exchange.omnihotels.net>
	<6B86DB70-8C91-4E83-A5BB-59A8DBADE084@mutationgrid.com>
	<F83E877C-5127-48DF-A443-0F43665659C6@petdance.com>
	<AANLkTinnLSwBpkdQ0nFj52bzR5wjfgPraZLUa_CKcPYu@mail.gmail.com>
	<343FAD3C-0433-4831-933D-A98FC55C85D9@mutationgrid.com>
	<EF6BBF88-775D-42CA-B806-1A6FA50EDA79@petdance.com>
Message-ID: <3FF93F25-A68D-4700-AD9B-426CFEA2975F@mutationgrid.com>

On Nov 19, 2010, at 10:48 AM, Andy Lester wrote:
>    $text =~ m/\"Because of Winn\-Dixie\"/
> 
> because he is afraid that " and - have to be escaped in a regular expression.  They do not.

You have to be careful with - inside sets though. Sometimes that - does need to be escaped.  :)

my $string = "123-abc";
print $string =~ /^[123abc]+$/   ? "y" : "n";
print $string =~ /^[123-abc]+$/  ? "y" : "n";
print $string =~ /^[123\-abc]+$/ ? "y" : "n";

nny

Jay Hannah
Software Architect
jhannah at mutationgrid.com | http://mutationgrid.com | 1-402-598-7782






From jhannah at mutationgrid.com  Mon Nov 22 12:33:38 2010
From: jhannah at mutationgrid.com (Jay Hannah)
Date: Mon, 22 Nov 2010 14:33:38 -0600
Subject: [Omaha.pm] noCPAN coding
Message-ID: <4399653A-8521-433F-8625-9C7932C47896@mutationgrid.com>

If you can't use CPAN at all (gasp!) how do you detect if $record year/month is more than 7 years ago? I've been using Class::Date and/or DateTime *forever* so this was quite a trip down memory lane today:
 
   my @localtime = localtime(time);
   my $cutoff_mon = sprintf("%02d", $localtime[4] + 1);
   my $cutoff_year = $localtime[5] + 1900 - 7;  # 7 years ago
   my $disabled;        
   if ($record->{"DateLastSeen"}{"Year"} . $record->{"DateLastSeen"}{"Month"} lt "$cutoff_year$cutoff_mon") {
      $disabled = "DISABLED";
   }

:)

Jay Hannah
Software Architect
jhannah at mutationgrid.com | http://mutationgrid.com | 1-402-598-7782









From sirloxelroy at gmail.com  Tue Nov 23 13:24:41 2010
From: sirloxelroy at gmail.com (Chris Brandstetter)
Date: Tue, 23 Nov 2010 15:24:41 -0600
Subject: [Omaha.pm] noCPAN coding (Jay Hannah)
In-Reply-To: <mailman.21.1290542417.19278.omaha-pm@pm.org>
References: <mailman.21.1290542417.19278.omaha-pm@pm.org>
Message-ID: <4CEC3119.7080300@gmail.com>

On 11/23/10 2:00 PM, omaha-pm-request at pm.org wrote:
> Message: 1
> Date: Mon, 22 Nov 2010 14:33:38 -0600
> From: Jay Hannah<jhannah at mutationgrid.com>
> Subject: [Omaha.pm] noCPAN coding
> To: Nebraska USA Perl Mongers of Omaha<omaha-pm at pm.org>
> Message-ID:<4399653A-8521-433F-8625-9C7932C47896 at mutationgrid.com>
> Content-Type: text/plain; charset=us-ascii
>
> If you can't use CPAN at all (gasp!) how do you detect if $record year/month is more than 7 years ago? I've been using Class::Date and/or DateTime *forever* so this was quite a trip down memory lane today:
>
>     my @localtime = localtime(time);
>     my $cutoff_mon = sprintf("%02d", $localtime[4] + 1);
>     my $cutoff_year = $localtime[5] + 1900 - 7;  # 7 years ago
>     my $disabled;
>     if ($record->{"DateLastSeen"}{"Year"} . $record->{"DateLastSeen"}{"Month"} lt "$cutoff_year$cutoff_mon") {
>        $disabled = "DISABLED";
>     }
>
> :)
>
> Jay Hannah
> Software Architect
> jhannah at mutationgrid.com | http://mutationgrid.com | 1-402-598-7782

That's the way I fist did date calculations years ago.  :-)  I remember 
having these large complex calculations just to do something date::calc 
does in 2 lines, and yes using $localtime was your friend.  :-)

-- 
Chris Brandstetter

-----BEGIN GEEK CODE BLOCK-----
Version: 3.1
GCS/IT d+(-) s++:++ a C++++$ UBLISXC*++++$ P++++$ L+++$ E-- W+++ N+ o K-
w-- O M++$ V PS- PE Y+ PGP++ t++ 5+++ X+ R- tv-- b+>+++ DI D+ G+ e+ h++
r
y?
------END GEEK CODE BLOCK------

To Decode: http://www.ebb.org/ungeek/


From jay at jays.net  Mon Nov 29 12:23:22 2010
From: jay at jays.net (Jay Hannah)
Date: Mon, 29 Nov 2010 14:23:22 -0600
Subject: [Omaha.pm] Fwd: Perl Position in Kansas City
References: <AANLkTikD8iUn-_4sLXAs-eUAnsVtLFW3bcAwLK8Ybfc1@mail.gmail.com>
Message-ID: <CDBCEE2D-0DED-468B-9712-F9AD00A05DAA@jays.net>

Say "hi" to my parents if you've been itching to move to KC.   :)

j




Begin forwarded message:
> From: Andrew Moore <amoore at mooresystems.com>
> Date: November 29, 2010 2:00:07 PM CST
> To: kc at pm.org
> Subject: [Kc] Fwd: Perl Position in Kansas City
> 
> Hi KC perlers -
> 
> Here's some information about a job opening I recently received. I
> hope it helps someone out.
> 
> -Andy
> 
> 
> ---------- Forwarded message ----------
> From: McMillan, Melissa <Melissa.McMillan at lrs.com>
> Date: Mon, Nov 29, 2010 at 1:48 PM
> Subject: Perl Position in Kansas City
> To: "amoore at mooresystems.com" <amoore at mooresystems.com>
> 
> 
> Andy,
> 
> 
> 
> My name is Melissa McMillan and I?m a recruiter in Kansas City. I have
> spoken with the Perl developers in KC that I know and all the ones I
> normally network with are happily employed at this time.
> 
> So, I thought I would broaden my communications and share a position
> we have available with you in case you or someone in your user group
> would be interested. I would sincerely appreciate you sharing this
> position with anyone you feel would want to see it.
> 
> This is a six month contract that could turn into a direct-hire ?perm?
> role but isn?t guaranteed to. .My contact information and the position
> description are included below. I look forward to hearing from you or
> anyone in your network. Thanks!
> 
> 
> 
> P.S. This position is with Accenture at Interstate Brands Corp. A
> similar role has been open (many times) in the past. People that
> submitted their resumes in the past can be considered again through a
> new staffing agency.
> 
> 
> 
> Sincerely,
> 
> 
> 
> Melissa Holmes McMillan  ?  Senior Technical Recruiter
> 
> LRS Consulting Services www.lrs.com
> 
> 9300 West 110th Street, Suite 435, Overland Park, Kansas 66210
> 
> O: 913.339.9200 x2312 | M: 816.509.2673 | F: 217.726.2558
> 
> Melissa.McMillan at lrs.com | Connect with me:
> http://www.linkedin.com/in/melissaholmes
> 
> 
> 
> 
> 
> Perl/MySQL Development Analyst
> 
> The Perl/MySQL development analyst would be responsible for supporting
> the maintenance and enhancement of Perl-based production systems.
> Additional experience in MySQL is also required.  This resource will
> be involved in training novice developers in these same skills.  This
> resource will also be required to complete required documentation for
> all phases of the software development life cycle.
> 
> 
> 
> Key Skill 1:
> 
> Developing dynamic web applications through the use of Perl CGI scripts
> 
> 
> 
> Key Skill 2:
> 
> MySQL experience including implementing, upgrading,  and maintaining
> Databases in Windows and Linux environments
> 
> 
> 
> Must-Have Skills/Qualifications:
> 
> 3-5 years experience with Perl/CGI
> 2+ years of professional experience of developing with HTML and CSS
> 2+ years of professional experience working in a MySQL environment
> 
> 
> 
> Nice-to-Have Skills/Qualifications:
> 
> Experience with AJAX and Active Directory
> Ability to understand COBOL source code
> Solid knowledge of SQL and HTML, JavaScript, and CSS
> Ability to understand ColdFusion source code