http://www.perlmonks.org?node_id=1199247


in reply to Split int into segments of max int 26

Hi,

The spreadsheet modules have code to do this for you

use Data::Dump qw/ dd /; use Spreadsheet::Read qw( cr2cell ); for my $pair ( [0,0], [1,1], [12,12], [25,25], [26,26], [66,66], [666,666], [6666,6666], ) { dd( cr2cell( @$pair ) , @$pair ); } __END__ ("", 0, 0) ("A1", 1, 1) ("L12", 12, 12) ("Y25", 25, 25) ("Z26", 26, 26) ("BN66", 66, 66) ("YP666", 666, 666) ("IVJ6666", 6666, 6666)

update:https://metacpan.org/pod/Spreadsheet::Read#cr2cell