blob: 68f6d47700256b6e726b0f67cc1a12c88c9fffa0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
#!/usr/bin/perl
use strict;
local $/;
my $stdin = <STDIN>;
my $regex = qr/<span class="num text-emphasized">\n +(\d+)\n +<\/span>\n +commits/p;
if ( $stdin =~ /$regex/g ) {
print "$1";
}
|