Skip to content
Permalink
Branch: master
Find file Copy path
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
30 lines (21 sloc) 414 Bytes
#!/usr/bin/env perl
use strict;
use warnings;
use feature 'say';
my $query = $ARGV[0];
unless ($query) {
say "Input a query.";
exit;
}
my $result = `find . -iname "*$query*"`;
print $result;
my @result = split /\n/, $result;
say "\nTotal files: ".scalar @result;
print "OK? (y/N)\n> ";
my $answer = <STDIN>;
chomp $answer;
if ($answer eq 'y') {
for (@result) {
print `open $_`;
}
}
You can’t perform that action at this time.