I'm trying to parse a log file using ';' as a newline and then wherever
I find items inside '(..)', indenting those lines thus:
foo;bar(foo;bar(foobar);foo)foobar
becomes
foo
bar(
foo
bar(
foobar
)
foo
)
foobar
What I've got so far is below  the problem is that when there are
nested sets of parentheses, I can't increase the indents accordingly.
Also, I can't work out how to get the closing ')' on a line by itself.
I'm in a bit of a pickle  can anyone help?
What I've got so far follows:
#!/usr/bin/perl w
use strict;
$=0;
my @in = <>;
my $tbchr = "\t";
my $tbcnt = 0;
for(@in){
my @ln=split(';', $_);
my $i;
for ($i=0; $i<@ln; $i++){
chomp($ln[$i]);
my @subln;
if ( $ln[$i] =~ /\([^)]/ ) {
@subln = split('\(',$ln[$i]);
my $k;for($k=0;$k<@subln;$k++){ $subln[$k] .=
'(' }
} elsif ( $ln[$i] =~ /[^(]\)/ ) {
@subln = split('\)',$ln[$i]);
my $k;for($k=0;$k<@subln;$k++){ $subln[$k] .=
')' }
} else {
@subln = $ln[$i];
}
for(@subln){
my $j;
for($j=0; $j<$tbcnt; $j++){ print $tbchr }
print "$_\n";
$tbcnt++ if /\(/;
$tbcnt if /\)/;
}
}
}
