NAME

Geo::Parse::PolishFormat - Perl extension for parsing maps in polish text format (*.mp).

SYNOPSIS

            

              
              
use Geo::Parse::PolishFormat;
use Data::Dumper;              # not required, just for demo
my $p = Geo::Parse::PolishFormat -> new (); 
$p -> parse ('my_map.mp', sub {warn Dumper ($_[0])});
            
          

### Source file (my_map.mp):

            

              
              
[POLYLINE] 
Type=0x6 
Label=Some Street 
CityIdx=1 
RoadID=11111 
RouteParam=3,0,0,0,0,0,0,0,0,0,0,0 
Data0=(33.89400,33.40310),(33.89455,33.41477),(33.89458,33.41576) 
Nod1=0,1604,0 
Nod2=2,1673,0 
[END]
            
          

### Result:

$VAR1 = {

            

              
              
name => 'POLYLINE', 
lines => [ 
        'Type=0x6', 
        'Label=Some Street', 
        'CityIdx=1', 
        'RoadID=118291', 
        'RouteParam=3,0,0,0,0,0,0,0,0,0,0,0', 
        'Data0=(33.89400,33.40310),(33.89455,33.41477),(33.89458,33.41576)', 
        'Nod1=0,1604,0', 
        'Nod2=2,1673,0', 
], 
attributes => { 
        Type => '0x6', 
        Label => 'Some Street', 
        CityIdx => '1', 
        RoadID => '118291', 
        RouteParam => [3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], 
        Data0 => [[33.89400, 33.40310], [33.89455, 33.41477], [33.89458,33.41576]]', 
        Nod1 => [0, 1604, 0], 
        Nod2 => [2, 1673, 0], 
}, 
collections => { 
        Data => [$VAR1 -> {Data0}], 
        Nod => [$VAR1 -> {Nod1}, $VAR1 -> {Nod2}], 
},
            
          

}

SEE ALSO

http://www.cgpsmapper.com/.

AUTHOR

Dmitry Ovsyanko

COPYRIGHT AND LICENSE

Copyright (C) 2007 by Dmitry Ovsyanko

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.8 or, at your option, any later version of Perl 5 you may have available.