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";
     }
   }
 }