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]*) 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]*) order=([0-9]*) gfp_flags=([A-Z_|]*)';
115 my $regex_lru_isolate_default = 'classzone=([0-9]*) order=([0-9]*) nr_requested=([0-9]*) nr_scanned…
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_taken=([0-9]*) nr_active=([0-9]*) nr_deacti…
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;
228 my $pid = $_[0];
229 my $statline;
244 my $pid = $_[0];
245 my $statline = $_[1];
259 my $timestamp = $_[0];
261 my ($sec, $usec) = split (/\./, $timestamp);
266 my $traceevent;
267 my $process_pid;
268 my $cpus;
269 my $timestamp;
270 my $tracepoint;
271 my $details;
272 my $statline;
283 my $process = $1;
284 my $pid = $2;
315 my $order = $1;
320 my $index = $perprocesspid{$process_pid}->{MM_VMSCAN_DIRECT_RECLAIM_END};
326 my $order = $perprocesspid{$process_pid}->{STATE_DIRECT_ORDER};
327 my $latency = ($timestamp - $perprocesspid{$process_pid}->{STATE_DIRECT_BEGIN});
339 my $order = $2;
353 my $index = $perprocesspid{$process_pid}->{MM_VMSCAN_KSWAPD_SLEEP};
358 my $order = $perprocesspid{$process_pid}->{STATE_KSWAPD_ORDER};
359 my $latency = ($timestamp - $perprocesspid{$process_pid}->{STATE_KSWAPD_BEGIN});
372 my $order = $2;
382 my $nr_scanned = $4;
383 my $lru = $7;
404 my $nr_reclaimed = $3;
405 my $flags = $13;
406 my $file = 0;
425 my $flags = $3;
426 my $file = 0;
427 my $sync_io = 0;
458 my $hashref = shift;
459 my %stats = %$hashref;
462 my $process_pid;
463 my $max_strlen = 0;
467 my $len = length($process_pid);
485 my $index = 0;
491 my ($dummy, $latency) = split(/-/, $stats{$process_pid}->{HIGH_DIRECT_RECLAIM_LATENCY}[$index]);
495 my ($dummy, $latency) = split(/-/, $stats{$process_pid}->{HIGH_KSWAPD_LATENCY}[$index]);
527 my $index = 0;
528 my $this_reclaim_delay = 0;
530 my ($dummy, $latency) = split(/-/, $stats{$process_pid}->{HIGH_DIRECT_RECLAIM_LATENCY}[$index]);
551 for (my $order = 0; $order < 20; $order++) {
552 my $count = $stats{$process_pid}->{MM_VMSCAN_DIRECT_RECLAIM_BEGIN_PERORDER}[$order];
560 for (my $order = 0; $order < 20; $order++) {
561 my $count = $stats{$process_pid}->{MM_VMSCAN_WAKEUP_KSWAPD_PERORDER}[$order];
608 for (my $order = 0; $order < 20; $order++) {
609 my $count = $stats{$process_pid}->{MM_VMSCAN_KSWAPD_WAKE_PERORDER}[$order];
617 for (my $order = 0; $order < 20; $order++) {
618 my $count = $stats{$process_pid}->{HIGH_KSWAPD_REWAKEUP_PERORDER}[$order];
660 my $process_pid;
661 my $process;
686 for (my $order = 0; $order < 20; $order++) {
694 my $wr_index = $perprocess{$process}->{MM_VMSCAN_DIRECT_RECLAIM_END};
695 my $rd_index = 0;
704 my $wr_index = $perprocess{$process}->{MM_VMSCAN_KSWAPD_SLEEP};
705 my $rd_index = 0;
726 my $sigint_processed;
733 my $current_time = time;