#!/usr/bin/perl
# Author: Dan Jacobson https://www.jidanni.org/
# Copyright: https://www.gnu.org/licenses/gpl.html
# Created: 2023-12-11T23:17:09+0000
# Last-Updated: 2023-12-12T22:58:10+0000
#     Update #: 37

=head1 NAME

Nodeinfo - Print some statistics about nodes in BLM rings...

=head1 USAGE

 $ Nodeinfo file.json

=head1 INPUT

See PLSS_corners_4

=head2 Output

For now the program only prints the number of unique nodes found in the data, for each PLSS section.

 $ Nodeinfo d.json
 IL030430N0090E0SN210,4
 IL030430N0090E0SN280,4
 IL030430N0090E0SN310,5
 IL030430N0090E0SN320,5
 IL030430N0090E0SN360,6
 IL030430N0100E0SN310,4

Here included we see several basic sections, where the data only has four points in it.

Yes, we ignore the non-unique loop-back last node of each section (so e.g., 5 becomes 4.)

=cut

use strict;
use warnings q(all);
use PLSS_corners_4;
my %sections = PLSS_corners_4::parse();
for ( sort keys %sections ) {
    printf "%s,%d\n", $_, scalar @{ $sections{$_} };
}