50 |
warn "# pos: ", $self->dump( @pos ); |
warn "# pos: ", $self->dump( @pos ); |
51 |
my @l = split(/\s+/,$_); |
my @l = split(/\s+/,$_); |
52 |
warn "# l: ", $self->dump( @l ); |
warn "# l: ", $self->dump( @l ); |
53 |
$l[0] =~ s{00:00:0\d}{time} || die "can't locate time column in header"; |
$l[0] =~ s{\d\d:\d\d:\d\d}{time} || die "can't locate time column in header"; |
54 |
@name = @l; |
@name = @l; |
55 |
next; |
next; |
56 |
} elsif ( @pos ) { |
} elsif ( @pos ) { |
59 |
warn "# skip too short line: '$_'"; |
warn "# skip too short line: '$_'"; |
60 |
next; |
next; |
61 |
} |
} |
62 |
|
|
63 |
|
# nothing works well with kernel resource format value/sz |
64 |
|
s{(\d+)/\d+}{$1}sg if $cmd =~ m{-v}; |
65 |
|
|
66 |
my $start = 0; |
my $start = 0; |
67 |
foreach my $len ( @pos ) { |
foreach my $col ( 0 .. $#pos ) { |
68 |
|
my $len = $pos[$col]; |
69 |
my $v = substr($_, $start, $len); |
my $v = substr($_, $start, $len); |
70 |
$v =~ s/^\s+//g; |
$v =~ s/^\s+//g; |
71 |
push @l, $v; |
push @l, $v; |