名前¶

Time::HiRes - 高精度の alarm, sleep, gettimeofday, インターバルタイマー

概要¶

  use Time::HiRes qw( usleep ualarm gettimeofday tv_interval nanosleep
                      clock_gettime clock_getres clock_nanosleep clock
                      stat );

  usleep ($microseconds);
  nanosleep ($nanoseconds);

  ualarm ($microseconds);
  ualarm ($microseconds, $interval_microseconds);

  $t0 = [gettimeofday];
  ($seconds, $microseconds) = gettimeofday;

  $elapsed = tv_interval ( $t0, [$seconds, $microseconds]);
  $elapsed = tv_interval ( $t0, [gettimeofday]);
  $elapsed = tv_interval ( $t0 );

  use Time::HiRes qw ( time alarm sleep );

  $now_fractions = time;
  sleep ($floating_seconds);
  alarm ($floating_seconds);
  alarm ($floating_seconds, $floating_interval);

  use Time::HiRes qw( setitimer getitimer );

  setitimer ($which, $floating_seconds, $floating_interval );
  getitimer ($which);

  use Time::HiRes qw( clock_gettime clock_getres clock_nanosleep
                      ITIMER_REAL ITIMER_VIRTUAL ITIMER_PROF ITIMER_REALPROF );

  $realtime   = clock_gettime(CLOCK_REALTIME);
  $resolution = clock_getres(CLOCK_REALTIME);

  clock_nanosleep(CLOCK_REALTIME, 1.5e9);
  clock_nanosleep(CLOCK_REALTIME, time()*1e9 + 10e9, TIMER_ABSTIME);

  my $ticktock = clock();

  use Time::HiRes qw( stat );

  my @stat = stat("file");
  my @stat = stat(FH);

説明¶

Time::HiRes モジュールは usleep, nanosleep, ualarm, gettimeofday, setitimer/getitimer システムコール、言い換えれば 高精度の時刻とタイマーへの Perl インターフェースを実装します。 使い方については下記の "EXAMPLES" 節とテストスクリプトを 参照してください; 基になっている nanosleep あるいは usleep, ualarm, gettimeofday, そして setitimer/getitimer については、 システムの文書を参照してください。

システムに gettimeofday() やそのエミュレーションがなければ、 gettimeofday() や引数一つの形での tv_interval() は使えません。 システムに nanosleep(), usleep(), select(), poll の どれもなければ、Time::HiRes::usleep(), Time::HiRes::nanosleep(), Time::HiRes::sleep() は使えません。 システムに ualarm() と setitimer() の両方がなければ、 Time::HiRes::ualarm() や Time::HiRes::alarm() は使えません。

use 文のなかで実装されていない関数をインポートしようとすると、 コンパイル時に失敗します。

1 秒以下の sleep が usleep() ではなく nanosleep() で 実装されていれば、nanosleep() はシグナルを使わないので、 1 秒以下の sleep とシグナルを混在させることができます。 しかしこれは移植性を欠きます; そしてまず最初に nanosleep を持っているのか、&Time::HiRes::d_nanosleep の 値が真であるかチェックしなければなりません; それから特有なことがないか慎重に nanosleep() C API 文書を 読まなければなりません。

sleep とシグナルを混在させる以外のために nanosleep を使うと、 Perl がナノ秒の正確さを要求される仕事のために使うべきツールであるか という疑問があります。

Remember that unless you are working on a hard realtime system, any clocks and timers will be imprecise, especially so if you are working in a pre-emptive multiuser system. Understand the difference between wallclock time and process time (in UNIX-like systems the sum of user and system times). Any attempt to sleep for X seconds will most probably end up sleeping more than that, but don't be surpised if you end up sleeping slightly less. (TBT)

以下の関数がこのモジュールからインポートできます。 デフォルトでエクスポートされる関数はありません。

gettimeofday ()

In array context returns a two-element array with the seconds and microseconds since the epoch. In scalar context returns floating seconds like Time::HiRes::time() (see below).

配列コンテキストではエポックからの秒とマイクロ秒二つの要素の配列を返します。 スカラコンテキストでは、Time::HiRes::time() のように秒を 浮動小数点数で返します(下記参照)。

usleep ( $useconds )

Sleeps for the number of microseconds (millionths of a second) specified. Returns the number of microseconds actually slept. Can sleep for more than one second, unlike the usleep system call. Can also sleep for zero seconds, which often works like a thread yield. See also Time::HiRes::usleep(), Time::HiRes::sleep(), and Time::HiRes::clock_nanosleep().

