如何在Perl中按键对散列哈希值进行排序？
在Perl中，您可以使用sort函数来按键对散列哈希值进行排序。以下是一个示例代码：
#!/usr/bin/perl
use strict;
use warnings;
my %hash = (
"apple" => 5,
"banana" => 3,
"orange" => 7,
"grape" => 2
);
# 对散列哈希值进行排序
my @sorted_keys = sort { $hash{$a} <=> $hash{$b} } keys %hash;
# 打印排序后的结果
foreach my $key (@sorted_keys) {
print "$key: $hash{$key}\n";
}在这个示例中，我们首先创建了一个散列哈希值，然后使用sort函数按键对其进行排序。sort函数接受一个代码块，该代码块用于比较两个键的值。在这个例子中，我们使用$hash{$a} <=> $hash{$b}来比较哈希值。最后，我们打印出排序后的结果。
这个示例中使用的是升序排序，如果您需要降序排序，可以将比较操作符<=>改为<=>的反向操作符`
相关·内容
2回答
考虑一个哈希
my_hash = {"drsn"=>["on", "tw", "th"], "mhsh"=>["tw", "th", "fo"], "achu"=>["th", "fo", "fi"]}
我可以按
Hash[my_hash.sort]
，这将导致排序散列，如
{"achu"=>["th", "fo", "fi&
浏览 4提问于2014-10-07得票数 1
回答已采纳
2回答
我最初做的实际问题是将数组的散列转换为散列的数组。如果有人对转换有任何意见，那也没问题，但我的实际问题是，为什么在编辑哈希键之后，它们的顺序会发生变化。
我完全知道这个问题，但这不是重复的。事实上，我只是按照它们出现的顺序进行了具体的修改。
我有一个数组和一个散列。
数组(@headers)包含一个键列表。@contents是一个用数组填充的Hash。如前所述，我的任务是获取一个哈希数组。所以这是我的代码，非常简单。
@headers = (params[:headers])
puts "ORIGINAL PARAMS"
puts YAML::dump(@headers)
浏览 1提问于2011-08-15得票数 2
回答已采纳
1回答
散列键是如何排序的？
、、、
直到，我认为哈希密钥在返回时是随机的。然而， on keys中的条目表明情况并非如此：
散列项以明显的随机顺序返回。实际的随机顺序特定于给定的哈希；对两个散列的相同操作可能导致每个散列的顺序不同。
还有其他与此相关的条目--最相关的是对问题的公认答案。
以下代码返回明显随机的散列键：
my %hash;
$hash{$_}++ for 1 .. 100;
say for keys %hash;
有人能帮我理解这不是随机的吗？
浏览 2提问于2015-06-02得票数 1
3回答
我有一个位置数组的散列，如下所示：
cities = {
"l10"=> [41.84828634806966,-87.61184692382812],
"l11"=> [41.86772008597142,-87.63931274414062],
"l12"=> [41.88510316124205,-87.60498046875],
"l13"=>[41.84930932360913,-87.62420654296875]
}
为了访问第一个数组中的第二个值，我尝试：
puts citi
浏览 3提问于2017-04-21得票数 0
回答已采纳
我知道如何向散列中添加新元素，但我需要对新元素进行排序，并首先打印它们。
我发现，打印出来的散列会跟随序列本身，而不是随机打印，我知道当我添加一个新的，它将直接出现在底部。有任何方法可以直接在散列的顶部添加新元素吗？
或者在添加新元素之后，它们可以先显示出来吗？(散列中的所有元素都将显示，但新元素将位于顶部)
浏览 9提问于2022-03-21得票数 0
基于activePerl 5.8的
#!C:\Perl\bin\perl.exe
use strict;
use warnings;
# declare a new hash
my %some_hash;
%some_hash = ("foo", 35, "bar", 12.4, 2.5, "hello",
"wilma", 1.72e30, "betty", "bye\n");
my @any_array;
@any_array = %some_hash;
print %som
浏览 7提问于2010-01-06得票数 5
回答已采纳
我很难理解为什么这段代码不会输出任何东西：
#!/usr/bin/perl -w
use strict;
my %allwords = (); #Create an empty hash list.
my $running_total = 0;
while (<>) {
print "In the loop 1";
chomp;
print "Got here";
my @words = split(/\W+/,$_);
}
foreach my $val (my @words) {
print "$val\n"
浏览 1提问于2014-10-07得票数 2
我有一个简单的类，填充了一个简单的hashmap，我想通过hashcode来排序值，该怎么做呢？
import java.util.HashMap;
import java.util.Map;
import java.util.Random;
public class Ch11Ex18 {
public static void main(String[] args) {
Random rand = new Random(47);
Map<Integer,Integer> m = new HashMap<
浏览 1提问于2012-01-28得票数 0
回答已采纳
假设有一个由1000个散列组成的数组，其中有像{:id => 1, :name => 'something', :created_at => '2010-08-18'}这样的对
当我使用循环打印出这1000条记录时，假设不能保证散列的键/值对的顺序，但打印出表时，它总是以相同的顺序出现。为什么是它，它可以被依靠吗？否则，对键/值对进行排序的好方法是什么呢？
(我在考虑映射名称，然后根据这些映射值对键进行排序，这样:id就在：:id to 10, and :name to 20, and :create_at to 30之前，并且在:create
浏览 4提问于2010-08-19得票数 2
回答已采纳
2回答
我有n个文件的INPUTFILES数组
INPUTFILES=( file_0 ... files_n-1 )
我需要按数组顺序对文件中的第一行进行排序。
文件如下所示：
2012.09.20 17:10
2012.11.21 00:10
2012.12.22 15:10
2012.12.23 15:10
我已经有了比较两个文件的功能：
IsSooner () {
ONEFIRST=$( head -1 "${1}" )
ONELAST=$( tail -1 "${1}" )
TWOFIRST=$( head -1 "${2}" )
TWOL
浏览 4提问于2012-06-14得票数 0
回答已采纳
2回答
我有这样一个散列(它是group_by方法的结果)：
{nil => [#<ActiveRecord id ..., ...], #<ActiveRecord ...> => [#<ActiveRecord id ..., ...], ...}
我需要对其进行排序，以便nil元素是第一个，然后是所有其他ActiveRecord对象。我该怎么做？谢谢
附注：
是的，我需要一个ActiveRecord对象作为键(不是符号或其他)
由于复杂的SQL请求，我无法在DB中执行顺序。
我只需要按键对散列进行排序。
浏览 0提问于2015-02-12得票数 0
2回答
我的结构看起来像这样(散列的散列)：
$VAR1 = {
'Lee2000a' => {
'abstract' => 'Abstract goes here',
'author' => 'Lee, Wenke and Stolfo, Salvatore J'
'title' => 'Data mining approaches for intrusion
浏览 0提问于2012-12-10得票数 2
回答已采纳
1回答
众所周知，如何在perl中迭代散列(参见，例如，)。但是，键和值的顺序是未定的，而且实际上对于perl脚本的每次运行都是不同的。
是否有一种方法可以确保相同perl脚本在相同输入数据上的每次运行都以相同的迭代顺序进行？我只关心在这个意义上的可复制性--秩序不需要被人类预测。
编辑:我用迭代的方式表达了这个问题，但可能不是哈希之上的迭代，而是不确定的哈希构建过程。我能否设置一些初始化，以一种确定性和可复制的方式构建哈希？
浏览 2提问于2015-12-22得票数 1
回答已采纳
3回答
我有这样的散列：
%hash = {
car => {
'10' => 'y',
'11' => 'y',
'12' => 'y',
'13' => 'y'
},
bus => {
'10' => 'y',
'11' => 'y',
浏览 2提问于2014-04-29得票数 0
回答已采纳
3回答
我正在尝试按值对特定的散列进行排序。我遇到了一种使用sort_by方法的方法。但是，即使我在散列上调用sort_by，它也会返回一个数组，即：
a = {}
a[0] = "c"
a[1] = "b"
a[2] = "a"
a.sort_by{|key, value| value}
# => [[2, "a"], [1, "b"], [0, "c"]]
如果我试图将结果转换成散列，我最终得到的是一个按键排序的散列，因此sort_by的整个用途就失去了。即：
a = {}
a[0] = "
浏览 0提问于2013-04-19得票数 2
回答已采纳
我的散列如下所示：
{"6"=>{":amount_paid"=>"100.00", ":date_paid"=>"4/22/2009"},
"0"=>{":amount_paid"=>"100.00", ":date_paid"=>"2/27/2008"},
"1"=>{":amount_paid"=>"80.00", ":da
浏览 0提问于2011-02-02得票数 0
回答已采纳
我希望散列一个无序的容器，如unordered_map和unordered_set。对于有序类型，就像向量一样，boost::hash_range(v.begin(). v.end())工作得很好，但它也依赖于顺序。
#include <boost/functional/hash.hpp>
#include <functional>
namespace std {
template<>
struct hash<std::vector<int>> {
size_t operator ()(const st
浏览 5提问于2020-12-21得票数 1
我正在尝试显示json散列中的键
执行后，我得到了所有的钥匙显示，但以不同的顺序。我被困在那点上了。
有可能保存钥匙顺序吗？
你的帮助将不胜感激。
谢谢。
浏览 4提问于2016-07-20得票数 0
回答已采纳
它基本上是一个二叉树，它首先根据散列进行搜索，以确定它是left还是right
if(hash > rec.hash){
off = rec.left;
entoff = rec.off + (sizeof(uint8_t) + sizeof(uint8_t));
} else if(hash < rec.hash){
off = rec.right;
entoff = rec.off + (sizeof(uint8_t) + sizeof(uint8_t)) +
(hdb->ba64 ? sizeof(uint64_t) : sizeof(uint3
浏览 6提问于2011-10-18得票数 0
回答已采纳
2回答
我很难理解perl中哈希的引用和取消引用是如何工作的。
我有三个级别的散列定义如下：
%languages = (
'en', (
'it', ( 'pattern1', '...', 'pattern2', '...' )
'de', ( 'pattern1', '...', 'pattern2', '
浏览 3提问于2013-08-30得票数 1
回答已采纳
如何只打印散列的第一个键和元素？
我已经有了一个已排序的散列，但我只想打印第一个键和各自的值谢谢，
感谢最后的所有人，我将键和值推入到两个不同的@array和每个数组的print元素0中，它就可以工作了:)
浏览 0提问于2011-11-17得票数 0
我用下面的命令在perl中创建了一个散列：
%columns = ("ID“，10，”时间“，25，”集群“，25，”类型“，10，”主机名“，30，”服务“，25，”评论“，50)；
我不希望以任何方式修改排序顺序。但是，Perl自己为我对它们进行了排序。
$VAR1 = 'ID';
$VAR2 = 10;
$VAR3 = 'Hostname';
$VAR4 = 30;
$VAR5 = 'Type';
$VAR6 = 10;
$VAR7 = 'Time';
$VAR8 = 25;
$VAR9 = 'Comment
浏览 2提问于2011-03-10得票数 1
5回答
根据我目前对Perl中散列的理解，我希望这段代码输出"hello world“。相反，它不打印任何内容。
%a=();
%b=();
$b{str} = "hello";
$a{1}=%b;
$b=();
$b{str} = "world";
$a{2}=%b;
print "$a{1}{str} $a{2}{str}";
我假设一个散列就像一个数组，那么为什么我不能让一个散列包含另一个散列呢？
浏览 4提问于2010-05-26得票数 8
回答已采纳
我正在尝试将一个哈希的所有值递增一个给定的值，并返回该哈希。我期待：
add_to_value({"a" => 1, "c" => 2,"b"=> 3}, 1)
# => {"a" => 2, "c" => 3,"b"=> 4}
我在想：
def add_to_value(hash, x)
hash.each {|key,value| value + x}
end
这将返回：
{"a"=>1, "b"=>3,
浏览 2提问于2014-08-06得票数 2
回答已采纳
我不熟悉perl，但试图解释perl代码。
下面的代码块是长代码的一部分。
my @blacklist;
open my $fh, '<', '/var/cache/AllStatus.json';
close($fh);
my @json = decode_json(<$fh>);
push @blacklist, 1212, 2341, 3121, 5462;
my %outputs;
$outputs{$_} = [] for @blacklist;
foreach (sort { $a->{host_posting} cm
浏览 6提问于2022-08-16得票数 -1
回答已采纳
4回答
我想在C中实现一种散列技术，其中字符串的所有排列都具有相同的散列键。
例如，abc和cab应该有相同的密钥。
我已经考虑添加ascii值&然后检查frequency of characters重要，否则abc和aad将具有相同的键，这是我们不想要的。
但是，它似乎并不是很有效。
有没有更好的散列函数可以很好地解决冲突&也不会产生稀疏散列表？
Java for strings内部使用了哪种散列技术，它不仅可以最小化冲突，而且insertion ,deletion, search的操作也足够快？
浏览 1提问于2012-06-24得票数 0
回答已采纳
2回答
我有一个List (myList)，它的表名是按序列排序的。MyObject有两个属性表(字符串)和序列(int)
List<MyObject>
示例：
List<MyObject>[0] = MyObject.Sequence = 0, MyObject.Table = "Cat"
List<MyObject>[1] = MyObject.Sequence = 1, MyObject.Table = "Dog"
List<MyObject>[2] = MyObject.Sequence = 2, MyObje
浏览 4提问于2013-11-09得票数 2
2回答
散列散列的未知散列
、、、
我可以使用以下perl代码从数据库中获取数据：
my %hash = $vars->getVarHash; #load data into a hash
print Dumper(\%hash);
Dumper的输出如下所示：
$VAR1 = {
'HASH(0x55948e0b06b0)' => undef
};
现在我知道这个散列指向变量的散列，每个变量指向每个变量的选项列表(我猜是“散列”)，如下所示：
HASH(0x55948e0b06b0) --> Variable_a --> Option_a_1, O
浏览 0提问于2018-10-04得票数 2
回答已采纳
为什么通过多次执行这个程序，合并散列的输出会发生变化？
use strict;
use warnings;
my %data1=(a=>'1',b=>'2',c=>'3');
my %data2=(d=>'4',e=>'5',f=>'6');
my %data3=(%data1,%data2);
while(my($key,$value)=each %data3)
{
print "$key:$value\n";
}
我已经验证了堆栈溢
浏览 3提问于2015-11-02得票数 3
如我们所知，perl将其“散列”类型实现为具有计算索引的表，其中这些索引是截断散列。
正如我们所知道的，散列函数可以(并且在概率上)发生碰撞，给两个或更多不同的输入提供相同的哈希。
然后：当发现一个键生成与另一个键相同的哈希时，perl解释器如何处理？它能处理吗？
注意事项：这不是关于散列算法，而是关于哈希表实现中的冲突解析。
浏览 1提问于2018-06-12得票数 1
回答已采纳
我希望从如下的值列表中生成一个散列：
54 2040 37 19
生成与
2040 45 19 54 37
或
狗猫屋车
生成与以下相同的散列：
家猫狗车
基本上，哪里的值才是最重要的，而不是顺序。
浏览 1提问于2013-10-13得票数 1
回答已采纳
3回答
我有以下代码，其中我有一个结构($node)，它是一个按声明计算的标量，但在用法上似乎是一个散列：
sub LoadData()
{
#not significant code here
my $node = {
BaseName => "deviceA",
SysDescr => "Example device",
SysObjectId => "SysObjectIdTest",
浏览 5提问于2015-04-07得票数 3
回答已采纳
我正在重复地从配置文件加载一系列散列(用JSON编写)，然后确保它们都没有更改。
所以，如果配置文件是这样的：
"sources" : [
{
"source_name": "A",
"interval" : 6,
"params" : {
"what" : "testA"
}
},
{
"source_name": "B",
浏览 7提问于2015-03-20得票数 0
我只是在尝试修改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
回答已采纳
基本上，我想在column2中值相同的行中应用if条件。例如，前三行在column2 (Disease1 )中具有相同的值。现在，对于这三行，我想应用如果条件-如果第三列是‘高’，只写该行输出文件。如果第三列没有“高”，那就查找“中等”并打印出来。如果“中等”也不存在，则打印包含“低”值的行。
输入：
id1 Disease1 High
id2 Disease1 Medium
id3 Disease1 Low
id4 Disease2 Low
id5 Disease3 Medium
id6 Disease3 Low
预期产出：
id1 Disease1 High
id4 Disease2 Lo
浏览 0提问于2018-09-21得票数 0
回答已采纳
我有一个数组：
data = [
['Frank', 33],
['Stacy', 15],
['Juan', 24],
['Dom', 32],
['Steve', 24],
['Jill', 24]
]
我将其转换为散列，以便按键和值对其进行组织，这样它们就更容易单独调用。最后给了我这个
{"Frank"=>33, "Stacy"=>15, "Juan"=>24, "Dom"=>32,
浏览 0提问于2016-03-24得票数 1
回答已采纳
5回答
我有这样的代码：
$coder = JSON::XS->new->utf8->pretty->allow_nonref;
%perl = $coder->decode ($json);
当我编写散列变量时，它显示为print %perl (0x9e04db0)。如何访问此哈希中的数据？
浏览 0提问于2010-03-01得票数 5
回答已采纳
我在Perl中声明了一个散列，后来我按特定顺序添加了几个键-值对。当我迭代散列时，键-值对的顺序与它们存储的顺序不同。原因何在？
浏览 0提问于2013-04-10得票数 3
在PHP中，当我们使用排序的数字作为键将元素插入到新的哈希表中时，结果哈希也将是有序的，这是真的吗？
那么，当我们得到密钥时，它们将被排序，而$a[0], $a[1], $a[2]也将遵循原始顺序？(虽然可以肯定的是，关键字将是这个顺序，但是值不一定是这样的)。
在PHP中，我们真的可以依靠它吗？在Perl、Python或Ruby中没有这样的行为吗？
浏览 0提问于2012-05-02得票数 2
回答已采纳
3回答
my %fruit_colors = ("apple", "red", "banana", "yellow");
my @fruits = keys %fruit_colors;
my @colors = values %fruit_colors;
print @fruits; #output is: bananaapple
print "\n";
print @colors; #output is: yellowred
代码板链接：
谁能解释一下为什么print @fr
浏览 1提问于2011-06-20得票数 2
回答已采纳
这看起来很简单，只是我不太明白的一件事就是洗牌是怎么做的？你怎么能为这里的每个单词创建一个篮子呢？
浏览 4提问于2013-12-01得票数 2
回答已采纳
1回答
不应用排序顺序。
、、
我需要用perl订购一个散列。我在散列中推送值。那我需要点菜。问题是这不是有序的。这是我的密码：
my %hash_section;
for my $y (0..$#xml) {
if ( $xml[$y] =~m/<sezione numero="(.*?)">(.*?)<\/sezione>/i) {
push @{$hash_section{$xml[$y]}}, $1;
}
}
foreach my $i(sort {$a <=> $b} values %hash_sectio
浏览 6提问于2022-07-27得票数 0
2回答
Perl哈希引用
、、、
如果有人能帮我，我会非常感激的。目前，我正致力于将一些旧的Perl脚本转换为C#，但在这样做的过程中，我经常遇到以下语法的代码：
$w{$x}->{y} = $z
我了解Perl中哈希的基本知识，但总的来说，我对Perl相当陌生，在任何地方都找不到这样的例子。
这是否只是保存对散列中键值的引用？
浏览 0提问于2016-06-02得票数 0
回答已采纳
1回答
例如，我有一个perl数据文件，散列结构：
第1行：$VAR1 ={
第2行: k1 => v1
第3行: k2 => {
第4行: k2.k1=>v2.v1
第5行：}
..。
N行：}；
$VAR1
现在，通过读取散列文件，它将被转储到内存中，并且顶部的哈希引用是>>创建的。
我的$VAR1 = do $hash_file；
我在perl代码中看到的是内存中的散列。如果给$VAR1 1->{‘k1’}，我如何得到“第2行”？
我认为没有一种可靠的方法可以用散列结构(或一般perl数据结构)映射行号。
谢谢。
浏览 3提问于2014-04-10得票数 0
当我在Ruby中对散列进行排序时，它会返回一个键值对数组。
我想把它还给我。
有什么干净的方法可以做到这一点？注射？
浏览 11提问于2014-01-29得票数 0
回答已采纳
4回答
标准的googleable回答是“如何在Perl中找到散列的大小？”是“取keys(%hash)的大小”：
my %h = {};
print scalar (keys (%h));
这个印的是“1”。我本来以为是零。从另一方面来说。类似地，
my %h = {};
$h{"a"} = "b";
$h{"x"} = "y";
print scalar keys (%h);
print "\nKey: $_" for (keys %h);
指纹：
3.
钥匙:a
密钥:X
键:散列(0x229e8)
这些额外
浏览 9提问于2011-04-12得票数 8
回答已采纳
我有这么多散列
params = {collection_permissions_attributes: {'0' => {:collection_id => '1'},
'2' => {:collection_id => '1'},
'3' => {:collection_id =&
浏览 0提问于2014-03-21得票数 0
回答已采纳
3回答
我正在尝试创建一个散列数组，但在遍历该数组时遇到了问题。我试过这段代码，但它不能工作：
for ($i = 0; $i<@pattern; $i++){
while(($k, $v)= each $pattern[$i]){
debug(" $k: $v");
}
}
浏览 0提问于2009-08-24得票数 4
回答已采纳
考虑以下片段：
use strict;
use warnings;
my %a = ( a => 1,
b => 2,
c => 'cucu',
d => undef,
r => 1,
br => 2,
cr => 'cucu',
dr => '321312321',
);
my $c = %a;
print $c;
结果是5/8，我不明
浏览 1提问于2011-09-15得票数 23
回答已采纳
我试图按关键字按字母顺序对哈希进行排序，但如果不创建自己的排序类，我似乎无法找到一种方法来实现它。我发现下面的代码可以按值排序，如果它是一个整数，并且我试图修改它，但没有任何运气。
temp["ninjas"]=36
temp["pirates"]=12
temp["cheese"]=222
temp.sort_by { |key, val| key }
我的目标是按键排序哈希，然后输出值。我必须用不同的散列顺序和相同的值多次这样做。
浏览 14提问于2014-12-09得票数 33
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM活动推荐
腾讯云开发者
