Hi All,

Jeg har brug for ekspert hjælp i forbindelse med udførelsen af følgende i Perl.
Jeg har en kode nedenfor men det ikke, t synes at arbejde. Kan nogen ekspert give mig nogle råd?

Nedenfor er kravene
1) Åbn mange filer tildelt en array @ filer. Bemærk, at filerne er altid navngives med udtrykket "slags". Eksempler på disse filnavne er "false1_sorts", "false_sorts", "true1_sorts", "true_sorts" osv.

2) Søg efter indhold "32N6524" i åbnet filen. Hvis indholdet findes, tilføje filen til en anden række, der er @ arr_x. Her er de filer, at dette indhold eksisterer er 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 ";

Til Glob det wildcard, brug <* slags> i stedet for * former som gør noget helt andet, end du ønsker (du skulle have set, at det fik trykt som * vigtigste:: former som er en globbed variabel navn, ikke en globbed filnavnet.

Hi Era

Jeg har tilføjet den <* slags> men stadig denne (print "@ arr_x"erklæring ikke, t get printes ud.
Kan du hjælpe?

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

Hej, jeg tror, jeg ved, hvor er den fejl.
Jeg savner de duoble citerer i åben erklæring.

open (FH, "<$ Summary_x") Or die $!;

Hi Era

Hvad ville være den syntaks, hvis jeg har brug for at matche et udtryk bestående af flere ord, for eksempel udtrykket "Min personlige FIILE".
Jeg forsøgte at bruge nedenstående kode, men det gjorde t arbejde.
Kan du hjælpe?

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

32N6524

MY PERSONAL FILE

Du har det afsluttende parentes i det forkerte sted, du lukker filen efter at have læst en linje fra det.

Det bidrager til at se logikken, hvis du konsekvent led en plan dybere efter en indledende parentes, og et fald fordybning på det afsluttende parentes.

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

Hi Era

Thks et parti for de råd!
Nu ved jeg, hvor jeg er forkert.