指定されたマイクロ秒(100 万分の 1 秒)数、sleep します。 実際に sleep したマイクロ秒数を返します。 usleep システムコールとは違い、1 秒以上 sleep することができます。 0 秒スリープすることもできます; しばしば スレッド委譲 (thread yield) のように働きます。 Time::HiRes::usleep(), Time::HiRes::sleep(), Time::HiRes::clock_nanosleep() もご覧ください。

Do not expect usleep() to be exact down to one microsecond.

usleep() が 1 マイクロ秒単位で正確と想定しないでください。

nanosleep ( $nanoseconds )

Sleeps for the number of nanoseconds (1e9ths of a second) specified. Returns the number of nanoseconds actually slept (accurate only to microseconds, the nearest thousand of them). Can sleep for more than one second. Can also sleep for zero seconds, which often works like a thread yield. See also Time::HiRes::sleep(), Time::HiRes::usleep(), and Time::HiRes::clock_nanosleep().

Sleeps for the number of nanoseconds (1e9ths of a second) specified. Returns the number of nanoseconds actually slept (accurate only to microseconds, the nearest thousand of them). Can sleep for more than one second. Can also sleep for zero seconds, which often works like a thread yield. See also Time::HiRes::sleep(), Time::HiRes::usleep(), and Time::HiRes::clock_nanosleep(). (TBT)

Do not expect nanosleep() to be exact down to one nanosecond. Getting even accuracy of one thousand nanoseconds is good.

nanosleep() がナノ秒単位で正確と想定しないでください。 1000 ナノ秒の精度でも良い方です。

ualarm ( $useconds [, $interval_useconds ] )

Issues a ualarm call; the $interval_useconds is optional and will be zero if unspecified, resulting in alarm-like behaviour.

ualarm コールを発行します; $interval_useconds はオプションで、 指定されなければ 0 になり、その結果は alarm のような動きをします。

Returns the remaining time in the alarm in microseconds, or undef if an error occurred.

アラームの残り時間をマイクロ秒で返します; エラーが発生すると undef を返します。

ualarm(0) will cancel an outstanding ualarm().

ualarm(0) は未実行の ualarm() をキャンセルします。

Note that the interaction between alarms and sleeps is unspecified.

アラームとスリープの相互作用は未規定であることに注意してください。

tv_interval

tv_interval ( $ref_to_gettimeofday [, $ref_to_later_gettimeofday] )

Returns the floating seconds between the two times, which should have been returned by gettimeofday(). If the second argument is omitted, then the current time is used.

二つの時刻の時間を浮動小数点の秒数を返します。 二つの時刻は gettimeofday() で返されたものでなければなりません。 2 番目の引数が省略されると、現在の時刻が使われます。

time ()

Returns a floating seconds since the epoch. This function can be imported, resulting in a nice drop-in replacement for the time provided with core Perl; see the "EXAMPLES" below.

浮動小数点でエポックからの秒数を返します。 この関数はインポートすることができます; その結果、Perl のコアで提供される 差し込み式に time を置き換えることになります; 下記の "EXAMPLES" をご覧ください。

NOTE 1: This higher resolution timer can return values either less or more than the core time(), depending on whether your platform rounds the higher resolution timer values up, down, or to the nearest second to get the core time(), but naturally the difference should be never more than half a second. See also "clock_getres", if available in your system.

注意 1: この高精度の time は、あなたのプラットホームがコアの time() を 得るために、より高精度の時刻を切り上げたり、切り捨てたり、一番近い秒に するのいずれかによって、コアの time() よりも多かったり、少なかったり することがあります; しかし当然、その差は 0.5 秒を越えることはありえません。 システムで利用可能なら、"clock_getres" も参照してください。

NOTE 2: Since Sunday, September 9th, 2001 at 01:46:40 AM GMT, when the time() seconds since epoch rolled over to 1_000_000_000, the default floating point format of Perl and the seconds since epoch have conspired to produce an apparent bug: if you print the value of Time::HiRes::time() you seem to be getting only five decimals, not six as promised (microseconds). Not to worry, the microseconds are there (assuming your platform supports such granularity in the first place). What is going on is that the default floating point format of Perl only outputs 15 digits. In this case that means ten digits before the decimal separator and five after. To see the microseconds you can use either printf/sprintf with "%.6f", or the gettimeofday() function in list context, which will give you the seconds and microseconds as two separate values.

