Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Re: script heading

by hiseldl (Priest)
on May 06, 2003 at 13:58 UTC ( [id://255882]=note: print w/replies, xml ) Need Help??


in reply to script heading

If you want to add a $VERSION variable to your script or package you could use something like this:

use vars qw($VERSION); $VERSION = sprintf "%d.%03d", q$Revision: 1.12 $ =~ /(\d+)\.(\d+)/;
When you check this out with RCS, the string between q$ $ will get updated with the RCS version, and the regexp will update your $VERSION variable.

HTH

--
hiseldl
What time is it? It's Camel Time!

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://255882]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others pondering the Monastery: (5)
As of 2024-04-23 07:01 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found