6 use Data::Dump qw(dump);
8 # parse formatted dell output with
10 # to tab delimited lines
12 my $debug = $ENV{DEBUG} || 0;
23 $line_regex =~ s/\s+$//;
24 $line_regex =~ s/-/./g;
25 $line_regex =~ s/^/(/g;
26 $line_regex =~ s/(\s+)/)$1(/g;
27 $line_regex =~ s/$/)/;
32 $l_w =~ s/\.+\)$/.+)/;
33 push @line_regex_short, $l_w;
34 $l =~ s/\s*\(\.+\)$//;
35 warn "# [$l]\n" if $debug;
38 print STDERR "$_\n$line_regex\n", dump( @line_regex_short ), "\n" if $debug;
44 if ( defined($line_regex) ) {
45 my @v = ( /$line_regex/ );
47 foreach my $regex ( @line_regex_short ) {
53 @v = map { s/^\s+//; s/\s+$//; $_ } @v;
54 warn "# v = ",dump(@v) if $debug;
57 foreach my $i ( 1 .. $#v ) {
59 $lines[$#lines]->[$i] .= $v[$i];
67 warn "SKIP [$_]\n" if $debug;
74 foreach my $a ( @lines ) {
75 print join("\t", @$a), "\n"