注意 2: 2001 年 9 月 9 日 日曜日 GMT の午前 1:46:40 より、 エポックからの time() 秒は、1_000_000_000 を超えています。 Perl でのデフォルトの浮動小数点のフォーマットとエポックからの秒数が あいまって明らかなバグを作り出します: Time::HiRes::time() の値を 出力すると、保証された 6 桁(マイクロ秒)ではなく 5 桁の数字しか得ることが できません。 ご心配なく; マイクロ秒は存在します(もちろんあなたの プラットホームが、そのような粒度をサポートしているものと想定しています)。 何が起きているかといえば、Perl の浮動小数点のデフォルトのフォーマットでは 15 桁の数字しか出力しません。 この場合、小数点の前に 10 桁の数字があり、その後ろに 5 桁あります。 マイクロ秒を見るためには "%.6f" で printf/sprintf の どちらかを使うか、リストコンテキストで gettimeofday() を 使うことができます。 この場合には、秒とマイクロ秒の二つを別の値として与えてくれます。

sleep ( $floating_seconds )

Sleeps for the specified amount of seconds. Returns the number of seconds actually slept (a floating point value). This function can be imported, resulting in a nice drop-in replacement for the sleep provided with perl, see the "EXAMPLES" below.

指定された秒数、sleep します。 実際に sleep した秒数を(浮動小数点の値で)返します。 この関数はインポートすることができます; その結果、Perl のコアで提供される差し込み式に sleep を 置き換えることになります; 下記の "EXAMPLES" をご覧ください。

Note that the interaction between alarms and sleeps is unspecified.

アラームとスリープの相互作用は未規定であることに注意してください。

alarm ( $floating_seconds [, $interval_floating_seconds ] )

The SIGALRM signal is sent after the specified number of seconds. Implemented using setitimer() if available, ualarm() if not. The $interval_floating_seconds argument is optional and will be zero if unspecified, resulting in alarm()-like behaviour. This function can be imported, resulting in a nice drop-in replacement for the alarm provided with perl, see the "EXAMPLES" below.

指定され秒数後、SIGALRM シグナルが送られます。 setitimer() があればこれを使い、なければ ualarm() を使って 実装されています。 $interval_floating_seconds 引数は オプションで指定されないと 0 になります。 その結果、alarm() のような動きになります。 この関数はインポートすることができます; その結果、Perl のコアで提供される差し込み式に alarm を 置き換えることになります; 下記の "EXAMPLES" をご覧ください。

Returns the remaining time in the alarm in seconds, or undef if an error occurred.

アラームの残り時間を秒で返します; エラーが発生した場合は undef を返します。

NOTE 1: With some combinations of operating systems and Perl releases SIGALRM restarts select(), instead of interrupting it. This means that an alarm() followed by a select() may together take the sum of the times specified for the the alarm() and the select(), not just the time of the alarm().

注意 1: オペレーティングシステムと Perl のリリースの 組み合わせによっては SIGALRM が中断させるのではなく、select() を 再開始させることもあります。 これは alarm() の後に select() をすると、alarm() に指定した 時間通りにではなく、 alarm() と select() に指定された時間の合計が掛かるかも しれないことを意味します。

Note that the interaction between alarms and sleeps is unspecified.

アラームとスリープの相互作用は未規定であることに注意してください。

setitimer ( $which, $floating_seconds [, $interval_floating_seconds ] )

Start up an interval timer: after a certain time, a signal ($which) arrives, and more signals may keep arriving at certain intervals. To disable an "itimer", use $floating_seconds of zero. If the $interval_floating_seconds is set to zero (or unspecified), the timer is disabled after the next delivered signal.

インターバルタイマーを開始させます; 一定の時間後、シグナル ($which) が届き、 ある間隔でシグナルが届き続けるかもしれません。 "itimer" を止めるには、$floating_seconds を 0 にしてください。 $interval_floating_seconds に 0 が指定されると(あるいは何も 指定されないと)、タイマーは次にシグナルが届いた 後に 止められます。

Use of interval timers may interfere with alarm(), sleep(), and usleep(). In standard-speak the "interaction is unspecified", which means that anything may happen: it may work, it may not.

インターバルタイマーを使うことは alarm(), sleep()、usleep() に よって邪魔されるかもしれません。 標準的には「相互作用は規定されていません」; つまりは 何でも 起こりえます: 動くかもしれませんし、 そうでないかもしれません。

