25 |
my $cmd = $self->sar_command . ' ' . $opts; |
my $cmd = $self->sar_command . ' ' . $opts; |
26 |
warn "# cmd: $cmd"; |
warn "# cmd: $cmd"; |
27 |
|
|
28 |
my $date = '1970-01-01T'; |
my $date = '1970-01-01 '; |
29 |
|
|
30 |
open(my $fh, '-|', $cmd) || die "can't open pipe to $cmd $!"; |
open(my $fh, '-|', $cmd) || die "can't open pipe to $cmd $!"; |
31 |
while(<$fh>) { |
while(<$fh>) { |
32 |
chomp; |
chomp; |
33 |
|
|
34 |
if ( m{(\d\d)/(\d\d)/(\d\d\d\d)$} ) { |
if ( m{(\d\d)/(\d\d)/(\d\d\d\d)$} ) { |
35 |
$date = "$3-$1-$2T"; |
$date = "$3-$1-$2 "; |
36 |
warn "# date $date"; |
warn "# date $date"; |
37 |
next; |
next; |
38 |
} |
} |