행을 구문 분석하고 키에 해당하는 값을 선택하면

Question

다음과 같이 특정 방식으로 (트리 형태로) 정렬 된 데이터 집합이 있습니다. 기본적으로 키 = 값 쌍입니다. 마지막에 몇 가지 추가 값이 있습니다.이 값은 분기가 몇 명의 자식과 일부 정크 값을 갖고 있는지 알려줍니다.

11=1 123 2 
11=1>1=45 234 1 
11=1>1=45>9=16 345 1 
11=1>1=45>9=16>2=34 222 1 
11=1>1=45>9=16>2=34>7=0 2234 1 
11=1>1=45>9=16>2=34>7=0>8=0 22345 1 
11=1>1=45>9=16>2=34>7=0>8=0>0=138 22234 1 
11=1>1=45>9=16>2=34>7=0>8=0>0=138>5=0 5566 1 
11=1>1=45>9=16>2=34>7=0>8=0>0=138>5=0>4=0 664 1 
11=1>1=45>9=16>2=34>7=0>8=0>0=138>5=0>4=0>6=10 443 1 
11=1>1=45>9=16>2=34>7=0>8=0>0=138>5=0>4=0>6=10>3=11 445 0 
11=1>1=47 4453 1 
11=1>1=47>9=16 887 1 
11=1>1=47>9=16>2=34 67 1 
11=1>1=47>9=16>2=340>7=0 98 1 
11=1>1=47>9=16>2=34>7=0>8=0 654 1 
11=1>1=47>9=16>2=34>7=0>8=0>0=138 5789 1 
11=1>1=47>9=16>2=34>7=0>8=0>0=138>5=0 9870 1 
11=1>1=47>9=16>2=34>7=0>8=0>0=138>5=0>4=0 3216 1 
11=1>1=47>9=16>2=34>7=0>8=0>0=138>5=0>4=0>6=10>3=11 66678 0 

내 문제는 위의 데이터에서 적절한 값을 만족시키는 적절한 분기를 얻는 것입니다.이 값은 입력으로 제공됩니다. 가정 , 상기 데이터 스택의 검색 내 입력 값은 : 키 -> 값의 상기 소정의리스트, 함수 반환해야위한

5=0 
4=0 
6=10 
3=11 
11=1 
1=45 
0=138 
9=16 
2=34 
7=0 
8=0 

11 = 1> 1 = 45> (9) = 16> 2 = 34> 7 = 0> 8 = 0> 0 = 138> 5 = 0> 4 = 0> 6 = 10> 3 = 11. 마찬가지로, 키들의 다른 세트가 부여되는 또 다른 입력 파일에 대한 :

5=0 
4=0 
6=10 
3=11 
11=1 
1=45 
9=16 
2=34 
7=0 
8=0 

돌려 함수 (11) = 1> 1 = 45> (9) = 16> 2 = 34> (7) = 0> 8 = 0 1 경기를 승리로 이끌어 냈습니다. 마지막 줄이 아니야. 그것도 내 입력 키에 주어진 모든 값과 일치하지만, 정확한 일치 만 원합니다.

또한 주어진 배열에서 얼마나 많은 노드를 선택했는지 알고 싶습니다. (>로 구분).

이러한 종류의 시나리오를 구현하는 가장 좋은 방법은 무엇입니까?

Answer 1

use strict; 
use warnings; 

my $tree; 
while (<DATA>) { 
    my @data = split /\>/, (/^([^ ]*)/)[0]; 
    my $ptr = \$tree; 
    for my $key (@data) { 
     $ptr = \$$ptr->{$key}; 
    } 
} 

my @inputs = (
    [qw(5=0 4=0 6=10 3=11 11=1 1=45 0=138 9=16 2=34 7=0 8=0)], 
    [qw(5=0 4=0 6=10 3=11 11=1 1=45 9=16 2=34 7=0 8=0)] 
); 

sub getKey { 
    my ($lu, $node) = @_; 
    exists $lu->{$_} and return $_ for keys %$node; 
} 

for my $input (@inputs) { 
    my %lu; 
    @lu{@$input} =(); 
    my @result; 
    my $node = $tree; 
    while (%lu) { 
     my $key = getKey(\%lu, $node); 
     if ($key) { 
      $node = $node->{$key}; 
      push @result, $key; 
      delete $lu{$key}; 
     } 
     else { 
      last; 
     } 
    } 
    print join('>', @result), "\n"; 
} 

__DATA__ 
11=1 123 2 
11=1>1=45 234 1 
11=1>1=45>9=16 345 1 
11=1>1=45>9=16>2=34 222 1 
11=1>1=45>9=16>2=34>7=0 2234 1 
11=1>1=45>9=16>2=34>7=0>8=0 22345 1 
11=1>1=45>9=16>2=34>7=0>8=0>0=138 22234 1 
11=1>1=45>9=16>2=34>7=0>8=0>0=138>5=0 5566 1 
11=1>1=45>9=16>2=34>7=0>8=0>0=138>5=0>4=0 664 1 
11=1>1=45>9=16>2=34>7=0>8=0>0=138>5=0>4=0>6=10 443 1 
11=1>1=45>9=16>2=34>7=0>8=0>0=138>5=0>4=0>6=10>3=11 445 0 
11=1>1=47 4453 1 
11=1>1=47>9=16 887 1 
11=1>1=47>9=16>2=34 67 1 
11=1>1=47>9=16>2=340>7=0 98 1 
11=1>1=47>9=16>2=34>7=0>8=0 654 1 
11=1>1=47>9=16>2=34>7=0>8=0>0=138 5789 1 
11=1>1=47>9=16>2=34>7=0>8=0>0=138>5=0 9870 1 
11=1>1=47>9=16>2=34>7=0>8=0>0=138>5=0>4=0 3216 1 
11=1>1=47>9=16>2=34>7=0>8=0>0=138>5=0>4=0>6=10>3=11 66678 0