trace/postprocess/trace-pagealloc-postprocess.pl

2 # This is a POC (proof of concept or piece of crap, take your pick) for reading the
4 # to extract some high-level information on what is going on. The accuracy of the parser
7 # Example usage: trace-pagealloc-postprocess.pl < /sys/kernel/tracing/trace_pipe
9 #   --prepend-parent	Report on the parent proc and PID
10 #   --read-procstat	If the trace lacks process info, get it from /proc
11 #   --ignore-pid	Aggregate processes of the same name together
29 use constant STATE_PCPU_PAGES_REFILLED	=> 9;
31 # High-level events extrapolated from tracepoints
46 my $sigint_report = 0;
47 my $sigint_exit = 0;
48 my $sigint_pending = 0;
49 my $sigint_received = 0;
52 	if ($current_time - 2 > $sigint_received) {
53 		print "SIGINT received, report pending. Hit ctrl-c again to exit\n";
74 	'ignore-pid'	 =>	\$opt_ignorepid,
75 	'read-procstat'	 =>	\$opt_read_procstat,
76 	'prepend-parent' =>	\$opt_prepend_parent,
80 …0-9a-f]*) pfn=([0-9]*) alloc_order=([-0-9]*) fallback_order=([-0-9]*) pageblock_order=([-0-9]*) al…
87 my $regex_traceevent = '\s*([a-zA-Z0-9-]*)\s*(\[[0-9]*\])\s*([0-9.]*):\s*([a-zA-Z_]*):\s*(.*)';
88 my $regex_statname = '[-0-9]*\s\((.*)\).*';
89 my $regex_statppid = '[-0-9]*\s\(.*\)\s[A-Za-z]\s([0-9]*).*';
105 				$regex =~ s/%p/\([0-9a-f]*\)/g;
106 				$regex =~ s/%d/\([-0-9]*\)/g;
107 				$regex =~ s/%lu/\([0-9]*\)/g;
137 	my $pid = $_[0];
146 		$statline = "-1 (UNKNOWN_PROCESS_NAME) R 0";
153 	my $pid = $_[0];
156 	if ($pid == 0) {
157 		return "swapper-0";
163 	return "$1-$pid";
167 	my $pid = $_[0];
171 	if ($pid == 0) {
172 		return "NOPARENT-0";
201 				$process_pid =~ /(.*)-([0-9]*)$/;
225 			$perprocesspid{$process_pid}->{MM_PAGE_ALLOC}++;
227 			$perprocesspid{$process_pid}->{MM_PAGE_FREE}++
229 			$perprocesspid{$process_pid}->{MM_PAGE_FREE_BATCHED}++;
231 			$perprocesspid{$process_pid}->{MM_PAGE_PCPU_DRAIN}++;
232 			$perprocesspid{$process_pid}->{STATE_PCPU_PAGES_DRAINED}++;
234 			$perprocesspid{$process_pid}->{MM_PAGE_ALLOC_ZONE_LOCKED}++;
235 			$perprocesspid{$process_pid}->{STATE_PCPU_PAGES_REFILLED}++;
251 			$perprocesspid{$process_pid}->{MM_PAGE_ALLOC_EXTFRAG}++;
260 			$change_ownership = $9;
263 				$perprocesspid{$process_pid}->{HIGH_EXT_FRAG}++;
265 					$perprocesspid{$process_pid}->{HIGH_EXT_FRAGMENT_SEVERE}++;
267 					$perprocesspid{$process_pid}->{HIGH_EXT_FRAGMENT_MODERATE}++;
271 				$perprocesspid{$process_pid}->{HIGH_EXT_FRAGMENT_CHANGED}++;
274 			$perprocesspid{$process_pid}->{EVENT_UNKNOWN}++;
277 		# Catch a full pcpu drain event
278 		if ($perprocesspid{$process_pid}->{STATE_PCPU_PAGES_DRAINED} &&
281 			$perprocesspid{$process_pid}->{HIGH_PCPU_DRAINS}++;
282 			$perprocesspid{$process_pid}->{STATE_PCPU_PAGES_DRAINED} = 0;
285 		# Catch a full pcpu refill event
286 		if ($perprocesspid{$process_pid}->{STATE_PCPU_PAGES_REFILLED} &&
288 			$perprocesspid{$process_pid}->{HIGH_PCPU_REFILLS}++;
289 			$perprocesspid{$process_pid}->{STATE_PCPU_PAGES_REFILLED} = 0;
302 	# Dump per-process stats
304 	my $max_strlen = 0;
316 	printf("%-" . $max_strlen . "s %8s %10s   %8s %8s   %8s %8s %8s   %8s %8s %8s %8s %8s %8s\n",
318 	printf("%-" . $max_strlen . "s %8s %10s   %8s %8s   %8s %8s %8s   %8s %8s %8s %8s %8s %8s\n",
321 	printf("%-" . $max_strlen . "s %8s %10s   %8s %8s   %8s %8s %8s   %8s %8s %8s %8s %8s %8s\n",
326 		if ($stats{$process_pid}->{STATE_PCPU_PAGES_DRAINED}) {
327 			$stats{$process_pid}->{HIGH_PCPU_DRAINS}++;
328 			$stats{$process_pid}->{STATE_PCPU_PAGES_DRAINED} = 0;
330 		if ($stats{$process_pid}->{STATE_PCPU_PAGES_REFILLED}) {
331 			$stats{$process_pid}->{HIGH_PCPU_REFILLS}++;
332 			$stats{$process_pid}->{STATE_PCPU_PAGES_REFILLED} = 0;
335 		printf("%-" . $max_strlen . "s %8d %10d   %8d %8d   %8d %8d %8d   %8d %8d %8d %8d %8d %8d\n",
337 			$stats{$process_pid}->{MM_PAGE_ALLOC},
338 			$stats{$process_pid}->{MM_PAGE_ALLOC_ZONE_LOCKED},
339 			$stats{$process_pid}->{MM_PAGE_FREE},
340 			$stats{$process_pid}->{MM_PAGE_FREE_BATCHED},
341 			$stats{$process_pid}->{MM_PAGE_PCPU_DRAIN},
342 			$stats{$process_pid}->{HIGH_PCPU_DRAINS},
343 			$stats{$process_pid}->{HIGH_PCPU_REFILLS},
344 			$stats{$process_pid}->{MM_PAGE_ALLOC_EXTFRAG},
345 			$stats{$process_pid}->{HIGH_EXT_FRAG},
346 			$stats{$process_pid}->{HIGH_EXT_FRAGMENT_CHANGED},
347 			$stats{$process_pid}->{HIGH_EXT_FRAGMENT_SEVERE},
348 			$stats{$process_pid}->{HIGH_EXT_FRAGMENT_MODERATE},
349 			$stats{$process_pid}->{EVENT_UNKNOWN});
360 		$process =~ s/-([0-9])*$//;
365 		$perprocess{$process}->{MM_PAGE_ALLOC} += $perprocesspid{$process_pid}->{MM_PAGE_ALLOC};
366 …$perprocess{$process}->{MM_PAGE_ALLOC_ZONE_LOCKED} += $perprocesspid{$process_pid}->{MM_PAGE_ALLOC…
367 		$perprocess{$process}->{MM_PAGE_FREE} += $perprocesspid{$process_pid}->{MM_PAGE_FREE};
368 …$perprocess{$process}->{MM_PAGE_FREE_BATCHED} += $perprocesspid{$process_pid}->{MM_PAGE_FREE_BATCH…
369 		$perprocess{$process}->{MM_PAGE_PCPU_DRAIN} += $perprocesspid{$process_pid}->{MM_PAGE_PCPU_DRAIN};
370 		$perprocess{$process}->{HIGH_PCPU_DRAINS} += $perprocesspid{$process_pid}->{HIGH_PCPU_DRAINS};
371 		$perprocess{$process}->{HIGH_PCPU_REFILLS} += $perprocesspid{$process_pid}->{HIGH_PCPU_REFILLS};
372 …$perprocess{$process}->{MM_PAGE_ALLOC_EXTFRAG} += $perprocesspid{$process_pid}->{MM_PAGE_ALLOC_EXT…
373 		$perprocess{$process}->{HIGH_EXT_FRAG} += $perprocesspid{$process_pid}->{HIGH_EXT_FRAG};
374 …$perprocess{$process}->{HIGH_EXT_FRAGMENT_CHANGED} += $perprocesspid{$process_pid}->{HIGH_EXT_FRAG…
375 …$perprocess{$process}->{HIGH_EXT_FRAGMENT_SEVERE} += $perprocesspid{$process_pid}->{HIGH_EXT_FRAGM…
376 …$perprocess{$process}->{HIGH_EXT_FRAGMENT_MODERATE} += $perprocesspid{$process_pid}->{HIGH_EXT_FRA…
377 		$perprocess{$process}->{EVENT_UNKNOWN} += $perprocesspid{$process_pid}->{EVENT_UNKNOWN};
394 		$sigint_processed = 0;
403 				$sigint_pending = 0;
408 					$sigint_report = 0;
409 					$sigint_pending = 0;