40 |
while ( 1 ) { |
while ( 1 ) { |
41 |
|
|
42 |
my $data = Storable::fd_retrieve( $client ); |
my $data = Storable::fd_retrieve( $client ); |
43 |
warn "[$port] <<<< ", dump( $data ); |
warn "[$port] <<<<\n"; |
44 |
|
warn "[$port] data = ", dump( $data ) if $self->{debug}; |
45 |
|
|
46 |
my $result; |
my $result; |
47 |
|
|
106 |
my $report = [ $self->{port}, $affected, $dt, scalar $self->{data} / $dt ]; |
my $report = [ $self->{port}, $affected, $dt, scalar $self->{data} / $dt ]; |
107 |
warn sprintf "[%d] %d affected in %1.4fs %.2f/s\n", @$report; |
warn sprintf "[%d] %d affected in %1.4fs %.2f/s\n", @$report; |
108 |
|
|
109 |
warn "out ", dump( $out ); |
# warn "# out ", dump( $out ); |
110 |
|
|
111 |
return $out; |
return $out; |
112 |
} |
} |