从本地目录查找出缺少“movie.detail” 字符串的message.properties 文件列表

#! /usr/bin/perl -w
use File::Find;
my ($keywords,$filename,@directories_to_search) = ("movie.detail","message.properties","E:\\source\\c_server\\J2ME\\telenav60_server\\movie\\config\\device");
find({wanted => sub{
     if ($_ =~ /\b$filename\b$/i){
        open FH, $File::Find::name;
        if (grep (/$keywords/i,<FH>) == 0){
           print "Missing--------> ".$File::Find::name,"\n";}      
     }
}}, @directories_to_search);