Как я сплю для миллисекунды в Perl?
Решение, которое решило проблему, заключалось в следующем:
В меню «Пуск» выполните поиск «mysql». Среди результатов вы должны увидеть «MySQL Installer - Community». Запустить его. Откроется окно установщика MySQL, как показано ниже. Найдите «MySQL Server» в разделе «Продукт» и нажмите ссылку «Переконфигурировать». Сообщество установщика MySQL
Появится установщик MySQL (тот же, который вы использовали для первой установки MySQL Server). Пройдите все шаги.
После завершения установки MySQL я снова запустил службу MySQL.
5 ответов
Со страницы Perldoc на sleep :
Для задержек более тонкой детализации, чем одна секунда, модуль Time :: HiRes (из CPAN , а начиная с Perl 5.8, часть стандартного дистрибутива) предоставляет usleep ().
Фактически, он предоставляет usleep () (который спит в микросекундах) и nanosleep () ( который спит за наносекунды). Вы можете захотеть usleep () , что позволит вам работать с более простыми числами. 1 миллисекунда сна (с использованием каждого из них):
use strict;
use warnings;
use Time::HiRes qw(usleep nanosleep);
# 1 millisecond == 1000 microseconds
usleep(1000);
# 1 microsecond == 1000 nanoseconds
nanosleep(1000000);
Если вы не хотите (или не можете) загружать модуль для этого, вы также можете использовать встроенную функцию select () функция:
# Sleep for 250 milliseconds
select(undef, undef, undef, 0.25);
Time :: HiRes:
use Time::HiRes;
Time::HiRes::sleep(0.1); #.1 seconds
Time::HiRes::usleep(1); # 1 microsecond.
Из perlfaq8 :
Как я могу спать () или тревогу () менее чем на секунду?
Если вам нужна более тонкая детализация, чем 1 секунда, Функция sleep () предоставляет самый простой способ - использовать функцию select (), как описано в разделе select в perlfunc. Попробуйте модули Time :: HiRes и BSD :: Itimer (доступны на CPAN, а начиная с Perl 5.8 Time :: HiRes является частью стандартного дистрибутива).
Быстрый поиск в Google "таймеров высокого разрешения perl" дал ссылку на Time :: HiRes . Может быть, это то, что вы хотите.