22 lines
533 B
Text
22 lines
533 B
Text
|
#!/usr/bin/env perl
|
||
|
|
|
||
|
|
## VERY NICE: USE `g+` IN COMBO WITH MOUSE CHORD
|
||
|
|
## -----------------------------------------------------------------------------
|
||
|
|
|
||
|
|
## To search for literal text in the current directory:
|
||
|
|
## 1. point at text with button 1 in any window
|
||
|
|
## 2. release button 1
|
||
|
|
## 3. execute `g+`, clicking button 1 while 2 is held down
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
use Cwd;
|
||
|
|
|
||
|
|
die "don't know what to grep" unless @ARGV;
|
||
|
|
|
||
|
|
my $what = join ' ', @ARGV;
|
||
|
|
my $cwd = getcwd();
|
||
|
|
my $result = `grep -nR '$what' $cwd`;
|
||
|
|
|
||
|
|
print $result;
|