2018-04-02T09:14:59 rosti

Code (perl): (dl )

my $VERSION = do { my @r = (q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };

Das kann gehen. Erzeugt aber leider nicht immer das Erwünschte.
~ perl
my $VERSION = do { my @r = (q$Revision 1.01.002$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
print $VERSION
^Z
1.0102
Wenn Leute nämlich nur Version.Subversion wollen/brauchen als Version, klappt dein Beispiel nicht mehr.
Deswegen hatte ich ja in Post #1 das Regex anders dargestellt.


Nur so als Hinweis an andere.

Ich benutze ja schon lange ein anderes VCS, muss aber manchmal "schlechten" Code anderer Leute anfassen. =:(