In scalar context, the remaining time in the timer is returned.

スカラコンテキストではタイマーでの残り時間が返されます。

In list context, both the remaining time and the interval are returned.

リストコンテキストでは、残り時間とインターバルが返されます。

There are usually three or four interval timers (signals) available: the $which can be ITIMER_REAL, ITIMER_VIRTUAL, ITIMER_PROF, or ITIMER_REALPROF. Note that which ones are available depends: true UNIX platforms usually have the first three, but only Solaris seems to have ITIMER_REALPROF (which is used to profile multithreaded programs). Win32 unfortunately does not haveinterval timers.

通常三つあるいは四つのインターバルタイマー(シグナル)が利用可能です: $which は ITIMER_REAL, ITIMER_VIRTUAL, ITIMER_PROF, ITIMER_REALPROF にすることができます。 どれが利用できるかは以下のことに依存します: 本当の UNIX プラットホームは通常最初の三つを持っています。 しかし Solaris は ITIMER_REALPROF を持っているようです (これはマルチスレッドなプログラムをプロファイルするために使われます)。 Win32 は残念ながらインターバルタイマーを持っていません。

ITIMER_REAL results in alarm()-like behaviour. Time is counted in real time; that is, wallclock time. SIGALRM is delivered when the timer expires.

ITIMER_REAL は結果として alarm() のような動きにします。 時間は実時間; つまり壁時計の時間で計られます。 タイマーが時間切れになると SIGALRM が送られます。

ITIMER_VIRTUAL counts time in (process) virtual time; that is, only when the process is running. In multiprocessor/user/CPU systems this may be more or less than real or wallclock time. (This time is also known as the user time.) SIGVTALRM is delivered when the timer expires.

