File Coverage

blib/lib/Number/Base/SpreadsheetColumn.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	2	4	50.0
condition	1	3	33.3
subroutine	6	6	100.0
pod	2	2	100.0
total	38	42	90.4

package Number::Base::SpreadsheetColumn;

use 5.010001;
use strict;
use warnings;

use Exporter qw(import);
our @EXPORT_OK = qw(
                       from_scbase
                       to_scbase
               );

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2026-02-02'; # DATE
our $DIST = 'Number-Base-SpreadsheetColumn'; # DIST
our $VERSION = '0.001'; # VERSION

sub from_scbase {
    my $str = uc shift;

    die "Please only use letters A-Z" if $str =~ /[^A-Z]/;

    my $res = 0;
    for my $char (split //, $str) {
        $res = $res * 26 + (ord($char) - ord('A') + 1);
    }
    $res-1;
}

sub to_scbase {
    my $num = shift;

    die "Currently can't handle fraction or negative number!"
        if $num < 0 || $num != int($num);
    $num = int($num);

    my $res = "";
    while ($num >= 0) {
        my $remainder = $num % 26;
        my $letter = chr($remainder + ord('A'));
        #say "D:num=<$num>, remainder=<$remainder>, letter=<$letter>";
        $res = $letter . $res;
        $num = int($num / 26) - 1;
        #say "D:num=<$num>";
    }
    $res;
}

1;

# ABSTRACT: Convert spreadsheet column name (e.g. "A", "Z", "AA") to number (e.g. 0, 25, 26) and vice versa

__END__