Hi All,

Ho bisogno di aiuto nello svolgimento dei seguenti Perl.
Ho un codice qui sotto, ma non può essere; t sembra funzionare. Posso esperti darmi qualche consiglio?

Qui di seguito sono i requisiti
1) Aprire assegnato numerosi file in un array @ FILES. Si noti che i file sono sempre chiamato con il termine "genere". Esempi di questi nomi di file sono "false1_sorts", "false_sorts", "true1_sorts", "true_sorts" etc

2) Ricerca per contenuto "32N6524" nel file aperto. Se il contenuto esistente, aggiungere il file a un altro array che è arr_x @. Qui, i file che esistono questo contenuto è true1_sorts "," 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 ";

Per la wildcard glob, utilizzare <* tipo> invece di * tipo che fa qualcosa di completamente diverso da quello che si desidera (si dovrebbe avere visto che essa ha stampato come principale *:: che tipo è un nome di variabile globbed, non un nome di file globbed.

Era Hi,

Ho aggiunto il <* sorta> ma ancora presente (print "@ arr_x"Non dichiarazione; t ottenere stampati.
Potete aiutarmi?

#!/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 ";

Ciao, penso di sapere dove l'errore.
Mi manca la citazione doppie in aperto affermazione.

open (FH, "<$ Summary_x") O morire $!;

Era Hi,

Quale sarebbe la sintassi, se ho bisogno di corrispondere a un termine composto da più parole, ad esempio il termine "LA MIA PERSONALE FIILE".
Ho provato a utilizzare il codice, ma al di sotto didn; t lavoro.
Potete aiutarmi?

if ( /MY PERSONAL FILE/ ) {
                       push (@arr_x, $summary_x)
                };

32N6524

MY PERSONAL FILE

Hai la chiusura ferma nel posto sbagliato, si sta chiudendo il file dopo aver letto una riga da esso.

Essa aiuta a vedere la logica se si trattino costantemente un livello più profondo dopo una parentesi di apertura, e diminuire il rientro presso la parentesi di chiusura.

#!/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);
		       last;
                }
	}
	close FH;
};


print "@arr_x ";

Era Hi,

Thks molto per il consiglio!
Ora so dove mi trovo sbagliato.