Time::HiRes, sleep(), time()

use Time::HiRes后，此模块提供sleep(), alarm(), time()的增强版以取代perl内置的相应函数。

其中，sleep()和alarm()的参数可以是小数。比如sleep(0.1)表示休眠0.1秒；

time()可以返回浮点数。

#!/usr/bin/perl use strict; use Time::HiRes qw(sleep time); $| = 1; my $before = time; for my $i (1..100) {    print "$i\n";    sleep(0.01);    } printf("time used : %.5f seconds\n", time - $before); exit 0;