You might want to consider using Terminal::ANSIColor.
On Sun, Jun 3, 2018 at 5:53 PM, Xin Cheng <xinchen...@gmail.com> wrote:
> I just tried to use "put" in place of "say", and got the same result.
>
> Thanks.
>
> Ziping
>
>
> On Jun 3, 2018, at 8:44 PM, Brandon Allbery <allber...@gmail.com> wrote:
>
> "say" uses the .gist method, which quotes the output for readability. You
> probably want "put" instead.
>
> On Sun, Jun 3, 2018 at 8:42 PM Xin Cheng <xinchen...@gmail.com> wrote:
>
>> Hi,
>>
>> I am trying to make a program to do grep with perl6 regular expression,
>> and I would like to colorize the matched part to the terminal. So the
>> following is what I wrote
>>
>> sub MAIN(Str $pattern,Str $filename){
>> for $filename.IO.lines -> $line {
>> my Str $temp = $line;
>> if $temp ~~ s/ (<$pattern>) /\\x1b\[31m$0\\x1b\[0m/ {say $temp};
>> # if no <> surrounding $pattern it becomes literal.
>> }
>> }
>>
>> And I named the program as grep6, and I tried it in zsh as
>>
>> > grep6 'M.*N' =grep6
>>
>> And I got,
>>
>> sub \x1b[31mMAIN\x1b[0m(Str $pattern,Str $filename){
>>
>> How do I turn the string into color?
>>
>> Thanks!
>>
>> Xin
>>
>
>
> --
> brandon s allbery kf8nh sine nomine
> associates
> allber...@gmail.com
> ballb...@sinenomine.net
> unix, openafs, kerberos, infrastructure, xmonad
> http://sinenomine.net
>
>
>
