處理嵌套的分隔符在Perl

Question

use strict; 
use warnings; 

my %result_hash =(); 
my %final_hash =(); 
Compare_results(); 

foreach my $key (sort keys %result_hash){ 
    print "$key \n"; 
    print "$result_hash{$key} \n"; 
} 

sub Compare_results 
{ 

    while (<DATA>) 
    { 
    my($instance,$values) = split /\:/, $_; 
    $result_hash{$instance} = $values; 

    } 
} 
__DATA__ 
1:7802315095\d\d,7802315098\d\d;7802025001\d\d,7802025002\d\d,7802025003\d\ d,7802025004\d\d,7802025005\d\d,7802025006\d\d,7802025007\d\d 
2:7802315095\d\d,7802025002\d\d,7802025003\d\d,7802025004\d\d,7802025005\d\d,7802025006\d\d,7802025007\d\d 

輸出

1 
7802315095\d\d,7802315098\d\d;7802025001\d\d,7802025002\d\d,7802025003\d\d,7802025004\d\d,7802025005\d\d,7802025006\d\d,7802025007\d\d 

2 
7802315095\d\d,7802025002\d\d,7802025003\d\d,7802025004\d\d,7802025005\d\d,7802025006\d\d,7802025007\d\d 

蔭試圖獲取每個鍵的值，然後再次嘗試從結果哈希分裂逗號分隔值，如果我發現任何值我會分號想要將左值和右值存儲在單獨的哈希鍵中。

類似下面

1.#split the value of result_hash{$key} again by , and see whether any chunk is seperated by ; 
2. #every chunk without ; and value on left with ; should be stored in 
@{$final_hash{"eto"}} = ['7802315095\d\d','7802315098\d\d','7802025002\d\d','7802025003\d\d','7802025004\d\d','7802025005\d\d','7802025006\d\d','7802025007\d\d'] ; 
3.#Anything found on the right side of ; has to be stored in 
@{$final_hash{"pro"}} = ['7802025001\d\d'] ; 

有，我可以處理子程序中的一切呢？我可以讓代碼更簡單

更新：

我想在一個單杆分割字符串，但它只是挑選與分號的值，而忽略一切

foreach my $key (sort keys %result_hash){ 
# print "$key \n"; 
# print "$result_hash{$key} \n"; 
my ($o,$t) = split(/,|;/, $result_hash{$key}); 
    print "Left : $o \n"; 
    print "Left : $t \n"; 
    #push @{$final_hash{"eto"}}, $o; 
    #push @{$final_hash{"pro"}} ,$t; 
} 

}

我幫助後更新的代碼

sub Compare_results 
{ 
    open my $fh, '<', 'Data_File.txt' or die $!; 
    # split by colon and further split by , and ; if any (done in insert_array) 
    my %result_hash = map { chomp; split ':', $_ } <$fh> ; 
    foreach (sort { $a <=> $b } (keys %result_hash)) 
    { 
    ($_ < 21) 
     ? insert_array($result_hash{$_}, "west") 
     : insert_array($result_hash{$_}, "east"); 
    } 
} 


sub insert_array() 
{ 
    my ($val,$key) = @_; 
    foreach my $field (split ',', $val) 
    { 
    $field =~ s/^\s+|\s+$//g; #/turn off editor coloring 
    if ($field !~ /;/) { 
     push @{ $file_data{"pto"}{$key} }, $field ; 
    } 
    else { 
     my ($left, $right) = split ';', $field; 
     push @{$file_data{"pto"}{$key}}, $left if($left ne '') ; 
     push @{$file_data{"ero"}{$key}}, $right if($right ne '') ; 
    } 
    } 
    } 

感謝

Answer 1

更新  增加一個兩通正則表達式，在最後

---

只是進行系統地分析一步字符串一步。事實上，你需要連續的分裂和一個特定的分離規則，這使得它在一個鏡頭中難以實施。最好有一個明確的方法比一個怪物的聲明。

use warnings 'all'; 
use strict; 
use feature 'say'; 

my (%result_hash, %final_hash); 

Compare_results(); 

say "$_ => $result_hash{$_}" for sort keys %result_hash; 
say '---'; 
say "$_ => [ @{$final_hash{$_}} ]" for sort keys %final_hash; 

sub Compare_results 
{ 
    %result_hash = map { chomp; split ':', $_ } <DATA>; 

    my (@eto, @pro); 
    foreach my $val (values %result_hash) 
    { 
     foreach my $field (split ',', $val) 
     { 
      if ($field !~ /;/) { push @eto, $field } 
      else { 
       my ($left, $right) = split ';', $field; 
       push @eto, $left; 
       push @pro, $right; 
      } 
     }  
    }   
    $final_hash{eto} = \@eto; 
    $final_hash{pro} = \@pro; 
    return 1;     # but add checks above 
} 

這裏有一些低效率，沒有錯誤檢查，但方法很簡單。如果你的意見不大，請改變上述內容，逐行處理，你明確知道該怎麼做。它打印

 
1 => ... (what you have in the question) 
--- 
eto => [ 7802315095\d\d 7802315098\d\d 7802025002\d\d 7802025003\d\ d ... 
pro => [ 7802025001\d\d ] 

請注意，您的數據確實有一個寬鬆的\d\ d。

---

我們不需要建全哈希%result_hash此而只需要:後挑線的一部分。由於它是全局聲明的，所以我可以放棄它，所以你可能想要它。如果它其實是不需要對自己這簡化

sub Compare_results { 
    my (@eto, @pro); 
    while (<DATA>) { 
     my ($val) = /:(.*)/; 
     foreach my $field (split ',', $val) 
     # ... same 
    } 
    # assign to %final_hash, return from sub 
} 

感謝ikegami徵求意見。

---

只是爲了好奇的緣故，這裏是分兩次用正則表達式

sub compare_rx { 
    my @data = map { (split ':', $_)[1] } <DATA>; 
    $final_hash{eto} = [ map { /([^,;]+)/g } @data ]; 
    $final_hash{pro} = [ map { /;([^,;]+)/g } @data ]; 
    return 1; 
} 

該挑選哪些不是,或;所有字符，使用否定字符類，[^,;]。所以這是他們中的第一個，從左到右。它在全球範圍內執行此操作，/g，因此它會繼續處理該字符串，收集「剩餘」,或;的所有字段。然後它作弊了一下，挑選了;的所有[^,;]。 map用於對所有數據行執行此操作。

如果%result_hash需要建立它，而不是@data，然後用my @values = values %hash_result撤出它的值，並與進料@values地圖。

或者折線由線（再次，你可以建立%result_hash，而不是直接採取$data）

my (@eto, @pro); 
while (<DATA>) { 
    my ($data) = /:(.*)/; 
    push @eto, $data =~ /([^,;]+)/g; 
    push @pro, $data =~ /;([^,;]+)/g; 
}