File Coverage

blib/lib/Spreadsheet/ConvertAA.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	4	6	66.6
condition			n/a
subroutine	8	8	100.0
pod	0	2	0.0
total	44	48	91.6

package Spreadsheet::ConvertAA;

use 5.006;
use strict;
use warnings;
use Carp ;

require Exporter;
use AutoLoader qw(AUTOLOAD);

our @ISA = qw(Exporter);
our %EXPORT_TAGS = ( 'all' => [ qw() ] );
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
our @EXPORT = qw( FromAA ToAA);
our $VERSION = '0.06';


#----------------------------------------------------

sub ToAA($)
{
my $c = shift ;
confess "Invalid base10 '$c'" if($c =~ /[^0-9]/) ;

return('@') if $c == 0 ;

my $cell = "";

while($c)
	{
	use integer;
	substr ($cell, 0, 0) = chr (--$c % 26 + ord "A");
	$c /= 26;
	}

return($cell) ;
}

sub FromAA ($)
{
my $cc = shift ;
confess "Invalid baseAA '$cc'" if($cc =~ /[^A-Za-z@]/) ;

my $c = 0;

while($cc =~ s/^([A-Z])//)
	{
	$c = 26 * $c + 1 + ord ($1) - ord ("A");
	}

return($c);
}

#----------------------------------------------------

1;
__END__