Home | History | Annotate | Download | only in perl

Lines Matching refs:reads

27 my %reads;
44 $reads{$common_pid}{bytes_read} += $ret;
46 if (!defined ($reads{$common_pid}{bytes_read})) {
47 $reads{$common_pid}{bytes_read} = 0;
49 $reads{$common_pid}{errors}{$ret}++;
61 $reads{$common_pid}{bytes_requested} += $count;
62 $reads{$common_pid}{total_reads}++;
63 $reads{$common_pid}{comm} = $common_comm;
132 "# reads", "bytes_req", "bytes_read");
136 foreach my $pid (sort { ($reads{$b}{bytes_read} || 0) <=>
137 ($reads{$a}{bytes_read} || 0) } keys %reads) {
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;
174 %reads = ();