Mercurial > hg > batmud > misc
changeset 357:b5959a81c3f5 misc
Cleanup.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Wed, 27 Jun 2018 15:02:21 +0300 |
parents | 102ac4f0bd22 |
children | 362bd68d5686 |
files | nun/tasks/findreqs.pl |
diffstat | 1 files changed, 5 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/nun/tasks/findreqs.pl Wed Jun 27 14:57:20 2018 +0300 +++ b/nun/tasks/findreqs.pl Wed Jun 27 15:02:21 2018 +0300 @@ -89,12 +89,11 @@ { for my $taskName (sort keys %taskList) { - print $taskName."|"; - for my $skillName (sort keys %{$taskList{$taskName}}) - { - print $skillName."=".$taskList{$taskName}{$skillName}."|"; - } - print "\n"; + my @list = map { + $_."=".$taskList{$taskName}{$_} + } sort keys %{$taskList{$taskName}}; + + print $taskNames{$taskName}."|".join("|", @list)."\n"; } } }