my.my id
is-relative.to code
is-relative.to code
is-mother.to code
####
( my.my id >= 1 )
( is-relative.to code = 'sister' )
( is-relative.to code = 'brother' )
( is-mother.to code = 'dog' )
##
##
my.my id >= 1 )
is-relative.to code = 'sister'
is-relative.to code = 'brother'
is-mother.to code = 'dog'
##
##
$text = "05/04/2010 13:09:45 - A - somebody - ( ( my.my id >= 1 ) ) and ( ( is-relative.to code = 'sister' ) or ( is-relative.to code = 'brother' ) or ( is-mother.to code = 'dog' ) )";
my $new = $text;
while ( 1 ) {
$ind = index($new, ')');
# Split the text at the first close parens
$before = substr($new,0,$ind);
$after = substr($new,$ind);
last if ( $before eq "" );
# Clean up the before string
# Remove everything up to and including the last open paren
# Remove any beginning or trailing spaces
$before = substr($before,rindex($before,'(')+1);
$before =~ s/^\s+//;
$before =~ s/\s+$//;
push(@list,$before);
if ( $after =~ /\)/ ) {
# Disgard chars up to the first open paren
$after = substr($after,index($after,'(')+1);
$new = $after;
print "\n";
} else {
last;
}
}
foreach my $i (@list) {
print "--".$i."--\n";
}