From tony at metracom.com  Tue Apr  2 21:40:22 2013
From: tony at metracom.com (Tony)
Date: Tue, 2 Apr 2013 21:40:22 -0700
Subject: [Oc-pm] Next OC Perl Mongers meeting April 29th at 7pm
Message-ID: <201304022140.22319.tony@metracom.com>



OC Perl Mongers, Mark your calendars. Our next meeting is April 29th at 7pm. 

The April Perl Challenge is posted on the website.  I hope you like 5 card 
Poker! 

Let me know if you would like to be a presenter.  We need 2 presenters. 

See you on the 29th

Tony Gasparovic

From tony at metracom.com  Mon Apr 22 19:17:44 2013
From: tony at metracom.com (Tony)
Date: Mon, 22 Apr 2013 19:17:44 -0700
Subject: [Oc-pm] Next OC Perl Mongers Meeting April 29th @ 7pm
Message-ID: <201304221917.44424.tony@metracom.com>



OC Perl Mongers, Our April meeting is next Monday 29th @ 7pm.

Slot 1, ViJay has volunteered to do a CGI tutorial.

Slot 2, We still need a volunteer.

It would be nice to get some more volunteers. Vijay is doing all the heavy 
lifting.  Vijay also solved the April Perl Challenge.  Has anyone else 
attempted it?  

I have high hopes to keep the OC group running. We have a fantastic meeting 
place, we need more participation.  Bring a friend or co-worker to the 
meeting. 

What else can we do?  I'm open to suggestions.

Thank you,

Tony Gasparovic

From tony at metracom.com  Mon Apr 29 06:57:02 2013
From: tony at metracom.com (Tony)
Date: Mon, 29 Apr 2013 06:57:02 -0700
Subject: [Oc-pm] OC Perl Monger Meeting tonight @ 7PM
Message-ID: <201304290657.02803.tony@metracom.com>


OC Perl Mongers, Don't forget about our meeting tonight at 7pm.  

Vijay will give a presentation on CGI.  Vijay's presentations are really good, 
so don't miss it.

See you at 7pm.

Tony Gasparovic

From wyatt at draggoo.com  Mon Apr 29 17:12:51 2013
From: wyatt at draggoo.com (Wyatt Draggoo)
Date: Mon, 29 Apr 2013 17:12:51 -0700
Subject: [Oc-pm] Solution to April Perl Challenge
Message-ID: <20130430001251.GD8466@royale.draggoo.com>

Sure, it's last minute. And hasn't gone through thorough use case
checks. But I'm pretty sure it works-ish.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: chall4.pl
Type: text/x-perl
Size: 3987 bytes
Desc: not available
URL: <http://mail.pm.org/pipermail/oc-pm/attachments/20130429/050036ab/attachment.bin>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 198 bytes
Desc: Digital signature
URL: <http://mail.pm.org/pipermail/oc-pm/attachments/20130429/050036ab/attachment-0001.bin>

From mike at mikebaas.org  Mon Apr 29 21:36:20 2013
From: mike at mikebaas.org (Mike Baas)
Date: Mon, 29 Apr 2013 21:36:20 -0700
Subject: [Oc-pm] Next OC Perl Mongers Meeting April 29th @ 7pm
In-Reply-To: <201304221917.44424.tony@metracom.com>
References: <201304221917.44424.tony@metracom.com>
Message-ID: <CAOhGLpME4UUHciKP2JniKLQq4NqQm0Gwd+RK39Xi3PWzBXcKwg@mail.gmail.com>

Tony,

We should consider doing one night as a hack-a-thon.  For instance, we can
implement something like this, using Perl:

Turn a light bulb ON with every new user or download
http://rigoneri.com/post/49229364680

mb


On Mon, Apr 22, 2013 at 7:17 PM, Tony <tony at metracom.com> wrote:

>
>
> OC Perl Mongers, Our April meeting is next Monday 29th @ 7pm.
>
> Slot 1, ViJay has volunteered to do a CGI tutorial.
>
> Slot 2, We still need a volunteer.
>
> It would be nice to get some more volunteers. Vijay is doing all the heavy
> lifting.  Vijay also solved the April Perl Challenge.  Has anyone else
> attempted it?
>
> I have high hopes to keep the OC group running. We have a fantastic meeting
> place, we need more participation.  Bring a friend or co-worker to the
> meeting.
>
> What else can we do?  I'm open to suggestions.
>
> Thank you,
>
> Tony Gasparovic
> _______________________________________________
> Oc-pm mailing list
> Oc-pm at pm.org
> http://mail.pm.org/mailman/listinfo/oc-pm
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/oc-pm/attachments/20130429/7bd53afa/attachment.html>

From tony at metracom.com  Mon Apr 29 22:10:20 2013
From: tony at metracom.com (Tony)
Date: Mon, 29 Apr 2013 22:10:20 -0700
Subject: [Oc-pm] Perl Challenge 4
Message-ID: <201304292210.20073.tony@metracom.com>



Here's an example solving Perl challenge 4 with a CPAN Perl module.

Remember CPAN is your friend.


#!/usr/bin/perl

# Perl challenge 4
# Reading cards from stdin file

use Games::Cards::Poker qw(:all);

open(FIN,"cards.txt") or die ("Can't open input file\n");

while(<FIN>) {
   chomp;
   @cards  = split(/ /);
   $total_wins++ if( ScoreHand(@cards[5..9]) >  ScoreHand(@cards[0..4]));
}
print "player1 wins: $total_wins\n";
close(FIN);