diff options
Diffstat (limited to 'share')
| -rwxr-xr-x | share/xml2json | 57 |
1 files changed, 43 insertions, 14 deletions
diff --git a/share/xml2json b/share/xml2json index c81b416..4591863 100755 --- a/share/xml2json +++ b/share/xml2json @@ -25,11 +25,12 @@ for my $station ( @{$stations} ) { my %station_by_name; for my $station ( @{$stations} ) { - $station_by_name{ $station->{name} } = $station; + push( @{ $station_by_name{ $station->{name} } }, $station ); } -my %xml_by_name; +my %xml_by_ds100; my %xml_by_eva; +my %xml_by_name; my $xml_str = read_file('stations.xml'); my $tree = XML::LibXML->load_xml( string => $xml_str ); @@ -55,8 +56,22 @@ for my $station ( $tree->findnodes('//station') ) { ds100 => $ds100, is_db => $is_db, }; - $xml_by_name{$name} = $xml_station; - $xml_by_eva{$eva} = $xml_station; + $xml_by_ds100{$ds100} = $xml_station; + $xml_by_eva{$eva} = $xml_station; + + if ( exists $xml_by_eva{$name} ) { + push( @{ $xml_by_name{$name}{extra} }, $xml_station ); + } + else { + $xml_by_name{$name} = $xml_station; + } +} + +for my $station ( $tree->findnodes('//station') ) { + my $name = $station->getAttribute('name'); + my $eva = $station->getAttribute('eva'); + my $ds100 = $station->getAttribute('ds100'); + my $is_db = $station->getAttribute('db') eq 'true'; my $found = 0; @@ -80,20 +95,34 @@ for my $station ( $tree->findnodes('//station') ) { ); } elsif ( $station_by_name{$name} - and $station_by_name{$name}{ds100} ne $ds100 - and $is_db - and $ds100 !~ m{ ^ PQ }x ) + and not any { $_->{ds100} eq $ds100 } @{ $station_by_name{$name} } + and $is_db ) { - printf( "%30s has been recoded: %8s -> %8s\n", - $name, $station_by_name{$name}{ds100}, $ds100 ); + printf( "%30s has a new DS100 alias: %8s\n", $name, $ds100 ); + my $station = { + name => $name, + ds100 => $ds100, + eva => $eva, + }; + push( @{$stations}, $station ); + $station_by_eva{$eva} = $station; + $station_by_ds100{$ds100} = $station; + push( @{ $station_by_name{$name} }, $station ); } elsif ( $station_by_name{$name} - and $station_by_name{$name}{eva} ne $eva - and $is_db - and $ds100 !~ m{ ^ PQ }x ) + and not any { $_->{eva} eq $eva } @{ $station_by_name{$name} } + and $is_db ) { - printf( "%30s has been recoded: %d -> %d\n", - $name, $station_by_name{$name}{eva}, $eva ); + printf( "%30s has a new EVA alias: %d\n", $name, $eva ); + my $station = { + name => $name, + ds100 => $ds100, + eva => $eva, + }; + push( @{$stations}, $station ); + $station_by_eva{$eva} = $station; + $station_by_ds100{$ds100} = $station; + push( @{ $station_by_name{$name} }, $station ); } if ( not $found |