in reply to Re^2: Recursive Regex
in thread Parsing using Regex and Lookahead
sub formatCode2{ my $code = shift; my @arrCode = split (/\[([^\]]*)\]/, $code); my $size = @arrCode; # print whatever b4 1st delimiter if (@arrCode >= 1) { $_ = $arrCode[0]; s/\n/<br \/>/ig; print qq(<div class="">$_</div>); } # print sections for (my $cnt = 1; $cnt < @arrCode; $cnt+=2){ $_ = $arrCode[$cnt+1]; s/\n/<br \/>/ig; print qq(<div class="$arrCode[$cnt]">$_</div>); } }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^4: Recursive Regex
by furry_marmot (Pilgrim) on Mar 19, 2009 at 21:02 UTC |