perl-data-structures相关内容

为什么打印时哈希键的顺序不同?

我想使用相同的键构建多个散列，并且在打印它们时键具有相同的顺序.因此，在下面的示例中，$hash1 和 $hash2 的键应该始终具有相同的顺序，但在创建哈希时应该不需要保持该顺序. 使用Data::Dumper；我的 $hash1 = {keyc =>2、键 1 =>1、钥匙=>3、键b =>4、};我的 $hash2 = {keyc =>2、键 1 =>1、钥匙=>3、键b =>4、};打印 ..

发布时间：2021-12-10 18:36:14 perl sorting data-structures hash perl-data-structures 其他开发

如何维护添加到 Perl 哈希的键的顺序?

如何在以下程序中使用哈希计算实际列表的出现次数后保持其顺序?例如， 是 a乙电子一个Cd一个Cd乙等等. 使用哈希，我计算了每个元素的出现次数. 我想要的是: a 3乙 212d 2 但下面的程序向我展示了其他情况. my (%count, $line, @array_1, @array_2);而 ($line = ) {$count{$line}++ if ( $li ..

发布时间：2021-12-10 18:17:49 perl data-structures hash perl-data-structures 其他开发

双箭头 (=>) 运算符如何在 Perl 中工作?

我知道 => 运算符的哈希使用，像这样 $ cat array.pl%ages = ('马丁' => 28,'莎伦' =>35,'瑞克' =>29,);print "Rikke 是 $ages{Rikke} 岁\n";$ perl array.pl里克 29 岁$ 我认为这只是初始化散列的语法，但在对 如何在 Perl 中将变量限定为 const/final ?，=> 已被这样使用 使用只读 ..

发布时间：2021-12-10 18:05:48 perl hash operators perl-data-structures 其他开发

Perl 数组与列表

我在 Perl 中有两个数据结构: 一个数组: 我的@array2 = ( "1", "2", "3");对于 $elem (@array2) {打印 $elem."\n";} 给我以下输出: 123 还有一个列表: my @array = [ "1", "2", "3"];对于 $elem (@array) {打印 $elem."\n";} 给出以下输出: 数组(0x9c90 ..

发布时间：2021-11-18 02:06:17 arrays perl perl-data-structures 其他开发

合并两个 yml 文件不处理重复项?

我正在尝试使用 Hash::Merge perl 模块合并 2 个 yml 文件.并尝试使用 YMAL 模块中的 Dump 将其转储到 yml 文件. 使用严格；使用警告；使用 Hash::Merge qw(merge);Hash::Merge::set_behavior('RETAINMENT_PRECEDENT');使用 File::Slurp qw(write_file);使用 YAML； ..

发布时间：2021-10-04 19:07:05 perl yaml perl-data-structures 其他开发

解析文本文件并在 perl 中创建复杂的树结构

我有一个如下所示的输入文本文件: DEV=T124^BRD=100^IO=HDMI^MODE=1^REG=ABC^FLD=X^VAL=200DEV=T124^BRD=100^IO=HDMI^MODE=1^REG=ABC^FLD=Y^VAL=100DEV=T124^BRD=100^IO=HDMI^MODE=2^REG=ABC^FLD=X^VAL=100DEV=T124^BRD=100^IO=HDM ..

发布时间：2021-09-09 19:39:49 perl tree perl-data-structures 其他开发

转换字符串“a.b.c"到 $hash->{a}->{b}->{c} 在 Perl

我有这样的动态嵌套哈希引用: my $hash = { 'a' =>{ 'b' =>{ 'c' =>'价值' } } }; 我想通过允许用户输入“a.b.c something"来将 c 的值设置为“something". 现在获取值可以这样完成: my $keys = 'a.b.c';我的 $v='something';我的 $h = $hash;foreach 我的 $k(spli ..

发布时间：2021-06-15 20:49:05 perl perl-data-structures 其他开发

解析 perl 数组

我不熟悉 perl，正在尝试编辑 irssi 翻译脚本.Web 请求的结果返回为: $result = {“数据" =>{“翻译" =>[{“翻译文本" =>“万圣节"}]}} 我怎样才能只获取翻译的文本部分，以便 $string = '万圣节' 谢谢. 解决方案 "Halloween" 可以通过以下方式获得: $result->{"data"}->{"translations" ..

发布时间：2021-06-15 20:29:02 perl perl-data-structures 其他开发

Perl:在复杂哈希中生成数组

为了使我的数据更易于访问，我想将我的表格数据存储在复杂的散列中.当脚本循环遍历我的数据时，我正在尝试增加一个“HoHoHoA".根据“perldsc"中的指南: push @ { $hash{$column[$i]}{$date}{$hour} }, $data[$i]; 脚本编译和运行没有问题，但不会向散列添加任何数据: print $hash{"Frequency Min"}{"09/0 ..

发布时间：2021-06-15 20:20:45 perl perl-data-structures 其他开发

Perl 合并文件

我有 3 个或多个文件需要合并，数据如下所示.. 文件 10334.456560334.456780335.67899档案 20334.897650335.123460335.56789文件 30334.123450335.456780335.98764 文件 4 中的预期输出， 0334.897650334.897650334.897650334.123450335.678990335.1 ..

发布时间：2021-06-15 20:19:08 perl perl-data-structures 其他开发

Perl:如何将数组转换为嵌套的哈希键

我需要将一个简单的键列表转换成一个嵌套的散列，如下所示: 我的 $hash = {}; 我的@array = qw(key1 key2 lastKey Value); ToNestedHash($hash, @array); 会这样做: $hash{'key1'}{'key2'}{'lastKey'} = "Value"; 解决方案 sub to_nested ..

发布时间：2021-06-15 20:07:36 perl perl-data-structures 其他开发

如何引用哈希数组的哈希值以比较值

我具有以下数据结构: my %hash = ( 'hsa_circ_0024017|chr11:93463035-93463135+|NM_033395|KIAA1731 FORWARD' => [ { 'energy' => '-4.3', 'spacer' => 'AGGCACC', 'end' ..

发布时间：2020-11-22 05:47:20 arrays perl hashmap perl-data-structures 其他开发

Perl-比较两个嵌套的哈希

这是我的情况，其中从2个JSON文件解码了2个散列. 我有2个复杂的哈希， $hash1 = {k1=> { k11 => v1, k12 => v2}, k2 => { k21 => [v1, v2, v3] }} $hash2 = {k1=> { k11 => v1, k12 => v2}, k2 => { k21 => [v3, v2, v1] }} 我想比较这两个散列是否相 ..

发布时间：2020-07-25 21:34:00 json perl hash perl-data-structures 其他开发

如何从Perl中的哈希中删除键?

如何从现有地图中删除密钥? if (exists $sampleMap{1}) { #Here I want to remove the "1" key from sampleMap } 解决方案 使用delete删除哈希键: if (exists $sampleMap{1}) { delete $sampleMap{1}; #Here I want re ..

发布时间：2020-07-25 21:27:56 perl hash perl-data-structures 其他开发

Perl中散列数组树的路径列表

我有一系列的路径 C:\A C:\B\C D:\AB 我想将它们放在哈希数组树中，以便可以在TT2模板中进行遍历. 我的意思是这样的: @dirs = [ { name => "C:", subs => [ { nam ..

发布时间：2020-07-10 22:46:21 perl perl-data-structures template-toolkit 其他开发

如何在Perl中检索整数的序数后缀(如st，nd，rd，th)

我有数字，需要添加后缀:'st'，'nd'，'rd'，'th'.因此，例如:如果数字为42，则后缀为'nd'，521为'st'，113为'th'，依此类推. 我需要在perl中执行此操作.任何指针. 解决方案 尝试一下: my $ordinal; if ($foo =~ /(? ..

发布时间：2020-05-26 18:32:13 regex perl perl-module perl-data-structures 其他开发

Perl遇到“内存不足"的情况在openvms系统中

我在openvms系统中使用的是32位的perl.(因此perl最多可以访问2gb的虚拟地址空间). 我正在打“内存不足"！在一个大的perl脚本中.我对导致此问题的变量的位置进行了归零.但是，在我对devel:size进行测试后，发现该阵列仅使用13 Mb内存，而散列使用的内存却少得多. 我的问题是关于在VMS中对该Perl脚本进行内存配置. 在VMS上是否有很好的方法来进行内 ..

发布时间：2020-05-22 20:13:23 out-of-memory perl-data-structures openvms vms 其他开发

我如何在perl中访问array的数组?

嗨，我有一个数组作为myarray.我想列出一个"1 2 3"，该列表正在连接第一个子数组.我的字符串正在打印我假定的存储位置，而不是列表.任何帮助将不胜感激. @myarray = [[1,2,3],[4,5,6],[7,8,9]]; for (my $i=0; $i ..

发布时间：2019-09-19 16:37:07 arrays perl join multidimensional-array perl-data-structures 其他开发

Perl - 如何更新（和访问）存储在散列中的数组中存储的数组？

也许我已经做得比我需要的更复杂了，但是我目前正试图存储一个数组，其中包含一个数组，其中包含一个数组，里面包含一个哈希值的Perl。 ie hash - > array - > array use strict; my％DEVICE_INFORMATION = {}; #global hash $ b $ sub someFunction（）{ my $ key ='na ..

发布时间：2018-06-01 19:33:03 arrays perl hash perl-data-structures 其他开发

如何获得与散列哈希中的散列引用密钥相关联的密钥？

为了帮助我学习Perl，我建立了以下数据结构，其中内部哈希（/ DriveA / archive等）是一个哈希引用： ＃散列的％属性散列的内容 ＃内部散列是对名为％属性的散列的散列引用 $ VAR1 = { '/ DriveA'=> { '/ DriveA / archive /'=> { 'MaxSize'=> '20GB'， 'Size'=> '19GB'， 'Free'=> '5 ..

发布时间：2018-06-01 19:18:52 perl hash perl-data-structures hash-of-hashes hashref 其他开发