note
grinder
<p>I prefer
<code>
sub printlog {
print LOG @_ unless $nolog;
}
printlog "======== done =========\n";
</code>
<p>to</p>
<code>
print LOG "======== done =========\n" unless $nolog;
</code>
<p>as it makes for less clutter. It is also beneficial in
that, with a little more work, <tt>$nolog</tt> doesn't
have to pollute the namespace.</p>
<code>
BEGIN {
my $nolog = 0;
sub setlog {
$nolog = shift;
}
sub printlog {
print LOG @_ unless $nolog;
}
}
setlog 1;
printlog "======== done =========\n";
</code>
</p>I like to generalise this functionality to handle debug/production screen output and/or
log file output.</p>
<br><small>--<br><tt>g r i n d e r</tt></small>
80727
80727