とりあえず汎用性を高めるためにこんな感じにした
個人メモなのでスルー推奨
こんな感じで取得する
$item_get->{shop}=&grep_tsv('shop_item','item','name:buy','[br]');
$item_get->{mons}=&grep_tsv('mons_item','item:rare','name:map','[br]');
こんな感じで表示する
for my $get (@{$item_get->{shop}->{item}->{'白米'}}){←白米を売っている店一覧
print OUT "$get->{name}($get->{buy}FOL)\n";←ショップ名と価格を
}
for my $get (@{$item_get->{mons}->{item}->{'白米'}}){←白米を普通で出す敵一覧
print OUT "$get->{name}($get->{map})\n";←敵名と出現場所を
}
for my $get (@{$item_get->{mons}->{rare}->{'白米'}}){←白米をレアで出す敵一覧
print OUT "$get->{name}($get->{map})\n";←敵名と出現場所
}
PR