Off-Schedule

Just an update... Perlcast will be a little off-schedule this week. I've spent the weekend getting ready for and then traveling to YAPC::NA. Hope to have something for you soon. Also, I'm still working on the results for contest 4. Looks like there might be a tie!!

Perlcast 14

Perlcast 14 is now available. This week features an interview with Mark Jason Dominus, the author of Higher-Order Perl.

Be sure to vote on contest 2 entries. The taglines are in the sidebar.

News Links

• Enginsite Perl IDE Beta Testing


• LAMP Article


• Race condition in the rmtree


• Format string vulnerability in the log function in Net::Server


• Sams Teach Yourself Perl in 24 Hours, 3rd Edition Sample Chapter


• Understanding and Using Iterators

Interview Links

• Mark's Perl Website


• Higher-Order Perl Website


• Buy Higher-Order Perl


• Mark's Mailing Lists for Books


• Tie::File

Contest 4

Okay, contest four is all about "There Is More Than One Way To Do It". For this contest, take the string 'a string to fOrMaT' and format it so that the first letter of each word is capitalized and all other letters are lower case. I've got an example of one way to do it below. Send me all of the ways that you can do it before noon CST on June 24th. The person with the most ways wins a copy of the upcoming edition of Advanced Perl Programming.

Here is my sample:

$x = 'a string to fOrMaT';
print join(' ',(map {ucfirst lc $_} (split /\s+/, $x)));"


Here is the resulting string:

A String To Format


Good luck!

Advanced Perl Programming, 2nd Edition - Contest 3

This contest is quite a bit easier than the last. In the code below, you get the output of 'file.da' instead of the intended output of 'file'. What is wrong with the regex? Send the repaired regex to perlcast at gmail dot com before 17th June 2005 at noon CST to be entered in the drawing for a copy of Simon Cozens upcoming book Advanced Perl Programming, 2nd Edition.

For Windows Users:

perl -e "$x='file.dat';print $1 if($x=~/(.*).(.*)/)"

For Unix/Linux/etc Users.:

perl -e '$x="file.dat";print $1 if($x=~/(.*).(.*)/)'

Perlcast 13

Perlcast 13 is out. This is a short one, pretty much just covering the news and one Phalanx module.

News

• Independently Parsing Perl


• 3 weeks until YAPC North America


• YAPC::EU Schedule


• ActivePerl Launched on Mac OS X


• Perl Certification


• Teaching Parrot to Say "PHP"


• Playboy spreads open source software

Phalanx Module

• Net-FTP-Common

The GarageBand.com artist this week was once again Enter the Haggis with Another Round.

Mailing List

I've just set up a mailing list for Perlcast. Right now, it is an announce-only list. I had some requests for email updates of when new shows come out... guess everyone is not using RSS :)

Anyway, you can subscribe to the list if you want to get email notification of new Perlcasts and new Perlcast.com contests.

Please give me some feedback if you want me to start a Perlcast discussion list. It seems that the message board has gone dead... possibly a mailing list would do better. Email or Skype me and let me know.

Advanced Perl Programming, 2nd Edition - Contest 2

Okay, so the first contest (which is still going on) required a little coding knowledge. This one requires nothing of the sort. Bascially, there are two catch-phrases that I have used for Perlcast:

• Perl news, Reviews, and More


• Podcasting Perl

These both pretty much stink. So from now until June 17th, email perlcast at gmail dot come with suggestions for new tag lines. After the 17th, I'll put my favorites on this site and open up voting (still working on the method of voting). Between the 18th and 30th votes will be accepted. Whoever sent in the highest ranked tag-line first will win a copy of Advanced Perl Programming.