Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re: script heading

by hiseldl (Priest)
on May 06, 2003 at 13:58 UTC ( #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!


Comment on Re: script heading
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (5)
As of 2014-07-23 04:04 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (133 votes), past polls