Home | History | Annotate | Download | only in perl

Lines Matching refs:pid

75     printf("read counts by pid:\n\n");
77 printf("%6s %20s %10s %10s %10s\n", "pid", "comm",
82 foreach my $pid (sort { ($reads{$b}{bytes_read} || 0) <=>
84 my $comm = $reads{$pid}{comm} || "";
85 my $total_reads = $reads{$pid}{total_reads} || 0;
86 my $bytes_requested = $reads{$pid}{bytes_requested} || 0;
87 my $bytes_read = $reads{$pid}{bytes_read} || 0;
89 printf("%6s %-20s %10s %10s %10s\n", $pid, $comm,
93 printf("\nfailed reads by pid:\n\n");
95 printf("%6s %20s %6s %10s\n", "pid", "comm", "error #", "# errors");
101 foreach my $pid (keys %reads) {
102 foreach my $error (keys %{$reads{$pid}{errors}}) {
103 my $comm = $reads{$pid}{comm} || "";
104 my $errcount = $reads{$pid}{errors}{$error} || 0;
105 push @errcounts, [$pid, $comm, $error, $errcount];
116 printf("\nwrite counts by pid:\n\n");
118 printf("%6s %20s %10s %10s\n", "pid", "comm",
123 foreach my $pid (sort { ($writes{$b}{bytes_written} || 0) <=>
125 my $comm = $writes{$pid}{comm} || "";
126 my $total_writes = $writes{$pid}{total_writes} || 0;
127 my $bytes_written = $writes{$pid}{bytes_written} || 0;
129 printf("%6s %-20s %10s %10s\n", $pid, $comm,
133 printf("\nfailed writes by pid:\n\n");
135 printf("%6s %20s %6s %10s\n", "pid", "comm", "error #", "# errors");
141 foreach my $pid (keys %writes) {
142 foreach my $error (keys %{$writes{$pid}{errors}}) {
143 my $comm = $writes{$pid}{comm} || "";
144 my $errcount = $writes{$pid}{errors}{$error} || 0;
145 push @errcounts, [$pid, $comm, $error, $errcount];