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]

In reply to Making sense of File::Find by wazoox

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.