grep with color module of perl

vincentaxhe has asked for the wisdom of the Perl Monks concerning the following question:

I have a paragrep.pl script to grep words showing in paragraph.

#!/bin/perl
use Getopt::Std;
use utf8::all;
use v5.36;
my %options;
getopts("a",\%options);
my $togrep = shift;
$togrep = qr/$togrep/;
my $lastfile = "";
local $/ = "";
sub printfound($found, $file, $lastfile){
    print "#" x 10, "\n#$file\n" , "#" x 10, "\n" if $file ne $lastfil
+e;
    my ($postmatch, @string);
    while ($found =~ /(?s)(.*?)(?-s)($togrep)/gp){
        my $prematch = $1;
        my $match = $2;
        $postmatch = ${^POSTMATCH};
        $match =~ s/^/\e[1;31m/mg;
        $match =~ s/$/\e[0m/mg;
        push @string, $prematch, $match;
    }
    push @string, $postmatch;
    print join '', @string;
    return $file
}
while (<>) {
    if ($options{a}){
        $lastfile = printfound $_, $ARGV, $lastfile if /$togrep/i;
    }else{
        $lastfile = printfound $_, $ARGV, $lastfile if /\A.*$togrep/i;
    }
}
if ($!) {
    die "unexpected error while reading from: $!";
}
[download]

I write this printfound subroutine to insert color start and end , it's a mess.now I have more needs to colorize matched pattern, I guess there must some module can do the work nicely.

Comment on grep with color module of perl Download Code

Replies are listed 'Best First'.
Re: grep with color module of perl by Fletch (Bishop) on Aug 05, 2024 at 05:43 UTC
Probably Term::ANSIColor is what you’re looking for; that being said though ripgrep already exists (or App::Ack if you have to stay Perl for some reason). The cake is a lie. The cake is a lie. The cake is a lie.	[reply]
Re^2: grep with color module of perl by hippo (Archbishop) on Aug 05, 2024 at 11:30 UTC
+1 for Term::ANSIColor. There's a nice little demo of it featured on The Perl Advent Calendar from way back when too. 🦛	[reply]
Re^3: grep with color module of perl by vincentaxhe (Scribe) on Aug 05, 2024 at 12:42 UTC
you are like the history elder in movie 'Furiosa: A Mad Max Saga'!	[reply]
Re^2: grep with color module of perl by vincentaxhe (Scribe) on Aug 05, 2024 at 12:15 UTC
Ack is worthy digging, but it seems the only way to use it as an system command, I donot want fork anything.	[reply]
Re: grep with color module of perl by cavac (Prior) on Aug 05, 2024 at 05:39 UTC
Can't help you with a grepping module, just wanted you to know that many modern terminals support full RGB colors: `my $newfgcolor = "\e[38;2;" . join(';', $r, $g, $b) . "m"; ... my $newbgcolor = "\e[48;2;" . join(';', $r, $g, $b) . "m";` [download] See also: Re: Imagecat - show color images in a terminal "Terminal Velocity", a better Linux terminal graphics demo "Terminal colors" Github repo ANSI colors discussion on stackoverflow "ANSI Escape sequences" (github) As for doing multiple matches in a program, you could just build a hash with regex+color, then iterate over over it, roughly something like this: `my %matches = ( qr/hello/ => 'FFFF00', qr/world/ => '00FF00', ... ); ... foreach my $rex (keys %matches) { if($input =~ $rex) { my ($r, $g, $b) = hex2rgb($matches{$key}); ... last; } }` [download] PerlMonks XP is useless? Not anymore: XPD - Do more with your PerlMonks XP Also check out my sisters artwork and my rather simple sketches/one-panel comics	[reply] [d/l] [select]
Re^2: grep with color module of perl by vincentaxhe (Scribe) on Aug 05, 2024 at 12:20 UTC
much interesting stuff, terminal color things. What bothers me in the script is to find a smart way to insert color control sequence repeatly like grep did.	[reply]
Re: grep with color module of perl by johngg (Canon) on Aug 05, 2024 at 11:08 UTC
Here is a script that employs `use Term::ANSIcolor qw{ :constants };` to highlight parts of a command output in different colours. Perhaps it will help you move forward. Cheers, JohnGG	[reply] [d/l]
Re^2: grep with color module of perl by vincentaxhe (Scribe) on Aug 05, 2024 at 12:07 UTC
yeah, test good, that's what I want, It's much concise, what I write before is so inane. `use Term::ANSIColor qw{ :constants }; while(<>){ s/(hello)/RED . $1 . RESET/eg; print }` [download]	[reply] [d/l]
Re: grep with color module of perl by roho (Bishop) on Aug 06, 2024 at 06:01 UTC
Just a quick note for those using Windows. The following module is also needed along with "Term::ANSIColor qw(:constants)" to display colors on the terminal: `Win32::Console::ANSI;` [download] "It's not how hard you work, it's how much you get done."	[reply] [d/l]