Warm

My brain becomes less functional when it is very warm. It is very warm today.

I am working on beastly difficult code: A script which writes scripts which in turn, create scripts which (sometimes) write tiny little scripts of their own. I’m using constructs like:

if ( \$defs->_interface_standout ) {
    print SCRIPT \"open (STDOUT, \\\"> \\\$SCRATCH_DIR/$command.out\\\");\\n\";
} else {
    my \$standout = \$defs->_standout_file ;
    print SCRIPT \"open (STDOUT, \\\"> \\\$SCRATCH_DIR/\$standout\\\");\\n\";
}

Anyone who suggests that this would be simpler (a) in anything other than PERL (b) if I re-wrote it from scratch (c) if it were more object oriented will be poked in the ribs until bruising occurs the next time I see them.