I wrote a few days ago about the bathtub effect. Shorten code and it becomes easier to read. Shorten it too much and it becomes silly. Here's a Perl script that I wrote to report on all lines in a log file from host computer "seal" with a status code (next to last field) over 399:

open (FH,"../access_log.xyz") or die;
while ($line = <FH>) {
   if ($line =~ /^seal\s/) {
      @parts = split(/\s+/,$line);
      if ($parts[-2] > 399) {
         print $line;
      }
   }
}

And here is a shortened application which - if you look at it byte by byte - can do the same thing!

#!/usr/bin/perl -pa
(/^seal\s/&&$F[-2]>399)or$_=""

My point? Something IN BETWEEN would be, by far, best for the typical Perl programmer to understand and maintain.
(written 2007-06-14 06:26:34)

 P210 - Perl - Topicalization and Special Variables

Back to Sur le Continent

Previous and next or Horse's mouth home

Forward to Horses of Brugge

Trying things in Python
Outputting numbers as words - MySQL with Perl or PHP
A review of a week and a trip to Brugge
Horses of Brugge
Bathtub example
Sur le Continent
Commenting a Perl Regular Expression
Where am I?
Some progress on the train campaign
Melksham businesses - networking together
Link to page ... 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36 at 50 posts per page


This is a page archived from The Horse's Mouth at http://www.wellho.net/horse/ - the diary and writings of Graham Ellis. Every attempt was made to provide current information at the time the page was written, but things do move forward in our business - new software releases, price changes, new techniques. Please check back via our main site for current courses, prices, versions, etc - any mention of a price in "The Horse's Mouth" cannot be taken as an offer to supply at that price.

Link to Ezine home page (for reading).
Link to Blogging home page (to add comments).