Changeset 27669

Timestamp:

2013-06-20T09:26:05+12:00 (11 years ago)

Author:

jmt12

Message:

Sort compute nodes naturally before labelling them with incremental worker numbers (otherwise they go 0, 1, 10, 11 etc)

File:

• gs2-extensions/parallel-building/trunk/src/bin/script/hadoop_report.pl (modified) (2 diffs)

gs2-extensions/parallel-building/trunk/src/bin/script/hadoop_report.pl

@@ -5 +5 @@
 
 use Devel::Peek;
+use Sort::Key::Natural qw(natsort);
 use Time::Local;
 
@@ -214 +215 @@
   # For each compute node record
   my $known_workers = {};
-  foreach my $worker_id (sort keys %{$node_records})
+  foreach my $worker_id (natsort(keys(%{$node_records})))
   {
     my $node_record = $node_records->{$worker_id};