20/06/07 11:06:41 SSw/Xffq.net
>>833 ハイハイ、修正修正
use feature qw{current_sub signatures};
for (<DATA>) {
chomp;
@a = split/\\/;
sub ($hr) {
$k = shift @a;
$hr->{$k} //= {};
__SUB__->($hr->{$k}) if @a;
}->(\%h);
}
sub ($s, $r) {
for (sort keys %$r) {
print "$s$_\n";
__SUB__->($s.' ', $r->{$_});
}
}->('', \%h);
__DATA__
フグ亜目
フグ亜目\ハリセンボン科
フグ亜目\ハリセンボン科\ハリセンボン属
フグ亜目\ハリセンボン科\ハリセンボン属\ハリセンボン
フグ亜目\マンボウ科
フグ亜目\マンボウ科\クサビフグ属
フグ亜目\マンボウ科\クサビフグ属\クサビフグ
フグ亜目\マンボウ科\マンボウ属
フグ亜目\マンボウ科\マンボウ属\ウシマンボウ
フグ亜目\マンボウ科\マンボウ属\カクレマンボウ
フグ亜目\マンボウ科\マンボウ属\マンボウ
フグ亜目\マンボウ科\ヤリマンボウ属
フグ亜目\マンボウ科\ヤリマンボウ属\ヤリマンボウ