blob: 6f4b7c09443e107b7a70d0581aab5e2a1e042ea9 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;
use Web::Scraper;
use URI;
use YAML::Syck;
my $scraper = scraper{process "a", "commiters[]" => "TEXT"};
my $res = $scraper->scrape(URI->new('http://coderepos.org/share/'));
my @coderepos;
foreach my $link (@{$res->{commiters}}) {
next if $link !~ /^Committer:(\w+)/;
push @coderepos, $1;
}
DumpFile('tocheck_coderepos.yaml', \@coderepos);
|
