App-Greple
view release on metacpan or search on metacpan
- Add --version option
10.02 2026-01-09T04:59:40Z
- Suppress experimental::vlb warning for Variable Length Lookbehind
- Use eval for backward compatibility with older Perl versions
10.01 2025-12-31T01:30:39Z
- Add escape sequence support (\t, \n, \r, \f) to --blockend option
- Unify escape sequence handling with shared expand_escape() function
10.00 2025-12-11T03:23:27Z
- Bump major version to 10.00 to indicate minimum Perl version requirement
change from 5.14 to 5.24
- Add --block-number (-b) option to show block numbers
- Add --blockstyle support to --separate option
- Allow "\f" in --format string
- Improve DEFINE pattern support for -f option
Another form of colormap option to specify the color for fields:
FILE File name
LINE Line number
TEXT Unmatched normal text
BLOCKEND Block end mark
PROGRESS Progress status with -dnf option
The `BLOCKEND` mark is colored with `E` effect provided by
[Getopt::EX](https://metacpan.org/pod/Getopt%3A%3AEX) module, which allows to fill up the line with background
color. This effect uses irregular escape
sequence, and you may need to define `LESSANSIENDCHARS` environment
as "mK" to see the result with [less](https://metacpan.org/pod/less) command.
- **--colormap**=`&func`
- **--colormap**=`sub{...}`
You can also set the name of perl subroutine name or definition to be
called handling matched words. Target word is passed as variable
`$_`, and the return value of the subroutine will be displayed.
disabled. See [https://no-color.org/](https://no-color.org/).
Before starting execution, **greple** reads the file named `.greplerc`
on user's home directory. Following directives can be used.
- **option** _name_ string
Argument _name_ of **option** directive is user defined option name.
The rest are processed by `shellwords` routine defined in
Text::ParseWords module. Be sure that this module sometimes requires
escape backslashes.
Any kind of string can be used for option name but it is not combined
with other options.
option --fromcode --outside='(?s)\/\*.*?\*\/'
option --fromcomment --inside='(?s)\/\*.*?\*\/'
If the option named **default** is defined, it will be used as a
default option.
This is similar to string macro defined by following **define**
command. But macro expansion is done by simple string replacement, so
you have to use **expand** to define option composed by multiple
arguments.
- **define** _name_ string
Define macro. This is similar to **option**, but argument is not
processed by _shellwords_ and treated just a simple text, so
meta-characters can be included without escape. Macro expansion is
done for option definition and other macro definition. Macro is not
evaluated in command line option. Use option directive if you want to
use in command line,
define (#kana) \p{InKatakana}
option --kanalist --nocolor -o --join --re '(#kana)+(\n(#kana)+)*'
help --kanalist List up Katakana string
- **help** _name_
script/greple view on Meta::CPAN
}
my $need_color = (($opt_color eq 'always')
or (($opt_color eq 'auto') and (!$opt_o and -t STDOUT)));
if (!$need_color) {
$Getopt::EX::Colormap::NO_COLOR = 1;
}
my %_esc = ( t => "\t", n => "\n", r => "\r", f => "\f" );
sub expand_escape {
$_[0] =~ s{\\(.)}{$_esc{$1} // $1}egr;
}
$_ = expand_escape($_) for values %opt_format;
my $blockend = "--";
if (defined $opt_blockend) {
$blockend = expand_escape($opt_blockend);
}
my $_file = sub { $color_handler->color('FILE' , sprintf($opt_format{FILE}, $_[0])) };
my $_line = sub { $color_handler->color('LINE' , sprintf($opt_format{LINE}, $_[0])) };
my $_block = sub { $color_handler->color('BLOCK', sprintf($opt_format{BLOCK}, $_[0])) };
my $_text = sub { $color_handler->color('TEXT' , $_[0]) };
my $_blockend = $color_handler->color('BLOCKEND', $blockend);
my $_top = $color_handler->color('TOP' , $opt_frame_top);
my $_middle = $color_handler->color('MIDDLE' , $opt_frame_middle);
my $_bottom = $color_handler->color('BOTTOM' , $opt_frame_bottom);
script/greple view on Meta::CPAN
Another form of colormap option to specify the color for fields:
FILE File name
LINE Line number
TEXT Unmatched normal text
BLOCKEND Block end mark
PROGRESS Progress status with -dnf option
The C<BLOCKEND> mark is colored with C<E> effect provided by
L<Getopt::EX> module, which allows to fill up the line with background
color. This effect uses irregular escape
sequence, and you may need to define C<LESSANSIENDCHARS> environment
as "mK" to see the result with L<less> command.
=item B<--colormap>=C<&func>
=item B<--colormap>=C<sub{...}>
You can also set the name of perl subroutine name or definition to be
called handling matched words. Target word is passed as variable
C<$_>, and the return value of the subroutine will be displayed.
script/greple view on Meta::CPAN
Before starting execution, B<greple> reads the file named F<.greplerc>
on user's home directory. Following directives can be used.
=over 7
=item B<option> I<name> string
Argument I<name> of B<option> directive is user defined option name.
The rest are processed by C<shellwords> routine defined in
Text::ParseWords module. Be sure that this module sometimes requires
escape backslashes.
Any kind of string can be used for option name but it is not combined
with other options.
option --fromcode --outside='(?s)\/\*.*?\*\/'
option --fromcomment --inside='(?s)\/\*.*?\*\/'
If the option named B<default> is defined, it will be used as a
default option.
script/greple view on Meta::CPAN
This is similar to string macro defined by following B<define>
command. But macro expansion is done by simple string replacement, so
you have to use B<expand> to define option composed by multiple
arguments.
=item B<define> I<name> string
Define macro. This is similar to B<option>, but argument is not
processed by I<shellwords> and treated just a simple text, so
meta-characters can be included without escape. Macro expansion is
done for option definition and other macro definition. Macro is not
evaluated in command line option. Use option directive if you want to
use in command line,
define (#kana) \p{InKatakana}
option --kanalist --nocolor -o --join --re '(#kana)+(\n(#kana)+)*'
help --kanalist List up Katakana string
=item B<help> I<name>
( run in 3.333 seconds using v1.01-cache-2.11-cpan-39bf76dae61 )