23 |
my $cmd = $self->sar_command . ' ' . $opts; |
my $cmd = $self->sar_command . ' ' . $opts; |
24 |
warn "# cmd: $cmd"; |
warn "# cmd: $cmd"; |
25 |
|
|
26 |
|
my $date = '1970-01-01T'; |
27 |
|
|
28 |
open(my $fh, '-|', $cmd) || die "can't open pipe to $cmd $!"; |
open(my $fh, '-|', $cmd) || die "can't open pipe to $cmd $!"; |
29 |
while(<$fh>) { |
while(<$fh>) { |
30 |
chomp; |
chomp; |
31 |
|
if ( m{(\d\d)/(\d\d)/(\d\d\d\d)$} ) { |
32 |
|
$date = "$3-$1-$2T"; |
33 |
|
warn "# date $date"; |
34 |
|
} |
35 |
next unless m{^\d\d:\d\d:\d\d}; |
next unless m{^\d\d:\d\d:\d\d}; |
36 |
my @l = split(/\s+/,$_); |
my @l = split(/\s+/,$_); |
37 |
if ( $l[$#l] =~ m{_([^_]+)_} ) { |
if ( $l[$#l] =~ m{_([^_]+)_} ) { |
42 |
next; |
next; |
43 |
} |
} |
44 |
|
|
45 |
|
$l[0] = $date . $l[0]; |
46 |
|
|
47 |
push @rows, [ @l ]; |
push @rows, [ @l ]; |
48 |
} |
} |
49 |
|
|