File: 507aggregations-trunc5.d

package info (click to toggle)
dtrace 2.0.5-1
  • links: PTS
  • area: main
  • in suites: sid
  • size: 24,408 kB
  • sloc: ansic: 61,247; sh: 17,997; asm: 1,717; lex: 947; awk: 754; yacc: 695; perl: 37; sed: 17; makefile: 15
file content (57 lines) | stat: -rwxr-xr-x 1,106 bytes parent folder | download
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
/*
 * Linux DTrace
 * Copyright (c) 2025, Oracle and/or its affiliates. All rights reserved.
 * Licensed under the Universal Permissive License v 1.0 as shown at
 * http://oss.oracle.com/licenses/upl.
 */

#!/usr/sbin/dtrace -s

# pragma D option quiet

/*
 *  SYNOPSIS
 *    sudo ./507aggregations-trunc5.d
 *
 *  DESCRIPTION
 *    Here, is another use of trunc() -- with an additional
 *    argument to focus attention on the top values.
 */

BEGIN
{
	/*
	 * The mask will change size.  When it is wide, it will
	 * spread values over many keys.  When it is narrow, it
	 * will concentrate values over a few keys.  So, some
	 * keys will get many values, while others will get few.
	 */
	mask = 255;
}

tick-100hz
{
	/* the aggregation */
	@[timestamp & mask] = count();

	/* update the mask */
	mask >>= 1;
	mask = (mask == 0) ? 255 : mask;
}

tick-1sec
{
	printf("entire result\n");
	printa("    %3d %@3d\n", @);

	trunc(@, 5);

	printf("top 5 keys\n");
	printa("    %3d %@3d\n", @);

	/*
	 * On exit, we will no longer print the aggregation
	 * by default, since it was just printed.
	 */
	exit(0);
}