# HG changeset patch # User Matti Hamalainen # Date 1530100941 -10800 # Node ID b5959a81c3f54a641b9379df39269e632b61ea01 # Parent 102ac4f0bd22c7125bc2e0d7ab46c2c0544db52c Cleanup. diff -r 102ac4f0bd22 -r b5959a81c3f5 nun/tasks/findreqs.pl --- 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"; } } }