view release on metacpan or  search on metacpan

scripts/find.unused.limits.pl  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;

use File::Slurper 'read_lines';

# ----------------
# Source of max: Ged551-5.pdf.
# See also Lexer.pm.

my(%max) =
(
 address_city => 60,
 address_country => 60,
 address_email => 120,
 address_fax => 60,
 address_line => 60,
 address_line1 => 60,
 address_line2 => 60,
 address_line3 => 60,
 address_postal_code => 10,
 address_state => 60,
 address_web_page => 120,
 adopted_by_which_parent => 4,
 age_at_event => 12,
 ancestral_file_number => 12,
 approved_system_id => 20,
 attribute_descriptor => 90,
 attribute_type => 4,
 automated_record_id => 12,
 caste_name => 90,
 cause_of_event => 90,
 certainty_assessment => 1,
 change_date => 11,
 character_set => 8,
 child_linkage_status => 15,
 copyright_gedcom_file => 90,
 copyright_source_data => 90,
 count_of_children => 3,
 count_of_marriages => 3,
 date => 35,
 date_approximated => 35,
 date_calendar => 35,
 date_calendar_escape => 15,
 date_exact => 11,
 date_fren => 35,
 date_greg => 35,
 date_hebr => 35,
 date_juln => 35,
 date_lds_ord => 35,
 date_period => 35,
 date_phrase => 35,
 date_range => 35,
 date_value => 35,
 day => 2,
 descriptive_title => 248,
 digit => 1,
 entry_recording_date => 90,
 event_attribute_type => 15,
 event_descriptor => 90,
 event_or_fact_classification => 90,
 event_type_family => 4,
 event_type_individual => 4,
 events_recorded => 90,
 file_name => 90,
 gedcom_content_description => 248,
 gedcom_form => 20,
 generations_of_ancestors => 4,
 generations_of_descendants => 4,
 language_id => 15,
 language_of_text => 15,
 language_preference => 90,
 lds_baptism_date_status => 10,
 lds_child_sealing_date_status => 10,
 lds_endowment_date_status => 10,
 lds_spouse_sealing_date_status => 10,
 multimedia_file_reference => 30,
 multimedia_format => 4,
 name_of_business => 90,
 name_of_family_file => 120,
 name_of_product => 90,
 name_of_repository => 90,
 name_of_source_data => 90,
 name_personal => 120,
 name_phonetic_variation => 120,
 name_piece => 90,
 name_piece_given => 120,
 name_piece_nickname => 30,
 name_piece_prefix => 30,
 name_piece_suffix => 30,
 name_piece_surname => 120,
 name_piece_surname_prefix => 30,
 name_romanized_variation => 120,
 name_text => 120,
 name_type => 30,
 national_id_number => 30,
 national_or_tribal_origin => 120,
 new_tag => 15,
 nobility_type_title => 120,
 null => 0,
 occupation => 90,
 ordinance_process_flag => 3,
 pedigree_linkage_type => 7,
 permanent_record_file_number => 90,