Regulärer Ausdruck für die Erfassung von Werten - Perl

Question

Ich schreibe einen Parser, der den Wert aus der Textdatei erfassen wird. Abgesehen von zwei Werten kann ich alle Werte erfassen.

Kann jemand mir helfen, diese zwei Werte auch zu bekommen?

ist hier mein Code:

use warnings; 

open(my $fh, "<", "$tZPath\\Diag.txt") || print "can't open file filename : $!\n"; 

my ($aBT_Slave, $iD, $hready, $address); 

while (defined(my $line = <$fh>)) { 

    if ($line =~ /ID\:\s*(.+?\W+)/i) { 
     $iD = $1; 
     print " Id -> $iD \n"; 
    } 
    elsif ($line =~ /HREADY\:\s*(.+?\W+)/i) { 
     $hready = $1; 
     print " hready -> $hready \n"; 
    } 
    elsif ($line =~ /ADDR0\w\s*(.+?\W+)/i) { 
     $address = $1; 
     print " address -> $address \n"; 
    } 
    elsif ($line =~ /PCNOC\_(.*?\d+)/i) { 
     $aBT_Slave = "PCNOC_" . $1; 
     print " aBT_Slave -> $aBT_Slave \n"; 
    } 
} 

Log-Datei Inhalt:

ABT PCNOC_9 ID: 0x0000430c 
ABT PCNOC_9 ADDR0: 0x000000e0 
ABT PCNOC_9 ADDR1: 0x00000000 
ABT PCNOC_9 HREADY: 0xfffffffd 
ABT PCNOC_9 Slaves: 5 
Fatal Error: AHB_TIMEOUT 

Kann mir jemand bitte helfen Sie den ADDR0 Wert und PCNOC_9 aus dem Protokoll zu bekommen? Bitte lassen Sie mich wissen, wenn Sie hier eine unklare Sühne behalten haben.

Answer 1

Bitte versuchen Sie dies, es wird das Holen voll dynamisch machen.

while (defined(my $line = <$fh>)) { 
     if($line =~ /(PCNOC\_.*?\d+)\s*(\w+):\s*(.*)/i){ 
      print "$1 ==> $2 ==> $3\n"; 
     } 
} 

Answer 2

Sie können dies versuchen.

if($line =~ /ADDR1:\s*(.*)/i){ 
..... 
} 
elsif($line =~ /ADDR0:\s*(.*)/i){ 
..... 
} 

Answer 3

/ADDR0\w\s*(.+?\W+)/i 
     ^^ 

Dies nicht übereinstimmen, weil : kein Wort char ist. Fix:

/ADDR0:\s*(.*)/