|
#!/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";
}
[ Verzeichnis aufwärts0.23unsichere Verbindung
Übersetzung europäischer Sprachen durch Browser
]
|