Logging Version and Date-Time

This may be trivial, but it is handy when you have to mark the version of a script running on various output, particularly when there are a number of processes and a great deal of data--- providing the thicket to get lost in!

#!/usr/bin/perl
# ttime.pl --
use strict;
use warnings;
use diagnostics;
use feature ":5.10";
use autodie;
use version 0.77;
use Data::Dumper::Simple;

our $VERSION = '0.042';

#
# variations on a theme as needed (not by Thomis Talis)
#
#sign_on();
#sign_on(*STDOUT);
#my $fh;
#open($fh,'>','ttime.log');
#sign_on($fh);
#
# NOTE: this will leave the program extension on to differentiate
# between running under cygwin/unix where I typically strip off the
# extension (cuts down on typing) as compared to a dos box where I
# don't have to type the extension and therefore leave it alone...
#

sign_on();

sub sign_on {
    my $out = @_ ? shift : *STDERR;
    my $date = localtime();
    (my $program = $0) =~ (s/.*(?:\/|\\)(.*?..*$)/$1/);
    my $version = version->parse($VERSION);
    print $out "$program v$version, $date\n";
}
[download]

Ignore the stupid program title and the use Data::Dumper::Simple; it is part of my template based boiler plate...

--hsm

"Never try to teach a pig to sing...it wastes your time and it annoys the pig."

Comment on Logging Version and Date-Time Download Code

Replies are listed 'Best First'.
Re: Logging Version and Date-Time by Anonymous Monk on Mar 07, 2011 at 21:44 UTC
Re^2: RFC: Creating unicursal stars, Re: Devel::EvalError lives, (tye)Re: Stupid question, Re: Devel::EvalError lives	[reply]
Re^2: Logging Version and Date-Time by hsmyers (Canon) on Mar 09, 2011 at 16:56 UTC
Color me confused (not hard to do...) If your criticism was about the use of the under-bar in the sub routine name then the links to tye's material would seem to partially argue against such a pseudo prohibition. If it wasn't, then I'm completely out to sea here. Although I will admit that I find all of the material interesting. --hsm "Never try to teach a pig to sing...it wastes your time and it annoys the pig."	[reply]
Re^3: Logging Version and Date-Time by tye (Sage) on Mar 09, 2011 at 19:02 UTC
My guess was that it was a pointer to an alternative / additional template / "boiler plate". But I found it confusing as well. - tye	[reply]
Re^3: Logging Version and Date-Time by Anonymous Monk on Mar 09, 2011 at 19:29 UTC
Although I will admit that I find all of the material interesting Sorry, "see also" was the point	[reply]

Back to Cool Uses for Perl