Perl:使用散列而不是数组
Perl是一种通用的高级编程语言，它支持多种编程范式，包括面向过程、面向对象和函数式编程。在Perl中，散列（Hash）是一种数据结构，它允许将键值对存储在一个变量中。与数组相比，散列提供了更灵活的数据组织方式。
散列的优势在于：
- 键值对的存储：散列允许将数据以键值对的形式存储，这样可以更方便地进行数据的查找和访问。
- 快速查找：散列使用哈希函数将键转换为散列值，这样可以快速定位到对应的值，提高了查找效率。
- 数据组织灵活：散列可以存储任意类型的值，包括标量、数组、甚至是其他散列，这使得数据的组织更加灵活多样。
应用场景：
- 数据存储和检索：散列适用于需要根据键快速查找对应值的场景，比如存储用户信息、配置文件等。
- 数据统计和分析：散列可以用于统计和分析数据，比如统计某个单词在文本中出现的次数。
- 缓存管理：散列可以用于缓存管理，将计算结果存储在散列中，避免重复计算。
腾讯云相关产品：
腾讯云提供了多个与Perl相关的产品和服务，包括：
- 云服务器（CVM）：提供了灵活的虚拟服务器实例，可用于部署Perl应用程序。
- 云数据库MySQL版（CDB）：提供了高可用、可扩展的MySQL数据库服务，可用于存储和管理Perl应用程序的数据。
- 云函数（SCF）：提供了无服务器的函数计算服务，可用于运行Perl函数，实现事件驱动的应用程序。
- 对象存储（COS）：提供了安全、可靠的对象存储服务，可用于存储和管理Perl应用程序的静态文件和数据。
更多关于腾讯云产品的介绍和详细信息，请访问腾讯云官方网站：https://cloud.tencent.com/
相关·内容
假设我有一个包含n个单词的文件。当我读取文件中的每个单词时，我将把它存储在散列中(在Perl中)。当我返回并在散列中查找单词时，在散列中查找字符串(单词)的时间复杂度是多少？
例如：
my %seen = ();
@arr=("one","two","three");
foreach $item (@arr){
if($seen{$item}) {//do something}
}
在这个程序中，我在哈希表中查找一个项目。在哈希表中查找字符串的时间复杂度是多少？
另外，能否详细说明一下hash是如何在Perl中实现的？(在内部，散列中发生
浏览 0提问于2010-09-23得票数 2
3回答
如何在Perl中创建一个使用目录名作为键的散列，然后存储目录中的文件数以及每个文件的名称？是否可以使用散列或数组的散列？
如果有任何建议，我将不胜感激。
浏览 2提问于2011-09-24得票数 3
回答已采纳
1回答
我正在尝试触发Perl 5.8.2及更高版本中的散列随机化特性。要做到这一点，我需要一组密钥，如果没有随机化功能，这些密钥将是病态的。我试着使用，但不起作用。而且，现在我看到它，我不应该感到惊讶。它来自1997年，从那时起我们就切换了散列函数。
有没有人知道一组病态密钥，或者如何生成它们？我想我应该去看看哈希函数并对解决方案进行反向工程，但我很懒。
浏览 3提问于2011-07-17得票数 8
回答已采纳
我只是在尝试修改Perl子例程中的参数而不使用引用的概念。我在数组中尝试过这样的方法：
sub test {
print "Trying to change ... \n";
$_[0] = "Third";
$_[1] = 100;
}
@a = ("First", 1, "Second", 2);
print "Before change : @a \n";
test(@a);
print "After change : @a \n";
输出：
Before change : F
浏览 11提问于2016-06-09得票数 3
回答已采纳
我有这样的散列散列：
$hashtest{ 1 } = {
0 => "A",
1 => "B",
2 => "C"
};
例如，如何获取散列{1 }的B的值？
$hashtest{'B'}{1}
浏览 0提问于2010-10-15得票数 0
回答已采纳
1回答
创建数组后，在访问每个元素中的散列时，我有问题，但它给出了最后一个元素。如何访问数组中的所有元素？
当我想要将散列推送到数组时，我使用{}而不是()，因为如果没有，它会给我带来错误。当我使用{}时，它是怎么看的？
@stem = ();
for ($i = 0; $i < 2; ++$i) {
push @stem, { u1 => 1, u2 => 2 , u3 => 3 };
}
@ants = ();
$count = 0;
for ($i = 0; $i < scalar(@
浏览 4提问于2016-08-05得票数 0
2回答
我试图将内部数组传递给Perl中的函数。这是我的Perl程序。
#!/usr/bin/perl
use strict;
use warnings;
my %data = (
'a' => (
x => 'Hello',
y => 'World'
),
'b' => (
x => 'Foo',
y => 'Bar'
)
);
#prototype
sub p(\%);
浏览 5提问于2017-11-15得票数 0
回答已采纳
5回答
我有这样的代码：
$coder = JSON::XS->new->utf8->pretty->allow_nonref;
%perl = $coder->decode ($json);
当我编写散列变量时，它显示为print %perl (0x9e04db0)。如何访问此哈希中的数据？
浏览 0提问于2010-03-01得票数 5
回答已采纳
2回答
我想从一个空的散列开始，然后将同类散列的散列插入到散列中。
#!/usr/bin/perl
use strict;
use warnings;
my %h = {};
$h{"1"} => {
a => -1,
b => -1,
c => [
{
d => -1,
e => -1,
},
],
};
然而，这给了我们
Useless use of hash element in void context at ./hash.pl line 8.
Useles
浏览 3提问于2011-02-22得票数 3
回答已采纳
9回答
既然数组和散列在Perl中只能包含标量，那么在访问数组或散列元素时，为什么必须使用$来告诉解释器该值是标量呢？换句话说，假设您有一个数组@myarray和一个散列%myhash，为什么需要这样做：
$x = $myarray[1];
$y = $myhash{'foo'};
而不是简单地做：
$x = myarray[1];
$y = myhash{'foo'};
为什么上面的内容是模棱两可的？
如果它不是$，那不是非法的Perl代码吗？例如，Perl中的以下所有内容不都是非法的吗？
@var[0];
@var{'key'};
%var[0];
浏览 6提问于2008-09-30得票数 12
回答已采纳
1回答
将Perl散列加载到Java中
、、、、
我有一个很大的.pm文件，它只由一个非常大的Perl散列和许多子散列组成。我必须将这个散列加载到Java程序中，对下面的数据做一些工作和更改，并将其保存回一个.pm文件中，该文件看起来应该与我开始时使用的文件类似。
到目前为止，我尝试通过正则表达式和字符串匹配将其按行转换，将其转换为XML文档，然后按元素将其解析回perl散列。
这在某种程度上是有效的，但似乎相当不可靠。有没有更可靠的方法可以在不安装perl运行时的情况下解析perl散列？
浏览 0提问于2016-12-02得票数 0
我知道如何向散列中添加新元素，但我需要对新元素进行排序，并首先打印它们。
我发现，打印出来的散列会跟随序列本身，而不是随机打印，我知道当我添加一个新的，它将直接出现在底部。有任何方法可以直接在散列的顶部添加新元素吗？
或者在添加新元素之后，它们可以先显示出来吗？(散列中的所有元素都将显示，但新元素将位于顶部)
浏览 9提问于2022-03-21得票数 0
如果我在perl中有一行
$cds_score{$score}{$id} = 1;
如果cds得分是一个散列，那么最好的python等价物是
cds_score = {}
cds_score[score] = id
从更普遍的意义上说，我很困惑为什么我经常在perl中的散列结尾看到=1。在python中，将这些列表附加起来似乎更有意义，而不是像在{NC} -> {$id} =1中那样，在python中我将编写NC.append(id)。如果您试图查找任意的成员，那么在perl中将长列表存储为散列比作为数组好吗？
浏览 5提问于2013-12-09得票数 1
回答已采纳
作为从perl 5.8迁移到perl 5.30的一部分，无法以排序的方式获得perl嵌套散列。尝试禁用5.30中的散列随机化特性(set PERL_PERTURB_KEYS=0 set PERL_HASH_SEED=0x00)，但排序仍然不适用于多级/nested哈希。
除了对perl代码中的foreach键进行排序外，还有其他方法，比如禁用任何环境变量/配置，以便以排序方式将值wrt获得到perl 5.30。也尝试使用废弃的深度:散列：：Util(嵌套哈希排序为perl5.6)，但没有使用wrt到嵌套/多层哈希。
例句:不工作：
$VAR3 = 'Mapping_1';
$V
浏览 7提问于2022-03-17得票数 0
3回答
在perl哈希中有一个数组声明如下：
my %updatevars = (datapoints => []);
稍后，我将尝试向其添加如下元素：
push($updatevars{'datapoints'}, [$updatestart+$i, $bandwidth]);
我知道这个错误：
要推送的arg 1类型必须是dirlist.pl第61行“]附近的数组(而不是散列元素)”。
浏览 3提问于2013-10-10得票数 0
回答已采纳
4回答
我只是想知道在一维数组上使用一维数组的效率(也就是只有键，没有值--我们并不关心它们)。
我想使用散列的主要原因是这样我就可以使用exists函数来查看'entry‘是否已经存在。哈希对于不复制关键字也很有用，对吧？使用数组时，我需要设置自己的涉及grep的检查，因为我认为grep会更慢。
然后将对此散列/数组进行迭代以进行某些操作。
我很乐意听到关于这方面的任何见解，并提前感谢！
浏览 2提问于2010-12-01得票数 3
回答已采纳
我像这样填充一个数据结构： push @{$AvailTrackLocsTop{$VLayerName}}, $CurrentTrackLoc; 其中，$VLayerName是m1、m2、m3等字符串，而$CurrentTrackLoc只是十进制数。如果我使用Data::Dumper在完全填充后打印散列的内容，它揭示了我所期望的内容，例如：- $VAR1 = {
'm11' => [
'0.228',
'0.316',
浏览 48提问于2019-06-07得票数 0
回答已采纳
我正在尝试解决一个问题，在这个问题中我使用 push @{ $test{$onecell2}{$onecell3}{$onecell4} }, $onecell1; 之所以使用它，是因为前3个值重复了多个值，这就是oncell1。 我不能打印散列，因为在第四层我得到了这个错误：Nòt a HASH reference 如果有人能帮上忙那就太好了。谢谢 my %test;
push @{ $test{$onecell2}{$onecell3}{$onecell4} }, $onecell1;
foreach my $name (sort keys %test) {
foreac
浏览 23提问于2019-02-11得票数 0
4回答
我还在学习Perl，所以可能有一种更有效的方法来完成这项工作。我正在尝试获取一个哈希值，将其反转，这样$values => $keys，获取新的键(旧值)，然后对这些键进行排序。
下面是有问题的代码：
foreach my $key (sort keys reverse %hash){
...}
我期望发生的是，反向%hash将返回一个散列类型，这就是关键字正在寻找的类型。但是，我得到以下错误：
参数%1的to键的类型必须是哈希(而不是反向)
我试着在反向%hash前后放上括号，但仍然得到同样的结果。
你知道为什么这个方法行不通吗？
浏览 1提问于2011-08-18得票数 3
回答已采纳
3回答
给定类似这样的内容
foreach (keys %myHash) {
... do stuff ...
}
foreach (keys %myHash) {
... do more stuff ...
}
如果散列没有改变，Perl能保证以一致的顺序迭代键吗？
浏览 3提问于2009-08-10得票数 10
回答已采纳
2回答
将哈希引用转换为数组引用
、、、、
我希望在perl中可以从散列中获取数组引用，或者将ref哈希转换为ref数组!？
例如：
%trad = ('January','Jan','February','Feb');
$ref = \%trad; # made a reference on hash
$ref2 = [%{$ref}]; # convert ref hash to ref array
用另一种方式我们可以写：
$ref2 = [%{\%trad}];
但是，这段代码是哈希上的ref数组的幻象，因为构造$ref =.创建了一个对匿名数组的引用，
浏览 0提问于2018-05-09得票数 1
回答已采纳
2回答
当Perl5.8.1问世时，它添加了。当Perl5.8.2问世时，我想，除非存在环境变量(PERL_HASH_SEED)，否则它会删除散列随机化。现在看来，我似乎被严重误认为
PERL_HASH_SEED=$SEED perl -MData::Dumper -e 'print Dumper{map{$_,1}"a".."z"}'
无论$SEED的值是多少，始终回退相同的键排序。
散列随机化是否完全消失了，是我做错了什么，还是这是一个bug？
浏览 0提问于2011-07-14得票数 8
回答已采纳
如何只打印散列的第一个键和元素？
我已经有了一个已排序的散列，但我只想打印第一个键和各自的值谢谢，
感谢最后的所有人，我将键和值推入到两个不同的@array和每个数组的print元素0中，它就可以工作了:)
浏览 0提问于2011-11-17得票数 0
我需要遍历几个词组，然后打印出每个索引1.
我从包含JSON数据的生成字符串开始。然后对字符串进行解码并将其转储，以准确地显示我正在处理的内容：
my $decoded = decode_json $string
print Dumper $string
这将产生以下结果：
$VAR1 = [
{
'hdr' => [
1,
'acknowledged',
'',
浏览 2提问于2015-09-28得票数 3
回答已采纳
以下是我正在做的事情：
我使用一个多维数组，或者更确切地说，是一个散列数组，并试图从我的perl脚本中将它传递到python脚本中。目前，我正在将其转换为json，然后将json字符串作为文本字符串传递到python脚本中作为参数。
散列数组类似于以下示例：
%HoH = (
id10001 => {
lat => "180",
long => "-180",
},
id10002 => {
lat => "180",
long => "-180",
浏览 0提问于2012-07-03得票数 1
回答已采纳
我有一个哈希表
%value
g=>10
i=>55
k=>4
n=>100
我有一个数组
@letters = ('k','i','n','g')
请告诉我如何按数组中键的顺序对我的散列进行排序。
浏览 0提问于2013-06-01得票数 4
回答已采纳
4回答
似乎Perl只能将字符串作为散列的键。(这在Perl的某个版本中有变化吗？)只能使用字符串作为关键字，这是非常有限的。如果我想要一个对象或数组作为关键字，该怎么办？在Python中，可以很容易地将数组、元组和其他可以进行比较的对象用作dict key。Perl确实能够比较像数组这样的东西是否相等，所以我不明白为什么它们不能用作映射型键。
在Perl中没有使用任何键类型的方法吗？有没有提供这个功能的模块？
浏览 1提问于2011-08-16得票数 5
4回答
通过这样做，我在Perl中声明了一个散列：
my %hash = ();
我继续向散列中添加元素。有时，没有定义$hash{$x}，这意味着它可能是null。因此，当我尝试打印它时，我什么也得不到。我希望在未定义条目$x的情况下看到0。有人能告诉我怎么做吗？如何将散列元素初始化为0？
浏览 0提问于2015-05-14得票数 2
5回答
我想用perl写一个小的"DBQuery“函数，这样我就可以有一个发送SQL语句和接收回的SQL语句和一个哈希数组，即一个记录集的单行程序。但是，我遇到了一个关于Perl语法的问题(可能还有一些奇怪的指针/引用问题)，它使我无法从从数据库获得的散列中提取信息。下面的示例代码演示了这个问题。
我可以使用以下语法从数组内的散列中获取数据"Jim“：
print $records[$index]{'firstName'}
返回"Jim“
但是，如果我先将数组中的散列记录复制到它自己的散列变量中，那么奇怪的是，我不能再访问该散列中的数据：
%row =
浏览 0提问于2008-09-09得票数 14
回答已采纳
1回答
虽然回答了关于替换'.‘这样的标点符号的问题，但它似乎不适用于单词边界。例如,
text100 <- "My # is 1234"
text1 <- gsub("\\b#\\b","hash",text100)
> text1
[1] "My # is 1234"
#不会被取代。如何解决这个问题？
注意，不应该替换多个#s。例如,
不应将'##‘替换为’散列‘或’Hash散列‘。
后面或前面的任何图形字符都不应该被替换(例如，“.#”不应该被替换)
浏览 2提问于2015-10-12得票数 1
回答已采纳
我只是想知道我是不是做错了什么，或者这是一个perl错误……我想创建一个散列值数组。我使用'push‘将值放入数组中。第一次将散列写入数组时工作正常，但当我将第二个不同的散列推入数组时，第一个数组元素似乎被我刚刚推入数组的内容覆盖了。为什么会发生这种情况？请看下面的代码：
use Data::Dumper;
my %val;
%val = (key1 => "Val1");
my @myArr;
my $cnt = push(@myArr,\%val);
print "After push (should contain 1 element):
浏览 2提问于2012-02-07得票数 3
回答已采纳
$HoA{teletubbies} = [ "tinky winky", "dipsy", "laa-laa", "po" ];
如何找到这个arrayref(s)散列中的元素数量？它应该返回4。
浏览 0提问于2009-10-27得票数 1
回答已采纳
2回答
我使用子例程来创建几个不同的散列映射。我目前正在通过引用传递hashmap，但是当多次这样做时，这会发生冲突。我应该按值传递散列还是传递散列引用？
use strict;
use warnings;
sub fromFile($){
local $/;
local our %counts =();
my $string = <$_[0]>;
open FILE, $string or die $!;
my $contents = <FILE>;
close FILE or die $!;
my $pa = q
浏览 2提问于2013-03-10得票数 6
回答已采纳
我是第一次接触perl，正在阅读用perl编写的代码。一行代码如下：
$Map{$a}->{$b} = $c{$d};
我熟悉看起来像%samplehash的散列，并以$samplehash{a}="b"的身份访问
但是关于Map到底是什么，上面这一行又说明了什么呢？
浏览 2提问于2011-12-09得票数 3
回答已采纳
1回答
我正在寻求帮助，以理解为什么json_decode返回标量而不是散列。我仍然在学习perl和一些描述或参考。那就太好了。
那么问题是:为什么json_decode要返回一个标量？(或者不是标量)是否有更好的方法来处理数据？
这是我的代码：
use strict;
use warnings;
use JSON qw(decode_json);
use LWP::UserAgent;
my $url = "http://api.bf4stats.com/api/playerInfo?plat=xbox&name=Ttylz00&output=json";
my
浏览 4提问于2013-11-17得票数 1
回答已采纳
3回答
反转保留重复值的散列
、、、、
我现有的散列是
my $volvg = {
'datavol' => 'oradatavg',
'archvol' => 'archvg',
'archvol1' => 'archvg',
'soevol' => 'soevg',
'redovol' => 'oradatavg'
};
我想用下面的方法来反转散列
$vgvol
浏览 0提问于2015-03-09得票数 0
5回答
我需要在perl中将散列转换为数组的散列
我有：
%hash = (
tinku => 15,
tina => 4,
rita => 18,
tinku => 18,
tinku => 17,
tinku => 16,
rita => 19
);
我想把它改成：
%hash = ( tinku => [ 15, 16, 17, 18 ], rita => [ 18, 19 ], tina => 4 );
浏览 0提问于2015-02-18得票数 1
我正在尝试从从文件读取的原始数据创建散列。每个hash元素的值将是一个列表列表。这些内部列表是从文件中解析出来的，需要作为关键字列表(( => 1)，(列表2)，……，(列表n))保存在散列中，以便进一步处理。
散列中预期的最终数据如下所示：
%hash = {
'key 1' => ((A, B, C), (1, 2, 3), (Q, R, F)),
'key 2' => ((X, Y, Z), (P, Q, R)),
'key 3' => ((1.0, M, N), (R, S, T), (4,
浏览 11提问于2019-08-05得票数 1
2回答
我将使用key:value存储，并希望在Perl中创建不可冲突的散列。有没有Perl模块或函数可以用来生成不可冲突的散列函数或表(可能类似于)？我已经知道了输入值的范围。
浏览 8提问于2011-10-21得票数 4
回答已采纳
Perl警告我在我的程序中使用伪哈希：
不建议使用伪散列。
如何转换以下代码，使之不使用伪哈希
foreach my $hash (@arrayOfHash) {
print keys %{$hash};
}
浏览 1提问于2009-10-18得票数 4
回答已采纳
3回答
我正在尝试访问存储在Perl数组中的散列的每个成员。我已经看过了，我需要一个更好的方法来访问它们。我的最终结果将是分割数组中的每个项(散列)，将该哈希的键存储在一个新数组中，将数组的值存储在不同的数组中。
编辑:我改变了它们获取数据的方式，以更好地反映我的代码。我不认为它重要，但它确实重要。
XML源：
<XML>
<computer>
<network>
<interface1>
<name>eht0</name>
浏览 4提问于2013-04-19得票数 0
回答已采纳
4回答
我正在尝试用perl编写一个包。我需要其中一个成员是哈希。但是，当我引用并运行程序时，我无法让它使用通常的语法。如果我有：
sub new
{
my $class = shift;
my $self = {
textfile => shift,
placeholders => ()
};
bless $self, $class;
return $self;
}
有没有办法让“占位符”成为我可以通过$self->{placeholders}访问的散列？
谢谢
浏览 0提问于2010-08-31得票数 4
我正在编写我的第一个Perl脚本，并逐行读取一个小的文本文件。字段由':‘分隔，因此我希望使用第一个字段(Name)作为每个字段的键，将每个字段拆分为一个散列数组。另外，(我想)我想要一个包含所有信息的大散列，或者仅仅是一个保存每个字段的数组，这样我就可以根据模式在一行上打印所有信息。由于%info正在哈希赋值中创建奇怪的#元素，我还没走多远。我应该让它成为一个常规数组吗?我是否应该这样做呢？基本上，行是按照这个顺序排列的。
姓名:电话:地址:日期:工资
#!/usr/bin/perl -w
use strict;
print $#ARGV;
if($#ARGV == -
浏览 3提问于2013-11-06得票数 1
回答已采纳
3回答
我在上搜索，但没有发现任何有用的东西。
尽管Perl有许多教程，但我没有发现任何教程会提到每个键都有不同值的散列？这种情况在Perl中是可能的吗？
例如，是否有一个哈希，其中包含两个键(a，b)，其中：
$myhash{"a"}=1;
$myhash{"b"}=[ 'hamnet', 'shakespeare', 'robyn', ];
上面有可能吗？
我试过这个：
#!/usr/bin/perl
use strict;
my %x;
$x{"a"}="b";
$x{"
浏览 5提问于2013-01-19得票数 2
回答已采纳
5回答
我有一个返回散列的子例程。子例程的最后几行：
print Dumper(\%fileDetails);
return %fileDetails;
在本例中，转储程序打印：
$VAR1 = {
'somthing' => 0,
'somthingelse' => 7.68016712043654,
'else' => 'burst'
}
但是当我尝试转储它时，用下面这行代码调用子例程：
print Dumper(\fileDetailsSub($files
浏览 0提问于2013-05-28得票数 6
回答已采纳
4回答
关于以下代码的两个问题：
%h1 = {
'key1' => ( 1, 2, 3 ),
'key2' => ( 4, 5, 6 )
};
%h2 = {
'key1' => [ 1, 2, 3 ],
'key2' => [ 4, 5, 6 ]
};
print $(@h1{'key2'})[1];
Q1 : h1和h2有什么区别？请不要说“一个是列表的散列，另一个是数组的散列”……相反，我想知道这在用法方面意味着什么。
Q2 :为什么pri
浏览 4提问于2011-02-16得票数 4
回答已采纳
我有一个arrayref，它的结构如下所示：
[
{
"id" => 1,
"name" => "name1"
},
{
"id" => 2,
"name" => "name2"
}
]
当我想将散列(没有散列)推到这个数组中时，结构看起来很奇怪。
my %hash = (id => 3, name => "name3");
push(@$array, %hash);
结构看起来如下：
[
{
"id" => 1,
浏览 0提问于2019-05-14得票数 0
回答已采纳
4回答
有人能告诉我我在这里做错了什么吗？我已经尝试了数组/散列类型和排序查询的每一种可能组合，而且似乎无法使其工作。
我试图通过value1对下面的散列引用进行排序：
my $test = {
'1' => { 'value1' => '0.001000', 'value2' => 'red'},
'2' => { 'value1' => '0.005000', 'value2' => 'blue&
浏览 2提问于2014-04-07得票数 3
回答已采纳
4回答
$hash = { 'Man' => 'Bill',
'Woman' => 'Mary,
'Dog' => 'Ben'
};
Perl的“匿名散列”到底做了什么？
浏览 0提问于2013-01-06得票数 18
回答已采纳
1回答
我有一个这样的JSON文件(它是整个JSON文件的一部分)：
{
id => "mgp1310",
samples => [
{
envPackage => {
data => {
diss_carb_dioxide => {
aliases => ["sediment_diss_carb_dioxide"],
definition => "concentration of dissolved c
浏览 3提问于2014-09-26得票数 0
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM活动推荐
腾讯云开发者
