Command Grep

This short snippet searches the current path for commands that contain the argument (that can be a regular expression)

This is a two-minute effort that helped me find out that redhat ships with 'gcolorsel' which replaces the old 'xcolors'.

(Now cleaned and documented for your viewing pleasure)

#!/usr/bin/perl

# Lists commands on the path that contain the given regular expression
+.
#
# USAGE:
# comgrep.pl <regular expression>
my $pat=shift || "";
my %printed;
foreach my $p (split ":",$ENV{PATH}) {
   foreach (glob "$p/*") {
      next unless -X && -f;
      s|//|/|g;
      my ($path, $name)= m|(.*)\/([^/]*)|;
      print "$_\n" if $name=~m/$pat/o and !$printed{$_};
      $printed{$_}=1;
    }
}
[download]

Comment on Command Grep Download Code

Replies are listed 'Best First'.
Re: Command Grep by bwana147 (Pilgrim) on Aug 29, 2001 at 15:01 UTC
Nice! Two comments though: Since `$pat` doesn't ever change, you can use the `/o` modifier to prevent the recompilation of the regex at each loop: `$name =~ /$pat/o` Since you use pipes as pattern delimiter, the slash looses its special meaning and no longer needs be escaped: `s\|//\|/\|g;`. That's easier to read, IMHO (btw, what's the use of this?) --bwana147	[reply] [d/l] [select]
Re: Re: Command Grep by fundflow (Chaplain) on Aug 29, 2001 at 19:58 UTC
Updated, thanks.	[reply]
Re: Command Grep by trizen (Hermit) on Dec 08, 2011 at 00:55 UTC
Same thing, but in fewer characters... `my $r = shift() // ''; -X -f && substr($_,1+rindex$_,'/')=~/$r/o && print"$_\n"for(map{glob"$_/*"}split/:/,$ENV{PATH});` [download]	[reply] [d/l]