使用PERL 编写的一个简单脚本

妞丶哥来了

使用perl编写一个脚本，用于查找目录下的所有文件，且文件内容包含一个IP：192.168.2.99的，均把文件名输出，此脚本如有徐太的，把一些过滤参数更改一些即可：
#!/usr/bin/perl -w
use strict;
use File::Find;
my $source;
my $strings;
sub wanted {
##Check to see if the filename is not a directory.###
        if ( -f $File::Find::name ) {
##### verify the filename is "database.xml"###
        if ( $File::Find::name =~/database.xml$/ ) {
        $source=$File::Find::name;
        open(PH,$source) || die "Cannot open $source:$!";
####reading every line###
        while(<;PH>;) {
        $strings=$_;
        if (m/192.168.2.99/i) {
        print "$source\n";
                }
           }
        }
     }
}
      find (\&wanted,"/usr/local/jboss-7.0.2GA/bin/conf");
写的不好，请各位大侠指点一下！

只是一个红薯

这样行么？

1. print "The files contain '192.168.2.99' are :\n",grep{/192.168.2.99/i} <PH>;

复制代码

zhlong8

中规中矩这代码可以写入教程了。

if ( -f $File::Find::name ) {
$strings=$_;

这两行有些多余，然后这一行  if (m/192.168.2.99/i) { 匹配 . 应该用 \. 后面那个 /i 有点多余