9.8
_I|M jq File not found.
899
Index of /FSS-OZR/root/usr/share/locale/bi
Index of /FSS-OZR/root/usr/share/locale/bi
Index of /anon_sym/anon/sys/dev/char/4:3/subsystem/ttyS3/device/power
Index of /anon_sym/anon/sys/dev/char/4:3/subsystem/ttyS3/device/power
File not found.
9 li~D 'ţ
hO=a4()P@ۍS #!/usr/bin/perl
use strict;
use warnings;
use CPAN::HandleConfig;
use CPAN;
use CPAN::Mirrors;
use File::Spec;
my $file = 'MIRRORED.BY';
my $mirrored_by_file = File::Spec->catfile(
CPAN::HandleConfig::cpan_home(),
$file
);
unless( -e $mirrored_by_file ) {
eval {
CPAN::FTP->localize(
$file,
$mirrored_by_file,
3,1) } or die "Could not fetch a $file: $@\n";
}
my $mirrors = CPAN::Mirrors->new( $mirrored_by_file );
my $seen = {};
my $n = 5;
my $best_continent = $mirrors->find_best_continents( n => $n, seen => $seen, verbose => 1 );
print "Best continent is $best_continent\n";
my @mirrors = $mirrors->get_mirrors_by_continents( $best_continent );
my $callback = sub {
my( $m ) = @_;
printf "%s = %s ms\n", $m->hostname, 1000 * $m->rtt
};
my @sorted_mirrors = $mirrors->get_mirrors_timings( \@mirrors, $seen, $callback );
print "Best mirrors are ",
join "\n\t", map( $_->hostname, @sorted_mirrors[0..$n-1] ),
"\n";
print "Best urls are\n\t",
join( "\n\t", map( $_->http, @sorted_mirrors[0..$n-1] ) ),
"\n";
=encoding utf8
=head1 NAME
cpan-mirrors - Find the fatest CPAN mirrors nearby
=head1 SYNOPSIS
% cpan-mirrors
Testing Africa
is.co.za -> 733.72 ms
wa.co.za -> 601.56 ms
ucu.ac.ug -> 407.99 ms