Найти сервер с небольшой задержкой ping (мой скрипт, но может ли кто-нибудь написать его, например, Perl?)

Я хочу загрузить OpenBSD с FTP со сценарием, и я хочу загрузить его с сервера, который находится рядом со мной. Поэтому я хочу выбрать зеркало с низкой «задержкой пинга». Я написал небольшой скрипт, который работает просто отлично (тестируется только под bash / Linux):

LATESTRELVER=`curl -s 'www.openbsd.org' | fgrep 'The current release is ' | sed 's/OpenBSD /\n/' | sed 's/<\/a>/\n/' | grep "^[0-9]" | head -1` FASTESTSRV=`curl -s "http://www.openbsd.org/ftp.html#ftp" | fgrep '<a href="ftp://' | sed 's/"ftp:\/\//\n/' | cut -d "/" -f1 | fgrep -v '<a href=' | while read MIRRORSRVS; do ping -c 1 -w 1 $MIRRORSRVS 2>/dev/null | fgrep ' time=' | sed 's/ time=/\n/' | grep ' ms' | sed 's/ ms$/ /' | sed 's/\./ |/' | cut -d "|" -f1 | tr -d '\n'; if [ $? -eq 0 ]; then echo "$MIRRORSRVS"; fi; done | grep "^[0-9]" | sort -un | head -1 | awk '{print $2}'` LATESTRELVERSHORT=`echo $LATESTRELVER | sed 's/\.//g'` # NEEDEDARCH=i386 NEEDEDARCH=amd64 wget "$FASTESTSRV/pub/OpenBSD/$LATESTRELVER/$NEEDEDARCH/install$LATESTRELVERSHORT.iso" -O "install$LATESTRELVERSHORT-$NEEDEDARCH.iso" 

Q: Может кто-нибудь написать этот скрипт в Perl? : P (с меньшим, более приятным кодом?)

Основная цель этого скрипта, например, не использовать пропускную способность зарубежной страны.

Interesting Posts

Как изменить высоту GIMP до 1266 пикселей?

Как установить установщик opkg в систему, которая не имеет этого

Почему sshd не заботится о том, чтобы пользователь не владел своим домашним каталогом, когда у их имени нет пароля?

Как настроить экран входа Gnome в Debian

Перегрузка PCI с помощью Xen

dirmngr не начинается с надлежащего домашнего каталога, если он не перезапускается

Правильное избежание двойных котировок для данных зацикливания?

Файловая система не показывает правильный размер в Mac OSX

Именование сетей в Arch Linux

Правда ли, что существует 4 типа ** вывода **, мы можем ссылаться на файл в Linux?

Проблема при попытке загрузки раздела Windows (Linux Mint / Windows 10 Dual Boot)

Пытается обновить php на CentOS 5.7

Как найти и фильтровать определенный столбец в CSV-файле?

Как долго я могу работать со стабильным выпуском после того, как он больше не поддерживается?

Как этот фиктивный вход проник в мои подходящие источники?

Linux и Unix - лучшая ОС в мире.