Lines Matching full:my
55 my %perprocesspid;
56 my %perprocess;
57 my %last_procmap;
58 my $opt_ignorepid;
59 my $opt_read_procstat;
61 my $total_wakeup_kswapd;
62 my ($total_direct_reclaim, $total_direct_nr_scanned);
63 my ($total_direct_nr_file_scanned, $total_direct_nr_anon_scanned);
64 my ($total_direct_latency, $total_kswapd_latency);
65 my ($total_direct_nr_reclaimed);
66 my ($total_direct_nr_file_reclaimed, $total_direct_nr_anon_reclaimed);
67 my ($total_direct_writepage_file_sync, $total_direct_writepage_file_async);
68 my ($total_direct_writepage_anon_sync, $total_direct_writepage_anon_async);
69 my ($total_kswapd_nr_scanned, $total_kswapd_wake);
70 my ($total_kswapd_nr_file_scanned, $total_kswapd_nr_anon_scanned);
71 my ($total_kswapd_writepage_file_sync, $total_kswapd_writepage_file_async);
72 my ($total_kswapd_writepage_anon_sync, $total_kswapd_writepage_anon_async);
73 my ($total_kswapd_nr_reclaimed);
74 my ($total_kswapd_nr_file_reclaimed, $total_kswapd_nr_anon_reclaimed);
77 my $sigint_report = 0;
78 my $sigint_exit = 0;
79 my $sigint_pending = 0;
80 my $sigint_received = 0;
82 my $current_time = time;
110 my $regex_direct_begin_default = 'order=([0-9]*) may_writepage=([0-9]*) gfp_flags=([A-Z_|]*)';
111 my $regex_direct_end_default = 'nr_reclaimed=([0-9]*)';
112 my $regex_kswapd_wake_default = 'nid=([0-9]*) order=([0-9]*)';
113 my $regex_kswapd_sleep_default = 'nid=([0-9]*)';
114 my $regex_wakeup_kswapd_default = 'nid=([0-9]*) zid=([0-9]*) order=([0-9]*) gfp_flags=([A-Z_|]*)';
115 my $regex_lru_isolate_default = 'isolate_mode=([0-9]*) classzone_idx=([0-9]*) order=([0-9]*) nr_req…
116 my $regex_lru_shrink_inactive_default = 'nid=([0-9]*) nr_scanned=([0-9]*) nr_reclaimed=([0-9]*) nr_…
117 my $regex_lru_shrink_active_default = 'lru=([A-Z_]*) nr_scanned=([0-9]*) nr_rotated=([0-9]*) priori…
118 my $regex_writepage_default = 'page=([0-9a-f]*) pfn=([0-9]*) flags=([A-Z_|]*)';
121 my $regex_direct_begin;
122 my $regex_direct_end;
123 my $regex_kswapd_wake;
124 my $regex_kswapd_sleep;
125 my $regex_wakeup_kswapd;
126 my $regex_lru_isolate;
127 my $regex_lru_shrink_inactive;
128 my $regex_lru_shrink_active;
129 my $regex_writepage;
133 my $regex_traceevent = '\s*([a-zA-Z0-9-]*)\s*(\[[0-9]*\])(\s*[dX.][Nnp.][Hhs.][0-9a-fA-F.]*|)\s*([0…
134 my $regex_statname = '[-0-9]*\s\((.*)\).*';
135 my $regex_statppid = '[-0-9]*\s\(.*\)\s[A-Za-z]\s([0-9]*).*';
138 my $event = shift;
139 my $default = shift;
140 my $regex;
147 my $line;
167 my $tuple;
169 my ($key, $value) = split(/=/, $tuple);
170 my $expected = shift;
230 my $pid = $_[0];
231 my $statline;
246 my $pid = $_[0];
247 my $statline = $_[1];
261 my $timestamp = $_[0];
263 my ($sec, $usec) = split (/\./, $timestamp);
268 my $traceevent;
269 my $process_pid;
270 my $cpus;
271 my $timestamp;
272 my $tracepoint;
273 my $details;
274 my $statline;
285 my $process = $1;
286 my $pid = $2;
317 my $order = $1;
322 my $index = $perprocesspid{$process_pid}->{MM_VMSCAN_DIRECT_RECLAIM_END};
328 my $order = $perprocesspid{$process_pid}->{STATE_DIRECT_ORDER};
329 my $latency = ($timestamp - $perprocesspid{$process_pid}->{STATE_DIRECT_BEGIN});
341 my $order = $2;
355 my $index = $perprocesspid{$process_pid}->{MM_VMSCAN_KSWAPD_SLEEP};
360 my $order = $perprocesspid{$process_pid}->{STATE_KSWAPD_ORDER};
361 my $latency = ($timestamp - $perprocesspid{$process_pid}->{STATE_KSWAPD_BEGIN});
374 my $order = $3;
384 my $isolate_mode = $1;
385 my $nr_scanned = $5;
386 my $file = $8;
410 my $nr_reclaimed = $3;
411 my $flags = $13;
412 my $file = 0;
431 my $flags = $3;
432 my $file = 0;
433 my $sync_io = 0;
464 my $hashref = shift;
465 my %stats = %$hashref;
468 my $process_pid;
469 my $max_strlen = 0;
473 my $len = length($process_pid);
491 my $index = 0;
497 my ($dummy, $latency) = split(/-/, $stats{$process_pid}->{HIGH_DIRECT_RECLAIM_LATENCY}[$index]);
501 my ($dummy, $latency) = split(/-/, $stats{$process_pid}->{HIGH_KSWAPD_LATENCY}[$index]);
533 my $index = 0;
534 my $this_reclaim_delay = 0;
536 my ($dummy, $latency) = split(/-/, $stats{$process_pid}->{HIGH_DIRECT_RECLAIM_LATENCY}[$index]);
557 for (my $order = 0; $order < 20; $order++) {
558 my $count = $stats{$process_pid}->{MM_VMSCAN_DIRECT_RECLAIM_BEGIN_PERORDER}[$order];
566 for (my $order = 0; $order < 20; $order++) {
567 my $count = $stats{$process_pid}->{MM_VMSCAN_WAKEUP_KSWAPD_PERORDER}[$order];
614 for (my $order = 0; $order < 20; $order++) {
615 my $count = $stats{$process_pid}->{MM_VMSCAN_KSWAPD_WAKE_PERORDER}[$order];
623 for (my $order = 0; $order < 20; $order++) {
624 my $count = $stats{$process_pid}->{HIGH_KSWAPD_REWAKEUP_PERORDER}[$order];
666 my $process_pid;
667 my $process;
692 for (my $order = 0; $order < 20; $order++) {
700 my $wr_index = $perprocess{$process}->{MM_VMSCAN_DIRECT_RECLAIM_END};
701 my $rd_index = 0;
710 my $wr_index = $perprocess{$process}->{MM_VMSCAN_KSWAPD_SLEEP};
711 my $rd_index = 0;
732 my $sigint_processed;
739 my $current_time = time;