Thanks, that works.
The only other gotcha I had (which took 5 seconds to figure out - just
for archival) was:
my $clen = length($color);
.....
substr($line, $ereg->[0][$enum], 0, $color);
substr($line, ($ereg->[1][$enum] + $clen), 0, "\e[0m");
On Fri, Oct 4, 2013 at 11:46 AM, Shawn H Corey <shawnhco...@gmail.com> wrote:
> 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/
>
>
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
