Åpne filer og sjekke innholdet i Perl

Raynon · #1 (**permalink**) 08-31-2008

Hei Alle,

Jeg trenger noen ekspert hjelp til å utføre følgende i Perl.
Jeg har en kode nedenfor, men det spiller, ikke synes å fungere. Kan noen ekspert gi meg noen råd?

Nedenfor er kravene
1) Åpne flere filer tildelt en matrise @ filer. Merk at filene er alltid navngitt med termen "fikser". Eksempler på disse filnavnene er "false1_sorts", "false_sorts", "true1_sorts", "true_sorts" osv.

2) Søk etter innhold "32N6524" i åpnet filen. Hvis innholdet eksisterer, legger filen til en annen tabell som @ arr_x. Her er filer som dette innholdet eksisterer er true1_sorts "," true_sorts "

Code:

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

Forventet utdata:

false1_sorts false_sorts true1_sorts true_sorts
true1_sorts true_sorts

æra · #2 (**permalink**) 08-31-2008

Til glob den jokertegn, bruk <* sorterer> istedenfor * sorterer som gjør noe helt annet enn du ønsker (du bør ha sett at det ble skrevet ut som * main:: sorterer som er en globbed variabelnavnet, ikke en globbed filnavnet.

Raynon · #3 (**permalink**) 09-01-2008

Hi Era,

Jeg har lagt på <* sorterer> men likevel dette (print "@ arr_x"

setningen betyr; ikke skrives ut.
Kan du hjelpe meg?

Code:

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

Raynon · #4 (**permalink**) 09-01-2008

Hei, Jeg tror jeg vet hvor er feil.
Jeg savner ut duoble Sitat i åpen uttalelse.

åpen (FH, "<$ Summary_x") Eller dø $!;

Raynon · #5 (**permalink**) 09-01-2008

Hi Era,

Hva ville være syntaksen hvis jeg trenger å matche et begrep som består av flere ord for eksempel ordet "min personlig FIILE".
Jeg prøvde å bruke under koden men det visste; ikke.
Kan du hjelpe meg?

Code:

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

Innhold etter filen "true_sorts" er nedenfor.
Ser ut som om begrepet jeg vil kampen ikke på første linje i innholdet, og der vant; ikke være noen match.

Code:

32N6524

MY PERSONAL FILE

æra · #6 (**permalink**) 09-02-2008

Du har avslutningskoden spenne på feil sted, er du lukker filen etter å ha lest en linje fra det.

Det hjelper å se logikken hvis du konsekvent indent et nivå dypere etter en innledende stramme, og redusere innrykk på den avsluttende spenne.

Code:

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

Jeg har lagt til vare som en mindre optimalisering, men ellers er dette bare har stramme flyttet til rett sted, og enkle anførselstegn endret til doble anførselstegn, og korrigert hakk.

Den, det chomp synes ikke å være nødvendig, men kanskje du vil utvide skriptet til et punkt der du vil linjene være chomped.

Samsvarende på ting med mellomrom på det er ikke et problem.

Raynon · #7 (**permalink**) 09-02-2008

Hi Era,

Thks mye for råd!
Jeg vet hvor jeg er galt.

Mer UNIX og Linux Forum Emner Du kan finne nyttig
Tråd	Tråd startet	Forum	Svar	Siste innlegg
Perl: Åpning av et filehandle men ikke får noe tilbake fra det	Smiling Dragon	Shell programmering og Skripting	8	08-16-2008 03:40
ls kommando for å skrive FIFO av innhold (eller perl)	jerardfjay	Shell programmering og Skripting	1	04-06-2006 03:01
Åpne filer	saarshad001	UNIX for Dummies Spørsmål og svar	3	11-28-2003 12:42
Åpne filer	AJA	UNIX for Dummies Spørsmål og svar	4	11-10-2003 11:25
Åpning Perl	perleo	Shell programmering og Skripting	2	08-26-2002 10:41

Thread Tools	Søk i denne tråden
Vis Printable Version Email denne siden	Søk i denne tråden: Avansert søk
Visningsmoduser	Ranger denne tråden
Switch to Linear Mode Hybridmodus Switch to gjengede Mode	Ranger denne tråden: