Найти сервер с небольшой задержкой 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 (с меньшим, более приятным кодом?)

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

One Solution collect form web for “Найти сервер с небольшой задержкой ping (мой скрипт, но может ли кто-нибудь написать его, например, Perl?)”

Самый простой способ выбрать подходящие зеркала – это netselect . Вы можете использовать опцию -s 3 чтобы сказать ей выбрать 3 лучших сервера.

  • Скрипт загружает два аргумента
  • рассчитать числа на конец и слить в одну строку
  • Когда Automake переключился на использование Perl
  • Как удалить несколько пустых строк из файла?
  • Regex этот формат вопроса в LaTeX
  • awk + как захватить адрес электронной почты между символами
  • Что значит . совпадение?
  • конвертировать в эпоху и обратно
  • Удалить поля, содержащие определенную строку
  • Получение или клонирование текущего терминала пользователей?
  • Нет perldoc для POSIX?
  • Проблема зависимости Perl
  • Linux и Unix - лучшая ОС в мире.