package Common::Parser::CSV::NamedColumns;

use strict;
use warnings;

use lib '/app/tools/common/lib';

sub letter_cols {
	my $data = shift;
	my @lcarray = ( 'A' ... 'Z', 'AA' ... 'ZZ', 'AAA' ... 'ZZZ' );

	my $letter_names;
	for ( my $i = 0; $i < scalar @{$data}; $i++ ) {
		$letter_names->{ $lcarray[$i] } = $data->[$i];
	}
	$letter_names;

}

sub col_letters {
	my $data = shift;
	my @lcarray = ( 'A' ... 'Z', 'AA' ... 'ZZ' );

	my $col_names;
	for ( my $i = 0; $i < scalar @{$data}; $i++ ) {
		$col_names->{ $data->[$i] } = $lcarray[$i]
	}
	$col_names;

}

1;