Mercurial > hg > batmud > misc
comparison nun/tasks/findreqs.pl @ 357:b5959a81c3f5 misc
Cleanup.
| author | Matti Hamalainen <ccr@tnsp.org> |
|---|---|
| date | Wed, 27 Jun 2018 15:02:21 +0300 |
| parents | 102ac4f0bd22 |
| children | 362bd68d5686 |
comparison
equal
deleted
inserted
replaced
| 356:102ac4f0bd22 | 357:b5959a81c3f5 |
|---|---|
| 87 } | 87 } |
| 88 elsif ($ARGV[0] eq "-dump") | 88 elsif ($ARGV[0] eq "-dump") |
| 89 { | 89 { |
| 90 for my $taskName (sort keys %taskList) | 90 for my $taskName (sort keys %taskList) |
| 91 { | 91 { |
| 92 print $taskName."|"; | 92 my @list = map { |
| 93 for my $skillName (sort keys %{$taskList{$taskName}}) | 93 $_."=".$taskList{$taskName}{$_} |
| 94 { | 94 } sort keys %{$taskList{$taskName}}; |
| 95 print $skillName."=".$taskList{$taskName}{$skillName}."|"; | 95 |
| 96 } | 96 print $taskNames{$taskName}."|".join("|", @list)."\n"; |
| 97 print "\n"; | |
| 98 } | 97 } |
| 99 } | 98 } |
| 100 } | 99 } |
| 101 else | 100 else |
| 102 { | 101 { |