Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Logging Version and Date-Time

by hsmyers (Canon)
on Mar 07, 2011 at 21:24 UTC ( #891912=CUFP: print w/replies, xml ) Need Help??

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"; }
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."

Replies are listed 'Best First'.
Re: Logging Version and Date-Time
by Anonymous Monk on Mar 07, 2011 at 21:44 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."

        My guess was that it was a pointer to an alternative / additional template / "boiler plate". But I found it confusing as well.

        - tye        

        Although I will admit that I find all of the material interesting

        Sorry, "see also" was the point

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: CUFP [id://891912]
Approved by ww
Front-paged by Arunbear
help
Chatterbox?
[ambrus]: Corion: which coordinate system is the upside down one?
[Corion]: ambrus: "the other" ;) To me, "normal" for GUIs means (0,0) is left-upper corner of the monitor/window. But for Prima, the lower-left corner it is ;)
[Corion]: Which would be OK for mathematics and paper, for me ;)
[ambrus]: Ok, so Prima has a postscript-like coordinate system

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (8)
As of 2016-12-09 10:43 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:













    Results (150 votes). Check out past polls.