perl hash for循环来获取数字

Question

我喜欢哈希

 key                                  value
  1                                  ababababab
 11                                  cdcdcdcdcd
 21                                  efefefefef
 31                                  fgfgfgfgfg
 41                                  ererererer

现在我有一个数组[0] = 5数组[1] = 22如何从5-22得到字符串

 abababababcdcdcdcdcdef

我计划使用foreach比较5和22的键,但我不知道如何解决它.

Answer 1

my %hash = qw(
      1                                  ababababab
     11                                  cdcdcdcdcd
     21                                  efefefefef
     31                                  fgfgfgfgfg
     41                                  ererererer
);
my @array = (5,22);

my $str = join "", map $hash{$_}, sort {$a <=> $b} keys %hash;

print
my $result = substr($str, $array[0]-1, $array[1]-$array[0]+1);