1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
#!/usr/bin/env perl
use strict;
use warnings;
use Config;
if (@ARGV < 2) {
die "Usage: $0 <prefix> <command...>\n";
}
sub gettime {
my ($sec, $usec);
eval {
require Time::HiRes;
($sec, $usec) = Time::HiRes::gettimeofday();
};
unless (defined($sec) && defined($usec)) {
my $tv_t = ($Config{'longsize'} == 8) ? 'qq' : 'll';
my $tv = pack $tv_t, 0, 0;
eval {
require 'syscall.ph';
syscall(SYS_gettimeofday(), $tv, 0);
};
($sec, $usec) = unpack $tv_t, $tv;
}
return ($sec, $usec);
}
my ($prefix, @cmd) = @ARGV;
my ($sec, $usec) = gettime();
my $pid = fork();
if (!defined($pid)) {
die "$0: Failure to fork(): $!\n";
}
elsif ($pid == 0) {
exec(@cmd);
die "$0: Failure to exec(): $!\n";
}
else {
$SIG{'INT'} = 'IGNORE';
$SIG{'QUIT'} = 'IGNORE';
if (waitpid($pid, 0) == -1) {
die "$0: Failure to waitpid(): $!\n";
}
my $exitcode = $? >> 8;
my ($sec2, $usec2) = gettime();
my (undef, undef, $cuser, $csystem) = times();
printf STDERR "%s#%.2f#%.2f#%.2f\n",
$prefix, $cuser, $csystem,
($sec2 - $sec) + ($usec2 - $usec) / 1000000;
$SIG{'INT'} = 'DEFAULT';
$SIG{'QUIT'} = 'DEFAULT';
exit $exitcode;
}
|
