Extrahieren von Zahlen aus einer Textdatei mit Perl

Question

ich eine Textdatei haben, die Daten des Formulars hat ..

***** yz = 1,4333 ******

result = 3.58e-01

---

******* ayf = 25.00 **** yz = 1,34
result = 3.24e-01

---

Ich möchte die Werte neben Ergebnis extrahieren & es in ein Array schieben.

Answer 1

Gibt es mehr Code, den Sie im Beispiel nicht angegeben haben? Wie Ausgabe des Ergebnisarrays? Ansonsten gibt es einige Dinge zu beachten:

• in regex führenden Raum: Dies wird nicht Ihr Beispiel passen, da result dort am Anfang der Zeile beginnt. Im Allgemeinen, wenn Sie mit möglicherweise auftretenden Räumen flexibler sein möchten, fügen Sie \s* an den entsprechenden Stellen ein.
• wissenschaftliche Nummer Übereinstimmung: Wenn Sie andere Zahlen als wissenschaftliche Notation mit negativen Exponenten erwarten, müssen Sie Ihre Regex so übernehmen. Es gibt viele Beispiele da draußen.

Für Ihren erweiterten Code:

• benutzen Sie bitte use strict; und use warnings; in jedem Skript
• verwenden, um den 3-Argument-Modus von open und möglicherweise lexikalischen Datei-Handler (my $fh statt FH). Der 3-Argument-Modus stellt sicher, dass Sie nicht vergessen, unter anderem den tatsächlichen Modus (Lesen/Schreiben/etc.) Anzugeben, unter dem die Datei geöffnet werden soll.
• close(FH) Ihre Datei-Handler, bevor sie auf anderen Dateien

nicht schließen IN2 ein Problem zu sein in Ihrem Code scheint, zum Beispiel unter Verwendung.

Answer 2

Dies könnte funktionieren:

open my $fh, '<', $filename or die; 
my @array; 
/result\s*=\s*(\S+)/i and push @array, 0+$1 while <$fh>; # 0+$1 or just $1 
close $fh;