note
huck
<p>This may help get you started
<c>
use strict;
use warnings;
#https://www.perlmonks.org/?node_id=1160177
use Storable qw(store retrieve freeze thaw dclone);
my $meta = retrieve('C:/Perl/cpan/Metadata');
die "Unable to retrieve from meta!\n" unless defined $meta;
#print 'Keys:',join(' ',keys(%$meta)),"\n";
my @wanted;
for my $mod (keys(%{$meta->{'CPAN::Module'}})) {
next unless ($mod=~m/^Tk/);
push @wanted,$mod;
}
for my $mod (sort @wanted){
print 'cpan -i ' ,$mod,"\n";
}
exit;
</c>
1229140
1229140