- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
不想对条目进行排序。
使用它也不会保留顺序
foreach my $val (keys %hash) {
...
}
最佳答案
在 Perl 5 中,哈希默认是无序的。你可以使用 tie
和 Tie::IxHash
覆盖此行为。但是请注意,这会影响性能和其他考虑因素(例如订单不会保留在副本中的事实)。
#!/usr/bin/perl
use strict;
use warnings;
use Tie::IxHash;
tie my %hash, "Tie::IxHash"
or die "could not tie %hash";
$hash{one} = 1;
$hash{two} = 2;
$hash{three} = 3;
for my $k (keys %hash) {
print "$k $hash{$k}\n";
}
#!/usr/bin/perl
use strict;
use warnings;
my %hash;
$hash{one} = { data => 1, order => 1 };
$hash{three} = { data => 3, order => 2 };
$hash{two} = { data => 2, order => 3 };
for my $k (sort { $hash{$a}{order} <=> $hash{$b}{order} } keys %hash) {
print "$k $hash{$k}{data}\n";
}
IndexedOO: a, b, c, d, e, f
HashOrdered: a, b, c, d, e, f
IxHashOO: a, b, c, d, e, f
hash: f, e, a, c, b, d
hoh_pis: a, b, c, d, e, f
IxHash: a, b, c, d, e, f
hoh: a, b, c, d, e, f
Indexed: a, b, c, d, e, f
Rate IxHash hoh Indexed IxHashOO IndexedOO hoh_pis HashOrdered hash
IxHash 261/s -- -18% -26% -48% -54% -57% -66% -80%
hoh 316/s 21% -- -10% -37% -44% -48% -59% -75%
Indexed 353/s 35% 12% -- -29% -38% -42% -55% -72%
IxHashOO 499/s 91% 58% 41% -- -12% -18% -36% -61%
IndexedOO 569/s 118% 80% 61% 14% -- -7% -27% -56%
hoh_pis 611/s 134% 93% 73% 22% 7% -- -21% -52%
HashOrdered 778/s 198% 146% 120% 56% 37% 27% -- -39%
hash 1279/s 391% 305% 262% 156% 125% 109% 64% --
#!/usr/bin/perl
use strict;
use warnings;
use Tie::IxHash;
use Tie::Hash::Indexed;
use Hash::Ordered;
use Benchmark;
#this is O(n) instead of O(n log n) or worse
sub perfect_insert_sort {
my $h = shift;
my @k;
for my $k (keys %$h) {
$k[$h->{$k}{order}] = $k;
}
return @k;
}
my @keys = qw/a b c d e f/;
my %subs = (
hash => sub {
my $i;
my %h = map { $_ => $i++ } @keys;
return join ", ", keys %h;
},
hoh => sub {
my $i;
my $order;
my %h = map {
$_ => { data => $i++, order => $order++ }
} @keys;
return join ", ", sort { $h{$a}{order} <=> $h{$b}{order} }
keys %h;
},
hoh_pis => sub {
my $i;
my $order;
my %h = map {
$_ => { data => $i++, order => $order++ }
} @keys;
return join ", ", perfect_insert_sort \%h;
},
IxHash => sub {
my $i;
tie my %h, "Tie::IxHash";
%h = map { $_ => $i++ } @keys;
return join ", ", keys %h;
},
Indexed => sub {
my $i;
tie my %h, "Tie::Hash::Indexed";
%h = map { $_ => $i++ } @keys;
return join ", ", keys %h;
},
IxHashOO => sub {
my $i;
my $o = tie my %h, "Tie::IxHash",
map { $_ => $i++ } @keys;
return join ", ", $o->Keys;
},
IndexedOO => sub {
my $i;
my $o = tie my %h, "Tie::Hash::Indexed",
map { $_ => $i++ } @keys;
my @k = my $k = $o->FIRSTKEY;
while ($k = $o->NEXTKEY($k)) {
push @k, $k;
}
return join ", ", @k;
},
HashOrdered => sub {
my $i;
my $oh = Hash::Ordered->new( map { $_ => $i++ } @keys );
return join ", ", $oh->keys;
},
);
for my $sub (keys %subs) {
print "$sub: ", $subs{$sub}(), "\n";
}
@keys = 1 .. 1_000;
Benchmark::cmpthese -2, \%subs;
关于perl - 根据插入顺序迭代哈希?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/3638690/
我有 512 行要插入到数据库中。我想知道提交多个插入内容是否比提交一个大插入内容有任何优势。例如 1x 512 行插入 -- INSERT INTO mydb.mytable (id, phonen
已经提出了类似的问题,但由于它总是取决于,我单独询问我的具体情况。 我有一个网站页面,显示来自数据库的一些数据,要从该数据库生成数据,我必须执行一些相当复杂的多连接查询。 数据每天(每晚)更新一次。
我正在使用 MongoDb 和 MySQL 的 python 连接器 pymongo 和 pymysql 测试 MongoDb 和 MySQL,特别是插入功能。 pymongo版本是3.4,pymys
从 C# 应用程序插入大型数组(10M 元素)的最快方法是什么? 到目前为止,我使用的是批量插入。 C# 应用程序生成一个大文本文件,我使用 BULK INSERT 命令加载它。出于好奇,我编写了一个
我编写了一个枚举类型,当我为它运行我创建的 JUnit 测试时会出现以下语法错误: java.lang.Error: Unresolved compilation problems: Synt
我正在尝试创建一个程序,它将单词列表作为输入,并将它们排序为二叉树,以便能够找到它们,例如像字典。这是我到目前为止所做的,但是 newEl -> el = input; 出现段错误,我知道这是因为它试
你好 我有编译这个问题 \begin{equation} J = \sum_{j=1}^{C} \end{equation} 我不断收到错误 missing $ inserted 这很奇怪,因
我需要使用 LINQ to SQL 将记录插入到没有主键的表中。 table 设计得很差;我无法控制表结构。该表由几个 varchar 字段、一个文本字段和一个时间戳组成。它用作其他实体的审计跟踪。
我正在尝试使用 itextsharp 创建 Pdf。我添加了一张包含两列的表格,其中一列包含文本和其他图像。我想要恒定的图像大小 如果另一个单元格中的文本增加并且其他单元格中的图像大小不同,我的图像会
我想把 calory 作为 fruits 的第一个值,我做不到,有人能帮忙吗? $sql = 'INSERT INTO fruits VALUES('', ?, ?, ?)'
我有一个包含季度观察结果的 data.frame。我现在想插入每月值(首选三次,线性很好)。中间目标应该是使用 DATE 创建一个 data.frame作为所有每月观察的索引和缺失值。 谷歌搜索表明我
我想知道是否有办法在值列表中使用“插入”。我正在尝试这样做: insert into tblMyTable (Col1, Col2, Col3) values('value1', value
我想让人们能够在他们的网站中插入单个 Javascript 行,这实际上允许我插入包含我网站内容的固定大小的 IFRAME。它实际上是一个小部件,允许他们搜索我的网站或接收其他信息。这可能吗? 最佳答
我有一个包含时间的表,列名为 time,数据类型为 Date。 在 asp.net 中,我想要一个查询插入日期,另一个查询则在 2 个日期之间进行选择。 我已经尝试过这个: string data =
这是我的代码: create or replace trigger th after insert on stock for each row declare sqty number;
这是一个带有具体示例的通用问题。 我有一个包含三个字段(流派 ID (PK IDENTITY)、流派和子流派)的表。该表对(流派,子流派)组合具有唯一约束。 我想知道如何修改存储过程以在表中不存在时插
因此,我正在遍历二叉树,节点包含字符串,以及读取文件时该字符串是否出现多次。我只查找读取文件时出现次数最多的前 10 个单词,因此本质上我只是比较 int 值。 我的问题是我正在尝试找出一种有效的方法
我有一张机票和行李 map , 每张门票必须是唯一的,并且必须与 map 上的位置相对应 是否可以仅更改行李(m_bagage->秒)而不更改 key ? std::unordered_map m_c
我正在使用 jdbc 驱动程序做一个示例项目。我的问题是,如果我在 2 文本字段中输入空值。 null 不应该加载到数据库中吗?有没有办法避免在数据库中插入空字段?任何帮助将不胜感激。 //Execu
我想知道 SSIS 中是否有特定的插入或更新选项。 如果我想让程序检查它是更新还是插入,我是否必须做一些编码?或者是否可以启用一个选项,以便它会自行检查 PK 是否存在,然后更新,否则插入? 亲切的问
我是一名优秀的程序员,十分优秀!