Question

CODE

use warnings;
use strict;

my $mv = 41;
my $tmp =1;
while($tmp<26)
{
print  chr (hex($mv++));
print "\n";
$tmp++;
}

OUTPUT
ABCDEFGHIPQRSTUVWXY`abcde

Code generate English character set

Issue

Few characters are missing “J->O && Z “

Reason J hex value is 4a

How to increment the hex value in perl or any another way to generate the character set?

Answer 1

According to a comment you left, your end goal appears to be to produce the mapping A=1,B=2. Here’s code to achieve that:

my @symbols = 'A'..'Z';
my %map = map { $symbols[$_] => $_+1 } 0..$#symbols;

Or (less flexible):

my %map = map { $_ => ord($_)-ord('A')+1 } 'A'..'Z';