scrape method signatures for ethereum from 4byte.directory

4byte.directory-scrape.pl

#!/usr/bin/perl
use strict;
use LWP::Simple qw(get);

my $p = 1;

while ( 1 ) {
  my $response = get(qq(https://www.4byte.directory/signatures/?page=$p));

  while ( $response =~ m#\G.+?<td class="text_signature">(\S+)</td>\s*<td class="bytes_signature"><code>(\w{10})</code></td>#gs ) {
    my $txt = $1;
    my $sig = $2;
    print "$sig\t$txt\n";
  }

  if ( $response !~ m/aria-label="Next"/s ) {
    last;
  }
  $p++;
}