我從https://api.ncbi.nlm.nih.gov/variation/v0/beta/refsnp/8127500下載了一個復雜的 JSON 資料結構
它太大了，我不能輕易搜索它。
我已經嘗試過 Data::Search，但它沒有回傳我需要的內容。
我如何搜索資料結構/哈希，例如最小的作業示例，
my %d = (
a => {
b => 1
}
);
搜索密鑰1并回傳{a}{b}？
uj5u.com熱心網友回復：
#! /usr/bin/perl
use warnings;
use strict;
use feature qw{ say };
sub walk { _walk(@_, []) }
sub _walk {
my ($value, $s, $path) = (@_);
my @r;
if (ref $s) {
if (ref [] eq ref $s) {
for my $i (0 .. $#$s) {
my $p = walk($value, $s->[$i], [@$path, $i]);
push @r, @$p if $p;
}
} elsif (ref {} eq ref $s) {
for my $k (keys %$s) {
my $p = walk($value, $s->{$k}, [@$path, $k]);
push @r, @$p if $p;
}
}
return \@r
} else {
return [$path] if $s == $value;
}
}
my %d = (a => {b => [0, 1, 2]},
c => [0, 1, [{d => 2, e => 3}]]);
my $paths = walk(2, \%d, []);
say "@$_" for @$paths;
轉載請註明出處，本文鏈接：https://www.uj5u.com/qianduan/450425.html
標籤：perl
上一篇：Perl模塊Scope::UpperSub::Uplevel，還有哪些其他模塊與現代perl一起使用？
下一篇：Perl代碼使用IO::SELECT和IO::Socket::UNIX無錯誤退出，但使用NETCAT(nc)不退出，為什么？