- #!/usr/bin/perl -w
- use strict;
- print "Directory to search: ";
- my $dir = <STDIN>;chomp $dir;
- print "Patter to look for: ";
- my $pat = <STDIN>;chomp $pat;
- print $pat;
- my ($file);
- opendir(DH, $dir) || die "Cannot open $dir: $!";
- while($file = readdir DH){
- next if (-d "$dir/$file");
- if (!open (F,"$dir/$file")){
- warn "Cannot search $file: $!";
- next;
- }
- while(<F>){
- if (/$pat/){
- print "$file: $_";
- }
- }
- close F;
- }
- closedir DH;
perl 实现的自定义grep
最新推荐文章于 2018-11-15 20:00:02 发布