#!/usr/bin/env perl
use Getopt::Long;
$ver=`head -n 1 CHANGES.txt`;
GetOptions('release'=>\$release,
'longrelease'=>\$longrelease) or exit 1;
if ($release) {
print $1 if $ver =~/Library ([^\s]+)/;
} elsif ($longrelease) {
print $1 if $ver =~/Library (.+)/;
} else {
print "$ver";
}
¤ Dauer der Verarbeitung: 0.20 Sekunden
(vorverarbeitet)
¤
*© Formatika GbR, Deutschland