如何使用Perl为每4行着色？

Question

为了更好地跟踪控制台输出线，我想每隔4行着色一次。 所以我想通过perl -ne管道输出。我不太了解perl，但我觉得必须有一个简洁的方法来做到这一点？

实现这一目标的最短途径是什么？

Answer 1

您应该查看Term::ANSIColor模块，但要使程序的输出显示为您必须修改程序或编写过滤器

这样的事可能

$ cat prog.pl | perl -MTerm::ANSIColor -ne 'print $. % 4 ? $_ : color("bold red").$_.color("reset")'

在Windows上，您需要使用CMD::Colors这样的

> type prog.pl | perl -MCMD::Colors -nE"$.%4 ? print : Cprint($_, 'red', undef, 'bold')"

Answer 2

有关如何编写过滤器以为程序输出着色的示例，请查看colorgcc。