ITIMER_VIRTUAL は(プロセス)仮想の時間 で時間を計ります； つまりプロセスが実行しているときだけです。 マルチプロセッサ/ユーザ/CPU のシステムではこれは 実時間あるいは壁時計の時間とは多かったり、少なかったりします。 (この時間は ユーザー時間(user time) とも呼ばれます。 タイマーが時間切れになると SIGVTALRM が送られます。

ITIMER_PROF counts time when either the process virtual time or when the operating system is running on behalf of the process (such as I/O). (This time is also known as the system time.) (The sum of user time and system time is known as the CPU time.) SIGPROF is delivered when the timer expires. SIGPROF can interrupt system calls.

ITIMER_PROF はプロセス仮想時間、あるいは(I/O のように)プロセスの一部として オペレーティングシステムが走っている時間を計ります。 (この時間は システム時間(system time) とも呼ばれます。) タイマーが時間切れになると、SIGPROF が送られます。 SIGPROF はシステムコールを中断させることができます。

The semantics of interval timers for multithreaded programs are system-specific, and some systems may support additional interval timers. For example, it is unspecified which thread gets the signals. See your setitimer() documentation.

マルチスレッドなプログラムでのインターバルタイマーの意味は システムによります。 そしてシステムによっては、さらに他のインターバルタイマーを サポートしているかもしれません。 例えば、スレッドがどのスレッドがシグナルを受信するかは未規定です。 あなたの setitimer() のドキュメントをご覧ください。

getitimer ( $which )

Return the remaining time in the interval timer specified by $which.

$which で指定されたインターバルタイマーでの残り時間を返します。

In scalar context, the remaining time is returned.

スカラコンテキストでは、残り時間が返されます。

In list context, both the remaining time and the interval are returned. The interval is always what you put in using setitimer().

リストコンテキストでは残り時間とインターバルの両方が返されます。 インターバルは常に、setitimer() を使ったときに入れたものです。

clock_gettime ( $which )

Return as seconds the current value of the POSIX high resolution timer specified by $which. All implementations that support POSIX high resolution timers are supposed to support at least the $which value of CLOCK_REALTIME, which is supposed to return results close to the results of gettimeofday, or the number of seconds since 00:00:00:00 January 1, 1970 Greenwich Mean Time (GMT). Do not assume that CLOCK_REALTIME is zero, it might be one, or something else. Another potentially useful (but not available everywhere) value is CLOCK_MONOTONIC, which guarantees a monotonically increasing time value (unlike time() or gettimeofday(), which can be adjusted). See your system documentation for other possibly supported values.

$which で指定された POSIX 高精度タイマーの現在の値を 秒単位で返します。 POSIX 高精度タイマーに対応している全ての実装は、少なくとも $which の値として CLOCK_REALTIME に対応していることが 想定されます: この場合、gettimeofday の結果、つまり グリニッジ標準時(GMT)の 1970 年 1 月 1 日 00:00:00:00 からの秒数に近い結果を返すことが想定されます。 Do not assume that CLOCK_REALTIME is zero, it might be one, or something else. Another potentially useful (but not available everywhere) value is CLOCK_MONOTONIC, which guarantees a monotonically increasing time value (unlike time() or gettimeofday(), which can be adjusted). See your system documentation for other possibly supported values. (TBT)

clock_getres ( $which )

Return as seconds the resolution of the POSIX high resolution timer specified by $which. All implementations that support POSIX high resolution timers are supposed to support at least the $which value of CLOCK_REALTIME, see "clock_gettime".

Return as seconds the resolution of the POSIX high resolution timer specified by $which. All implementations that support POSIX high resolution timers are supposed to support at least the $which value of CLOCK_REALTIME, see "clock_gettime". (TBT)

clock_nanosleep ( $which, $nanoseconds, $flags = 0)

Sleeps for the number of nanoseconds (1e9ths of a second) specified. Returns the number of nanoseconds actually slept. The $which is the "clock id", as with clock_gettime() and clock_getres(). The flags default to zero but TIMER_ABSTIME can specified (must be exported explicitly) which means that $nanoseconds is not a time interval (as is the default) but instead an absolute time. Can sleep for more than one second. Can also sleep for zero seconds, which often works like a thread yield. See also Time::HiRes::sleep(), Time::HiRes::usleep(), and Time::HiRes::nanosleep().

Sleeps for the number of nanoseconds (1e9ths of a second) specified. Returns the number of nanoseconds actually slept. The $which is the "clock id", as with clock_gettime() and clock_getres(). The flags default to zero but TIMER_ABSTIME can specified (must be exported explicitly) which means that $nanoseconds is not a time interval (as is the default) but instead an absolute time. Can sleep for more than one second. Can also sleep for zero seconds, which often works like a thread yield. See also Time::HiRes::sleep(), Time::HiRes::usleep(), and Time::HiRes::nanosleep(). (TBT)

Do not expect clock_nanosleep() to be exact down to one nanosecond. Getting even accuracy of one thousand nanoseconds is good.

clock_nanosleep() がナノ秒単位で正確と想定しないでください。 1000 ナノ秒の精度でも良い方です。

clock()

Return as seconds the process time (user + system time) spent by the process since the first call to clock() (the definition is not "since the start of the process", though if you are lucky these times may be quite close to each other, depending on the system). What this means is that you probably need to store the result of your first call to clock(), and subtract that value from the following results of clock().

Return as seconds the process time (user + system time) spent by the process since the first call to clock() (the definition is not "since the start of the process", though if you are lucky these times may be quite close to each other, depending on the system). What this means is that you probably need to store the result of your first call to clock(), and subtract that value from the following results of clock(). (TBT)

The time returned also includes the process times of the terminated child processes for which wait() has been executed. This value is somewhat like the second value returned by the times() of core Perl, but not necessarily identical. Note that due to backward compatibility limitations the returned value may wrap around at about 2147 seconds or at about 36 minutes.

The time returned also includes the process times of the terminated child processes for which wait() has been executed. This value is somewhat like the second value returned by the times() of core Perl, but not necessarily identical. Note that due to backward compatibility limitations the returned value may wrap around at about 2147 seconds or at about 36 minutes. (TBT)

stat

stat FH

stat EXPR

As "stat" in perlfunc but with the access/modify/change file timestamps in subsecond resolution, if the operating system and the filesystem both support such timestamps. To override the standard stat():

As "stat" in perlfunc but with the access/modify/change file timestamps in subsecond resolution, if the operating system and the filesystem both support such timestamps. To override the standard stat(): (TBT)

    use Time::HiRes qw(stat);

Test for the value of &Time::HiRes::d_hires_stat to find out whether the operating system supports subsecond file timestamps: a value larger than zero means yes. There are unfortunately no easy ways to find out whether the filesystem supports such timestamps. UNIX filesystems often do; NTFS does; FAT doesn't (FAT timestamp granularity is two seconds).

Test for the value of &Time::HiRes::d_hires_stat to find out whether the operating system supports subsecond file timestamps: a value larger than zero means yes. There are unfortunately no easy ways to find out whether the filesystem supports such timestamps. UNIX filesystems often do; NTFS does; FAT doesn't (FAT timestamp granularity is two seconds). (TBT)

A zero return value of &Time::HiRes::d_hires_stat means that Time::HiRes::stat is a no-op passthrough for CORE::stat(), and therefore the timestamps will stay integers. The same thing will happen if the filesystem does not do subsecond timestamps, even if the &Time::HiRes::d_hires_stat is non-zero.

A zero return value of &Time::HiRes::d_hires_stat means that Time::HiRes::stat is a no-op passthrough for CORE::stat(), and therefore the timestamps will stay integers. The same thing will happen if the filesystem does not do subsecond timestamps, even if the &Time::HiRes::d_hires_stat is non-zero. (TBT)

In any case do not expect nanosecond resolution, or even a microsecond resolution. Also note that the modify/access timestamps might have different resolutions, and that they need not be synchronized, e.g. if the operations are

In any case do not expect nanosecond resolution, or even a microsecond resolution. Also note that the modify/access timestamps might have different resolutions, and that they need not be synchronized, e.g. if the operations are (TBT)

    write
    stat # t1
    read
    stat # t2

the access time stamp from t2 need not be greater-than the modify time stamp from t1: it may be equal or less.

t2 アクセス時刻は、t1 の変更時刻より大きい必要はありません: これは同じだったり 小さい 場合もあります。

例¶

  use Time::HiRes qw(usleep ualarm gettimeofday tv_interval);

  $microseconds = 750_000;
  usleep($microseconds);

  # signal alarm in 2.5s & every .1s thereafter
  ualarm(2_500_000, 100_000);
  # cancel that ualarm
  ualarm(0);

  # 2.5 秒後、その後は 0.1 秒ごとにシグナルアラーム
  ualarm(2_500_000, 100_000);
  # この ualarm をキャンセル
  ualarm(0);

  # get seconds and microseconds since the epoch
  ($s, $usec) = gettimeofday();

  # エポックからの秒とマイクロ秒を取得
  ($s, $usec) = gettimeofday();

  # measure elapsed time 
  # (could also do by subtracting 2 gettimeofday return values)
  $t0 = [gettimeofday];
  # do bunch of stuff here
  $t1 = [gettimeofday];
  # do more stuff here
  $t0_t1 = tv_interval $t0, $t1;

  # 経過時間の計測
  # (二つの gettimeofday の戻り値を引くことによっても可能です)
  $t0 = [gettimeofday];
  # ここで何か処理の固まりを実行
  $t1 = [gettimeofday];
  # さらに処理の固まりを実行
  $t0_t1 = tv_interval $t0, $t1;

  $elapsed = tv_interval ($t0, [gettimeofday]);
  $elapsed = tv_interval ($t0); # equivalent code

  #
  # replacements for time, alarm and sleep that know about
  # floating seconds
  #
  use Time::HiRes;
  $now_fractions = Time::HiRes::time;
  Time::HiRes::sleep (2.5);
  Time::HiRes::alarm (10.6666666);

  #
  # time, alarm , sleep を浮動小数点での秒がわかる
  # もので置き換え
  #
  use Time::HiRes;
  $now_fractions = Time::HiRes::time;
  Time::HiRes::sleep (2.5);
  Time::HiRes::alarm (10.6666666);

  use Time::HiRes qw ( time alarm sleep );
  $now_fractions = time;
  sleep (2.5);
  alarm (10.6666666);

  # Arm an interval timer to go off first at 10 seconds and
  # after that every 2.5 seconds, in process virtual time

  # プロセス仮想時間で最初に 10 秒、その後は 2.5 秒ごとに
  # やってくるインターバルタイマーを装備する

  use Time::HiRes qw ( setitimer ITIMER_VIRTUAL time );

  $SIG{VTALRM} = sub { print time, "\n" };
  setitimer(ITIMER_VIRTUAL, 10, 2.5);

  use Time::HiRes qw( clock_gettime clock_getres CLOCK_REALTIME );
  # Read the POSIX high resolution timer.
  my $high = clock_getres(CLOCK_REALTIME);
  # But how accurate we can be, really?
  my $reso = clock_getres(CLOCK_REALTIME);

  use Time::HiRes qw( clock_nanosleep TIMER_ABSTIME );
  clock_nanosleep(CLOCK_REALTIME, 1e6);
  clock_nanosleep(CLOCK_REALTIME, 2e9, TIMER_ABSTIME);

  use Time::HiRes qw( clock );
  my $clock0 = clock();
  ... # Do something.
  my $clock1 = clock();
  my $clockd = $clock1 - $clock0;

  use Time::HiRes qw( stat );
  my ($atime, $mtime, $ctime) = (stat("istics"))[8, 9, 10];

C API¶

拡張を書く人には上記の perl API に加えて、C API を利用できます。 以下の C の関数が modglobal ハッシュで利用できます:

  name             C prototype
  ---------------  ----------------------
  Time::NVtime     double (*)()
  Time::U2time     void (*)(pTHX_ UV ret[2])

  関数名           Cプロトタイプ
  ---------------  ----------------------
  Time::NVtime     double (*)()
  Time::U2time     void (*)(pTHX_ UV ret[2])

関数は両方とも(gettimeofday のような)同じ情報を返します。 しかしその表現が違います。NVtime と U2time という名前は主に オペレーティングシステムに依存していないために選択されています。 (Win32 や VMS のようにいくつかのプラットホームではそのエミュレーションを 備えていますが、gettimeofday は Unix 中心的です。)

C から NVtime を使ったときの例を以下に示します:

  double (*myNVtime)(); /* Returns -1 on failure. */
  SV **svp = hv_fetch(PL_modglobal, "Time::NVtime", 12, 0);
  if (!svp)         croak("Time::HiRes is required");
  if (!SvIOK(*svp)) croak("Time::NVtime isn't a function pointer");
  myNVtime = INT2PTR(double(*)(), SvIV(*svp));
  printf("The current time is: %f\n", (*myNVtime)());

DIAGNOSTICS¶

useconds or interval more than ...¶

In ualarm() you tried to use number of microseconds or interval (also in microseconds) more than 1_000_000 and setitimer() is not available in your system to emulate that case. (TBT)

negative time not invented yet¶

引数としてマイナスの時刻を使おうとしました。

internal error: useconds < 0 (unsigned ... signed ...)¶

何かひどい障害がおきました -- マイナスになるはずのないマイクロ秒数は マイナスになってしまいました。 コンパイラが壊れているのかも?

useconds or uinterval equal to or more than 1000000¶

一部のプラットフォームでは、1 秒未満の解像度で 1 秒を超える長さの アラームを使えません。

unimplemented in this platform¶

一部の呼び出しは、実物とエミュレーションとに関わらず、全ての プラットフォームで利用可能というわけではありません。

CAVEATS¶

コアの time() が切り捨てるのではなく、四捨五入するかもしれないことに 注意してください。 これはコアの time() が gettimeofday() や Time::HiRes::time() よりも1秒遅い時間を報告するかもしれないという ことを意味します。

(手動または ntp のようなサービスによって) システムクロックを修正することは、 特に時刻が単調増加することを仮定する長時間動作しているプログラムでは、 問題を引き起こすかもしれません (全てのプラットフォームが、Unix の ntp が するように徐々に時刻を修正するわけではないことに注意してください)。 例えば、Win32 (および Cygwin と MinGW のような派生プラットフォーム) では、 Time::HiRes::time() はシステムクロック (および元の time()) から 一時的に最大 0.5 秒ずれることがあります。 Time::HiRes は最終的にはこれに気付いて再調整します。 Time::HiRes 1.77 以降では clock_gettime(CLOCK_MONOTONIC) がこれの 助けになるかもしれません (システムが CLOCK_MONOTONIC に対応している場合)。

一部のシステムは API を持っていますが実装されていません: 例えば QNX と Haiku はインターバルタイマー API を持っていますが、 動作しません。

SEE ALSO¶

Perl モジュール BSD::Resource, Time::TAI64。

システムの clock, clock_gettime, clock_getres, clock_nanosleep, clock_settime, getitimer, gettimeofday, setitimer, sleep, stat, ualarm の文書。

作者¶

D. Wegscheid <[email protected]> R. Schertler <[email protected]> J. Hietaniemi <[email protected]> G. Aas <[email protected]>

コピーライト & ライセンス¶

Copyright (c) 1996-2002 Douglas E. Wegscheid. All rights reserved.

Copyright (c) 2002, 2003, 2004, 2005, 2006, 2007, 2008 Jarkko Hietaniemi. All rights reserved.

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