Salut tous,

J'ai besoin d'un expert dans l'exécution de la suite dans Perl.
J'ai un code ci-dessous, mais il ne t semblent travail. Puis un expert me donner quelques conseils?

Voici les exigences
1) Open de nombreux dossiers sont affectées à un tableau @ FILES. Notez que les fichiers sont toujours nommé par le terme «genre». Des exemples de ces noms de fichiers sont "false1_sorts", "false_sorts", "true1_sorts", "true_sorts" etc

2) Recherche de contenu "32N6524" dans le fichier ouvert. Si le contenu existant, ajoutez le fichier à un autre tableau qui est @ arr_x. Ici, les fichiers que ce contenu est true1_sorts exister "," true_sorts "

#!/usr/bin/perl

@FILES = ( *sorts );
print "@FILES ";
print "\n";

foreach $summary_x ( @FILES ) {
        open(FH, '< $summary_x') or die $!;
                while( <FH> ) {
                chomp;      
                if ( /32N6524/ ) {
                       push (@arr_x, $summary_x)
                };
                close FH;
};
};


print "@arr_x ";