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)

 P210 - Perl - Topicalization and Special Variables
  [493] Running a Perl script within a PHP page - (2005-11-12)
  [639] Progress bars and other dynamic reports - (2006-03-09)
  [969] Perl - $_ and @_ - (2006-12-07)
  [1136] Buffering output - why it is done and issues raised in Tcl, Perl, Python and PHP - (2007-04-06)
  [1221] Bathtubs and pecking birds - (2007-06-07)
  [1289] Pure Perl - (2007-08-03)
  [1444] Using English can slow you right down! - (2007-11-25)
  [1508] How not to write Perl? - (2008-01-15)
  [1704] Finding operating system settings in Perl - (2008-07-10)
  [1705] Environment variables in Perl / use Env - (2008-07-11)
  [1728] A short Perl example - (2008-07-30)
  [1829] Dont bother to write a Perl program - (2008-10-10)
  [1860] Seven new intermediate Perl examples - (2008-10-30)
  [1922] Flurinci knows Raby Lae PHP and Jeve - (2008-12-04)
  [2833] Fresh Perl Teaching Examples - part 2 of 3 - (2010-06-27)
  [2876] Different perl examples - some corners I rarely explore - (2010-07-18)
  [2972] Some more advanced Perl examples from a recent course - (2010-09-27)
  [3449] Apache Internal Dummy Connection - what is it and what should I do with it? - (2011-09-19)
  [4301] Perl - still a very effective language indeed for extracting and reporting - (2014-09-20)
  [4395] Preparing data through a little bit of Perl - (2015-01-15)
  [4682] One line scripts - Awk, Perl and Ruby - (2016-05-20)
  [4700] Obfurscated code - it might work, but is it maintainable? - (2016-07-02)

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