Hi All,

Kell egy szakértő segítségével elvégzi az alábbi Perl.
Van egy kód alatt, de azt sem, nem úgy tűnik, hogy működik. Lehet bármely szakértő adjon nekem néhány tanácsot?

Az alábbiakban azok a követelmények
1) Open számos kijelölt fájlok egy tömb @ FILES. Megjegyzendő, hogy a fájlok mindig nevezték az "fajta". Példák az e-fájl neve az "false1_sorts", "false_sorts", "true1_sorts", "true_sorts" stb

2) Search for tartalmat "32N6524" a megnyitott fájlt. Ha tartalma van, add hozzá a fájlt egy másik tömböt amely @ arr_x. Itt a kép, hogy ez a tartalom áll 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 ";

Ahhoz, hogy a glob karaktert használjuk <* fajták> helyett * féle amely valami egészen más, mint akarsz (akkor láttam, hogy van nyomtatva, mint fő *: féle ami globbed változó, nem globbed fájlnevet.

Szia Era,

Van hozzáadva <* fajták> de még ez (print "@ arr_x"nyilatkozatban sem; t kap kinyomtatják.
Tudna segíteni?

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

Szia, azt hiszem, tudom, hol van a hiba.
Hiányzik a duoble árajánlatot a nyitott nyilatkozat.

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

Szia Era,

Mi lenne, ha a szintaxis kell egyeztetnie a kifejezés, amely több szót például a "személyes FIILE".
Próbáltam, hogy a lenti kódot, de Nem, nem működik.
Tudna segíteni?

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

32N6524

MY PERSONAL FILE

Még a záró zárójel a rossz helyen, akkor lezárná elolvasása után egy sort belőle.

Segít, hogy a logika, ha következetesen francia egy szinttel mélyebb után nyitó zárójel, és csökkenti a behúzás a záró zárójel.

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

Szia Era,

Thks sok a tanácsot!
Most már tudom, hol vagyok rossz.