Öffnen von Dateien und Überprüfung Inhalte in Perl - Das UNIX-und Linux-Foren

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

Hi All,

Ich brauche einige Experten helfen bei der Durchführung der folgenden in Perl.
Ich habe einen Code unter, aber es nicht; t zu funktionieren scheint. Kann einem Sachverständigen geben Sie mir ein paar Ratschläge?

Im Folgenden sind die Anforderungen
1) Öffnen Sie zahlreiche Dateien, die ein Array @ FILES. Beachten Sie, dass die Dateien sind immer Namen mit dem Begriff "Art". Beispiele für diese Dateinamen sind "false1_sorts", "false_sorts", "true1_sorts", "true_sorts" usw.

2) Suche nach Inhalten "32N6524" in die geöffnete Datei. , Wenn der Inhalt vorhanden ist, fügen Sie die Datei in einen anderen Array, das @ arr_x. Hier werden die Dateien, die diese Inhalte vorhanden ist 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 ";

Erwartete Leistung:

false1_sorts false_sorts true1_sorts true_sorts
true1_sorts true_sorts

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

Um glob der Platzhalter verwenden <* Art> anstelle von * Art was etwas ganz anderes als Sie (sollten Sie gesehen haben, dass es wurde gedruckt als * main:: Arten, die eine globbed Variablennamen, nicht globbed Dateinamen.

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

Hi-Ära,

Ich habe auf <* Art> aber noch in diesem (print "@ arr_x"

Erklärung doesn t get ausgedruckt.
Können Sie mir helfen?

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

Hi, ich glaube, ich weiß, wo ist der Fehler.
Ich vermisse die duoble Zitat in der öffnen Aussage.

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

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

Hi-Ära,

Was wäre die Syntax, wenn ich brauche, um einen Begriff, der aus mehreren Worten zum Beispiel der Begriff "MEINE PERSÖNLICHE FIILE".
Ich habe versucht, den Code unten, aber es didn t Arbeit.
Können Sie mir helfen?

Code:

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

Inhalt für die Datei "true_sorts" ist unten.
Sieht aus wie der Begriff, wenn ich will, um sich nicht in der ersten Zeile der Inhalt, dann gewonnen, t werden alle mit.

Code:

32N6524

MY PERSONAL FILE

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

Sie haben die schließende Klammer an der falschen Stelle, schließen Sie die Datei nach dem Lesen einer Zeile von ihm.

Es hilft, um zu sehen, die Logik, wenn Sie konsequent Gedankenstrich eine Ebene tiefer nach einer Öffnung Klammer, Abnahme und Einzug in die schließende Klammer.

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 ";

Ich habe die dauern wie eine kleine Optimierung, aber ansonsten, das nur die Klammer an der richtigen Stelle, und die einfachen Anführungszeichen geändert Anführungszeichen, und korrigiert Einzug.

Der chomp erscheint nicht notwendig, aber vielleicht möchten Sie, um das Skript zu dem Punkt, wo Sie wollen Linien zu chomped.

Die Abstimmung über die Bestellung mit Leerzeichen in ihm ist kein Problem.

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

Hi-Ära,

Thks eine Menge für die Beratung!
Jetzt weiß ich, wo ich mich irre.

Mehr UNIX-und Linux-Forum Themen Vielleicht finden Sie hilfreiche
Faden	Thread Starter	Forum	Antworten	Last Post
Perl: Das Öffnen einer FileHandle aber nicht immer wieder etwas von ihm	Smiling Dragon	Shell Programmierung und Scripting	8	08-16-2008 02:40 AM
ls-Befehl zu drucken fifo von Inhalten (oder Perl)	jerardfjay	Shell Programmierung und Scripting	1	04-06-2006 02:01 PM
Öffnen von Dateien	saarshad001	UNIX for Dummies Questions & Answers	3	11-28-2003 12:42 PM
Öffnen von Dateien	AJA	UNIX for Dummies Questions & Answers	4	11-10-2003 11:25 AM
Eröffnung Perl	perleo	Shell Programmierung und Scripting	2	08-26-2002 09:41 AM

Thread Tools	Suche diesen Thread
Zeige Druckversion E-Mail Diese Seite	Suche diesen Thread: Erweiterte Suche
Anzeige-Modi	Rate this thread
Wechseln Sie in den Linear-Modus Hybrid-Modus Switch to Threaded Mode	Rate this thread: