Bestanden openen en controleren van de inhoud in Perl - De Unix-en Linux Forum

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

Hi All,

Ik moet een aantal deskundige hulp bij de uitvoering van de volgende in Perl.
Ik heb een code hieronder, maar het doet, niet lijkt te werken. Kan een deskundige geeft me wat advies?

Hieronder staan de eisen
1) Open een groot aantal bestanden die aan een array @ bestanden. Merk op dat de bestanden altijd de naam met de term "soort". Voorbeelden van deze bestandsnamen zijn "false1_sorts", "false_sorts", "true1_sorts", "true_sorts" etc

2) Zoek naar de inhoud "32N6524" in het geopende bestand. Als de inhoud bestaat, voegt u het bestand naar een andere array die @ arr_x. Hier, de bestanden die deze inhoud bestaat is 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 ";

Verwachte output:

false1_sorts false_sorts true1_sorts true_sorts
true1_sorts true_sorts

Meer UNIX en Linux Forum Onderwerpen Misschien vindt u Helpful
Draad	Thread Starter	Forum	Antwoorden	Last Post
Perl: Openen van een FILEHANDLE, maar niet om iets terug uit het	Lachend Dragon	Programmeren en Shell Scripting	8	08-16-2008 02:40
ls commando om af te drukken fifo van de inhoud (of Perl)	jerardfjay	Programmeren en Shell Scripting	1	04-06-2006 02:01 PM
Bestanden openen	saarshad001	UNIX voor Dummies Questions & Answers	3	11-28-2003 12:42
Bestanden openen	AJA	UNIX voor Dummies Questions & Answers	4	11-10-2003 11:25
Opening Perl	perleo	Programmeren en Shell Scripting	2	08-26-2002 09:41

Thread Tools	Zoeken in deze Thread
Toon Printversie E-mail deze pagina	Zoeken in deze Thread: Uitgebreid zoeken
Display Modes	Beoordeel deze draad
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode	Beoordeel deze draad:


	Powered by