Lines Matching full:my

22 my $default_interval = 3;
23 my $nlines = 20;
24 my $print_thread;
25 my $print_pending = 0;
27 my %reads;
28 my %writes;
30 my $interval = shift;
37     my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs,
55     my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs,
68     my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs,
81     my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs,
94     my $sa = POSIX::SigAction->new(\&set_print_pending);
123     my $count;
136     foreach my $pid (sort { ($reads{$b}{bytes_read} || 0) <=>
138 	my $comm = $reads{$pid}{comm} || "";
139 	my $total_reads = $reads{$pid}{total_reads} || 0;
140 	my $bytes_requested = $reads{$pid}{bytes_requested} || 0;
141 	my $bytes_read = $reads{$pid}{bytes_read} || 0;
160     foreach my $pid (sort { ($writes{$b}{bytes_written} || 0) <=>
162 	my $comm = $writes{$pid}{comm} || "";
163 	my $total_writes = $writes{$pid}{total_writes} || 0;
164 	my $bytes_written = $writes{$pid}{bytes_written} || 0;
178 my %unhandled;
192     foreach my $event_name (keys %unhandled) {
199     my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs,