Spreadsheet::ConvertAA - Perl extension for Converting Spreadsheet column name to/from decimal

Spreadsheet-ConvertAA documentation Contained in the Spreadsheet-ConvertAA distribution.

Index

Code Index:

NAME

Top

Spreadsheet::ConvertAA - Perl extension for Converting Spreadsheet column name to/from decimal

SYNOPSIS

Top

  use Spreadsheet::ConvertAA ;

  my $baseAA = ToAA(475255) ;
  my $base10 = FromAA('AAAZ') ;

DESCRIPTION

Top

This module allows you to convert from Spreadsheet column notation ('A', 'AZ', 'BC') to decimal and back.

The Spreadsheet column notation is base 26 _without_ zero. 'A' is 1 and 'AA' is 27. I named the base 'AA' because I found no better name.

Spreadsheet::ConvertAA 'confess' on invalid input.

IMPORTANT

Top

As of version 0.04, I have replaced the implementation of ToAA and FromAA with code from Spreadsheet::Read written by H.Merijn Brand. The new code is cleaner. The new ToAA is 50% faster and the new FromAA is only slightly slower.

The new code doesn't have the limitation ConvertAA had previously.

EXPORT

ToAA and FromAA

AUTHOR

Top

Khemir Nadim ibn Hamouda. <nadim@khemir.net>

  Copyright (c) 2004-2005 Nadim Ibn Hamouda el Khemir. All rights
  reserved.  This program is free software; you can redis-
  tribute it and/or modify it under the same terms as Perl
  itself.

If you find any value in this module, mail me! All hints, tips, flames and wishes are welcome at <nadim@khemir.net>.

SEE ALSO

Top

Spreadsheet::Perl. Spreadsheet::Read.

Spreadsheet-ConvertAA documentation Contained in the Spreadsheet-ConvertAA distribution. 
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__