小编Fre*_*red的帖子

有没有办法在perl中大写重音字符,

my $string = "éléphant";

print uc($string);

那它真的打印ÉLÉPHANT？

我的perl脚本用ISO-8859-1编码,$ string用xml文件打印,编码相同.

我有一个散列哈希,$ json,由post方法的perl脚本接收.用JSON解码结构后,

use JSON;
my $decode = decode_json($json);

这是Data :: Dumper的结构:

$VAR1 = {
          '11' => {
                    '_by' => 122,
                    '_bx' => 296,
                    '_ay' => 115,
                    '_ax' => 337
                  },
          '21' => {
                    '_by' => 138,
                    '_bx' => 395,
                    '_ay' => 135,
                    '_ax' => 394
                  },
          '7' => {
                   '_by' => 87,
                   '_bx' => 392,
                   '_ay' => 82,
                   '_ax' => 389
                 },
          '17' => {
                    '_by' => 132,
                    '_bx' => 392,
                    '_ay' => 129,
                    '_ax' => 385
                  },
          '2' => …

我有7个以下列方式定义的数组:

my @array1 = ();
..
my @array7 = ();

然后:

$array1[0] = "text goes here";
..
$array7[0] = "text goes here";

七个数组中的每一个都有大约25个元素,即$ array1 [0]到$ array1 [24].我需要经常在各种脚本中更改这些数组的内容.有时,因为数组的顺序是必不可少的,我需要重新排列数组索引的顺序或删除某个位置的元素.这是一个真正的痛苦,因为我需要更改所有后续数组的索引.只是为了说清楚,如果我删除array1 [12],那么我需要将$ array1 [13]更改为$ array1 [12]以及所有7个数组和所有后续索引位置(或移动array1的内容[ 13]到array1 [12]等)

所以我的问题是,是否有可能将数组的索引归因于我可以在数组位置切换而不必在之后更正每个数组索引？像这样的东西:

$array1[$_] = "text 1 goes here";
..
$array7[$_] = "other text 1 goes here";

然后:

$array1[$_] = "text 2 goes here";
..
$array7[$_] = "other text 2 goes here";

其中$ _将被7替换为7个数组中每个数组的第一个索引,而2替换为7个数组中每个数组的下一个元素...(最多24个元素).

除了使用哈希和Tie :: Hash之外,还有解决这个问题的方法吗？

编辑 确定,让我澄清一下.我正在寻找一个脚本维护解决方案,没有关于脚本输出的解决方案.我需要经常自己(手动)更改脚本,并且我不想在每次更改这些数组中的内容时手动更改所有7个数组的所有24个位置的数字.所以我的问题是,有没有办法让脚本将数字编入索引所有数组的所有位置？

使用push作为mvp建议是一个合适的解决方案.有没有其他解决方案可能涉及循环或其他东西而不是使用push 7X24次？