Add glv.pl, adapt README.md
This commit is contained in:
13
glv.pl
Executable file
13
glv.pl
Executable file
@@ -0,0 +1,13 @@
|
||||
#!/usr/bin/env perl
|
||||
|
||||
my $all = $ARGV[0] =~ /^-a|--all$/ ? 1 : 0;
|
||||
my @lines = `curl "https://gitlab.com/gitlab-org/gitlab-foss/-/raw/master/CHANGELOG.md" 2>/dev/null`;
|
||||
|
||||
foreach (@lines) {
|
||||
if (/^##\s+(\d+\.\d+\.\d+)\s+\((\d+-\d+-\d+)/) {
|
||||
print "$1 [$2]\n";
|
||||
if (!$all) {
|
||||
last;
|
||||
}
|
||||
}
|
||||
}
|
||||
Reference in New Issue
Block a user