Select Code to Download

Main( @ARGV );
exit( 0 );
...
    my $fieldLength = measureFieldLengths( $activity );
    $fieldLength and writeOutHashrefs( $activity, $fieldLength );
}

## $allActivity_hashref     $allActivity_fieldLength_hashref
## $allActivity_href        $allActivity_fieldLength_href
...
## %activity                %activityLength
#~ activity-of-'1234-5678'
#~ activity-of-'peter'

#!/home/gnu/bin/perl --
...
    print "exiting writeOutHashref\n";
} ## end sub writeOutHashref
__END__

sub printTable {
    ...
        printRow( $table->{ $Id } );
    }
} ## end sub printTable

sub TableWrite {
    ...
        RowWrite( $table->{ $Id } );
    }
} ## end sub TableWrite

sub tableWrite {
    ...
        rowWrite( $table->{ $Id } );
    }
} ## end sub tableWrite