| 1 | #!/opt/perl/bin/perl | 1 | #!/opt/perl/bin/perl |
|---|---|---|---|
| 2 | |||
| 3 | # usage: regiontree < maps/regions | ||
| 2 | 4 | ||
| 3 | my %regions; | 5 | my %regions; |
| 4 | 6 | ||
| 5 | sub print_rec { | 7 | sub print_rec { |
| 6 | my ($reg, $pad) = @_; | 8 | my ($reg, $pad) = @_; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |