Cool/useful short examples of Perl?

[David Cantrell]

On Mon, May 30, 2011 at 05:47:33PM -0400, Uri Guttman wrote:

> if you think that is line noise, then your perl skills need
> improving.

I presume that you have a copy of K&R?  Is your copy missing the first
few chapters?  No?  Oh, so maybe there's some value in starting with
simple examples instead of jumping straight in with things like:

   int strcmp(char *s, char *t)
   {
       for ( ; *s == *t; s++, t++)
           if (*s == '\0')
               return 0;
       return *s - *t;
   }

-- 
David Cantrell | Official London Perl Mongers Bad Influence

Cum catapultae proscriptae erunt tum soli proscript catapultas habebunt