你需要得到
keys
到page_insights散列,然后对它们进行迭代。
use strict;
use warnings;
use 5.010;
my $post = {
"mf_story_key" => "225164133113094",
"page_id" => "102820022014173",
"page_insights" => {
"102820022014173" => {
"actor_id" => "102820022014173",
"page_id" => "102820022014173",
"page_id_type" => "page",
"post_context" => {
"publish_time" => "1641702174",
"story_name" => "EntStatusCreationStory"
},
"psn" => "EntStatusCreationStory",
"role" => 1,
}
},
"story_attachment_style" => "album",
};
my $insights = $post->{page_insights};
my @insight_ids = keys %{$insights};
for my $id ( @insight_ids ) {
say "ID $id was published at ",
$insights->{$id}{post_context}{publish_time};
}
给予
ID 102820022014173 was published at 1641702174