Hi friends, I can't get my head around this. Here is a script that's supposed to fill a hash from a file ( formatted like "someKey" => "someValue" ) and search for each key through a code directory, to determine which keys are obsolete and should be removed from the file.

But the script doesn't work. Basically it behaves exactly like if it went through a few files at a time, then exits; then when launched again it will parse the next following files. Maybe it's beacause it's late, maybe I really don't understand File::Find, anyway I don't understand what's happening.

#!/usr/bin/perl

use strict;
use warnings;

use File::Find;
use Data::Dumper;

use 5.010;
my %master;

###################
sub showhelp {
    print qq(
    Usage : $0 lang code_directory
    
    \n);

    exit;
}



##################
my ( $master, $mydir ) = @ARGV;

if ( not $master && $mydir ) {
    showhelp();
}

open my $masterf, '<', $master or die "can't open $master";


while (<$masterf>) {
    if (/"(\w+)"\s*=>\s*"(.+)",/) {
        $master{$1} = 0;
    }
}

close $masterf;

find( \&findFile, $mydir );

sub findFile {
    return unless -f;
    
    searchfile($_);    
    
}

sub searchfile {
    my $file=shift;
    # print "open $file\n";
    
     open my $foundfile, '<', $file or die "can't open $file";
    
    my $first=<$foundfile>;
     
      foreach my $k ( keys %master ) {
         while ( my $line=<$foundfile> ) {
             if ($line =~ m/$k/ ) {
                 $master{$k}++ ;
                # print "$k found in $file\n";
             }
         }
      }

    close $foundfile;         
}

foreach my $k ( keys %master ) {
    print "$k NOT USED\n" if $master{$k} == 0;
}
[download]