 |
 |
 |
構文 |
|
|
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";
