PR
 
関数順 インデックス
目的別 インデックス

構文
 
 times

返り値
 
 実行中のプロセスが消費したユーザーCPU時間
 実行中のプロセスが消費したシステムCPU時間
 子プロセスが消費したユーザーCPU時間
 子プロセスが消費したシステムCPU時間

説明

  • プロセスが消費したCPU時間を返します。
  • リスト・コンテキストで実行した場合は4種類の時間を,スカラー・コンテキストで実行した場合は実行中のプロセスが消費したユーザCPU時間を返します。

使用例

たらい回し関数を実行して消費したCPU時間を出力する
#!/usr/bin/perl
use strict;
use warnings;

my $t = tarai(10, 4, 0);

my ($user, $system, $cuser, $csystem) = times;
print "$user $system $cuser $csystem\n";

sub tarai {
  my $x = shift;
  my $y = shift;
  my $z = shift;
  
  if ($x <= $y) {
    return $y;
  } else {
    return tarai(
      tarai(($x-1), $y, $z),
      tarai(($y-1), $z, $x),
      tarai(($z-1), $x, $y)
    );
  }
}
ランダムな数字100,000個作成してソートした時に消費したユーザCPU時間を出力する
#!/usr/bin/perl
use strict;
use warnings;

my @items = ();
foreach (1..100000) {
  push @items, (rand 1000);
}
my @sorted = sort { $a <=> $b } @items;

print scalar(times), "\n";