- or download this
# get the versions in context
locate .pm | grep 'pm$' | xargs | xargs grep -C2 '$VERSION.*=' > versi
+ons-C2
...
# find the popular versions (w/ roughly canonical lines)
perl -nle 'if(/\$VERSION.*=/) { s/.*\.pm://; s/\s+/ /g; s/\d+/1/g; pri
+nt }' \
versions-C2 | sort | uniq -c | sort -rn | head -n 10 | nl
- or download this
1 1892 $VERSION = "1.1";
2 916 our $VERSION = "1.1";
...
9 56 $VERSION = "1.02_01";
10 51 ($VERSION) = sprintf '%i.%03i', split(/\./, \# break for pm.or
+g
("$Revision: 2.6$"=~/Revision:(\S+)\s/)[1]); #$Date: 2007/05/07 20
+:33:46 $
- or download this
( $VERSION = q($Id: Tidy.pm,v 1.64 2007/05/08 20:01:45 perltidy Exp $)
+ ) =~ s/^.*\s+(\d+)\/(\d+)\/(\d+).*$/$1$2$3/; # all one line for Make
+Maker
- or download this
# SVK::* modules:
use SVK::Version; our $VERSION = $SVK::VERSION;
# In SVK::Version itself:
use version; our $VERSION = qv(2.0.2);
- or download this
# 2005.082401
$VERSION = 2005.0824_01;
...
# ^ ^^ ^^-- Incremented at will
# | \+----- Incremented for non-trivial changes to features
# \-------- Incremented for fundamental changes
- or download this
use Our::Config (
application => 'app-name',
version => (our $VERSION = '3.1'),
config => \$config,
);