# script by somian (Sören Andersen) use strict; use warnings; # First created: 2010-11-04 04:44:09+00:00 # Last MODIFIED: Thursday 11/04/2010 04:57 UTC my @M; use URI; use CPANPLUS::Backend; my $c = CPANPLUS::Backend->new()->configure_object; my $WII = $c->conf->conf->{hosts}; foreach my $hr (@$WII) { foreach my $eq(@$hr) { my %l=%{$eq}; my @lr; my $mhost = URI->new; printf STDERR "%-9s %s\n" , $lr[0] , $lr[1] while @lr = each %l; $mhost->scheme($l{scheme}); $mhost->authority($l{host}); $mhost->path($l{path}); push @M, $mhost; } } printf "%s\n", $_->as_string for @M;