List all installed go packages

list_go_pkg

#!/usr/bin/env perl

use strict;
use warnings;
use File::Find qw/find/;

sub _find_packages {
    my $root = shift;
    my $pkg_path = $root . '/pkg';
    my @packages;
    find(sub {
        return unless $_ =~ m!\.a$!;
        return if $File::Find::name =~ m!/internal/!;
        my ($arch, $pkg) = $File::Find::name =~ m!${pkg_path}/([^/]+)/(.+)\.a$!;
        push @packages, $pkg;
    }, $pkg_path);
    return @packages;
}

sub _uniq {
    my %h = map { $_ => 1 } @_;
    return keys(%h);
}

my @packages = ('builtin');
push(@packages, sort(_uniq(_find_packages($ENV{GOROOT}))));
push(@packages, sort(_uniq(_find_packages($ENV{GOPATH}))));
print($_ . "\n") for (@packages);