Bob Polis
e833f17326
And add the necessary 'use v5.10' for that, which carries the additional advantage of enabling 'use strict'.
15 lines
330 B
Perl
Executable File
15 lines
330 B
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
use v5.10;
|
|
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`;
|
|
|
|
for (@lines) {
|
|
if (/^##\s+(\d+\.\d+\.\d+)\s+\((\d+-\d+-\d+)/) {
|
|
say "$1 [$2]";
|
|
unless ($all) {
|
|
last;
|
|
}
|
|
}
|
|
}
|