perl 实现的自定义grep

1. #!/usr/bin/perl -w
3. use strict;
5. print "Directory to search: ";
6. my $dir = <STDIN>;chomp $dir;
7. print "Patter to look for: ";
9. my $pat = <STDIN>;chomp $pat;
10. print $pat;
11. my ($file);
13. opendir(DH, $dir) || die "Cannot open $dir: $!";
14. while($file = readdir DH){
15.     next if (-d "$dir/$file");
16.     if (!open (F,"$dir/$file")){
17.         warn "Cannot search $file: $!";
18.         next;
19.     }
21.     while(<F>){
22.         if (/$pat/){
23.             print "$file: $_";
24.         }
25.     }
26.     close F;
27. }
28. closedir DH;