[英]Perl get all keys in a hash that as defined values
if ($type eq 'running') {
@keys = sort {${$jobs{$type}}{$a}{stime} cmp ${$jobs{$type}}{$b}{stime}} keys % {$jobs{$type}};
} elsif ($type eq 'failed' or $type eq 'interrupted') {
@keys = sort {${$jobs{$type}}{$a}{etime} cmp ${$jobs{$type}}{$b}{etime}} keys % {$jobs{$type}};
}
Use of uninitialized value in string comparison (cmp) at /u/eugenep/bedrock/source/br-brock/bin/../bin/brock line 585, <$BR> line 81.
我收到上述錯誤。 如何有效地篩選出已定義值的鍵?
我不想做這樣的事情:
@k_w_values = ();
foreach $k ($jobs{$type}) {
if (defined $jobs{$type}{$k}{stime}) {
append $k to @k_w_values
}
}
有像單線紙嗎?
用grep(perlfunc)過濾密鑰:
@keys = sort {${$jobs{$type}}{$a}{stime} cmp ${$jobs{$type}}{$b}{stime}}
grep (defined($jobs{$type}->{$_}{stime}), keys % {$jobs{$type}});
和
@keys = sort {${$jobs{$type}}{$a}{etime} cmp ${$jobs{$type}}{$b}{etime}}
grep (defined($jobs{$type}->{$_}{etime}), keys % {$jobs{$type}});
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.