"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
