On Fri, 4 Oct 2013 11:40:48 -0400
shawn wilson <ag4ve...@gmail.com> wrote:
> foreach my $ereg (@$match)
> {
> my $enum = ($#{$ereg->[0]} >= $#{$ereg->[1]} ?
> $#{$ereg->[0]} : $#{$ereg->[1]});
> print "ereg " . Dumper(@$ereg);
> print "blah " . $ereg->[0][0] . "\n";
> # Each match
> foreach my $i (0 .. $enum)
> {
> substr($line, $ereg->[0][$enum], 0, $color);
> substr($line, $ereg->[1][$enum], 0, '\e[0m');
"\e[0m" # use double quotes
> }
> }
--
Don't stop where the ink does.
Shawn
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
