byp4a55 professor6T9

Linux server.ecdc.com.eg 5.14.0-611.54.3.el9_7.x86_64 #1 SMP PREEMPT_DYNAMIC Thu May 7 16:31:24 EDT 2026 x86_64
Apache
50.6.228.173

File Name : cpan-mirrors

#!/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
		mirror.ac.za -> 614.05 ms
		zol.co.zw -> 612.57 ms
		-->median time: 612.57 ms
	Testing Oceania
		serversaustralia.com.au -> 38.62 ms
		cpan.inspire.net.nz -> 67.81 ms
		digitalpacific.com.au -> 37.89 ms
		uber.com.au -> 44.47 ms
		lagoon.nc -> 67.49 ms
		-->median time: 44.47 ms
	Testing North America
		httpupdate40.cpanel.net -> 254.00 ms
		httpupdate35.cpanel.net -> 409.75 ms
		mirrors.sonic.net -> 368.56 ms
		httpupdate8.cpanel.net -> 409.10 ms
		cpan.cs.utah.edu -> 408.00 ms
		-->median time: 408.00 ms
	Testing Asia
		vinahost.vn -> 146.10 ms
		yazd.ac.ir -> 469.29 ms
		mirrors-ru.go-parts.com -> 367.09 ms
		sohu.com -> 399.76 ms
		neolabs.kz -> 610.92 ms
		-->median time: 399.76 ms
	Testing South America
		mmgdesigns.com.ar -> 407.96 ms
		nbtelecom.com.br -> 401.96 ms
		sunsite.dcc.uchile.cl -> 415.69 ms
		linorg.usp.br -> 424.65 ms
		unal.edu.co -> 407.60 ms
		-->median time: 407.96 ms
	Testing Europe
		uk2.net -> 409.37 ms
		ambiweb.de -> 710.65 ms
		bibleonline.ru -> 471.49 ms
		rol.ru -> 469.70 ms
		rub.de -> 346.57 ms
		-->median time: 469.70 ms
	Median result by continent:
		44 ms  Oceania
	   400 ms  Asia
	   408 ms  South America
	   408 ms  North America
	   470 ms  Europe
	   613 ms  Africa
	Best continent is Oceania
	cpan.catalyst.net.nz = 78.8369178771973 ms
	cpan.inspire.net.nz = 69.4258213043213 ms
	cpan.mirrors.ilisys.com.au = 50.2209663391113 ms
	digitalpacific.com.au = 40.1251316070557 ms
	lagoon.nc = 88.8760089874268 ms
	nautile.nc = 65.7081604003906 ms
	optusnet.com.au = 41.4729118347168 ms
	serversaustralia.com.au = 46.1521148681641 ms
	uber.com.au = 48.2730865478516 ms
	waia.asn.au = 86.2929821014404 ms
	webtastix.net = 70.5790519714355 ms
	Best mirrors are digitalpacific.com.au
		optusnet.com.au
		serversaustralia.com.au
		uber.com.au
		cpan.mirrors.ilisys.com.au

Best urls are
		http://cpan.mirror.digitalpacific.com.au/
		http://mirror.optusnet.com.au/CPAN/
		http://cpan.mirror.serversaustralia.com.au/
		http://cpan.mirror.uber.com.au/
		http://cpan.mirrors.ilisys.com.au/

=head1 DESCRIPTION

CPAN Mirrors come and go, and maybe you do too. The mirror that was
fast then might not be fast now, especially if you changed hemispheres.

This program goes through the F<MIRRORED.BY> file and pings a selection
of mirrors on each continent to find the fastest mirrors. From the best
continent, it samples several mirrors to find the URL you should add
to your configuration.

If you don't have a F<MIRRORED.BY> file, this program will download one
for you. It looks through your existing C<urllist> configuration and
then default locations. It stores it in C<~/.cpan> (or your configured
location to store files).

=head1 TO DO

=over 4

=item * Add an option to update the CPAN configuration

=item * Add an option to give JSON output

=back

=head1 AUTHOR

brian d foy C<< <bdfoy@cpan.org> >>

=head1 LICENSE

This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	0755	2026-06-01 10:19:41
..	dir	-	root/root	0755	2026-06-01 10:17:48
cpan	text/x-perl	8.06 KB	root/root	0555	2024-10-22 12:58:28
cpan-mirrors	text/x-perl	4.19 KB	root/root	0555	2024-10-22 12:58:28
cpanm	text/x-perl	295.33 KB	root/root	0555	2024-10-22 12:59:41
crontab	application/x-executable	1.86 MB	root/root	0755	2026-06-01 04:06:15
ea-php80	application/x-executable	10.62 MB	root/root	0755	2026-05-18 01:28:54
ea-php81	application/x-executable	10.81 MB	root/root	0755	2026-05-18 01:36:23
ea-php82	application/x-executable	10.89 MB	root/root	0755	2026-05-18 01:48:35
ea-php83	application/x-executable	10.94 MB	root/root	0755	2026-05-18 02:11:40
ea_convert_php_ini	text/x-perl	39.85 KB	root/root	0755	2026-05-27 03:08:07
ea_current_to_profile	text/x-perl	11.25 KB	root/root	0755	2026-05-27 03:08:07
ea_install_profile	text/x-perl	7.1 KB	root/root	0755	2026-05-27 03:08:07
ea_sync_user_phpini_settings	text/x-perl	6.73 KB	root/root	0755	2026-05-27 03:08:07
json_xs	text/x-perl	6.85 KB	root/root	0555	2024-10-22 12:58:58
lsphp	text/x-perl	937 B	root/root	0755	2026-05-18 12:41:15
passwd	application/x-executable	3.56 MB	root/root	0755	2026-06-01 04:06:55
pear	text/x-perl	935 B	root/root	0755	2026-05-18 12:41:15
php	text/x-perl	933 B	root/root	0755	2026-05-18 12:41:15
tpage	text/x-perl	8.86 KB	root/root	0555	2024-10-22 01:03:36
tt-render	text/x-perl	101 B	root/root	0555	2024-10-22 01:04:11
ttree	text/x-perl	12.24 KB	root/root	0555	2024-10-22 01:03:36
use-devel-checklib	text/x-perl	2.71 KB	root/root	0555	2024-10-22 01:00:14
wp	application/octet-stream	6.72 MB	root/root	0755	2024-10-22 12:53:23
wp-toolkit		167 B	root/root	0700	2026-04-15 12:37:14

Team Anon Force

https://t.me/Professor6T9x