Show
Ignore:
Timestamp:
20.06.2013 09:26:05 (6 years ago)
Author:
jmt12
Message:

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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gs2-extensions/parallel-building/trunk/src/bin/script/hadoop_report.pl

    r27583 r27669  
    55 
    66use Devel::Peek; 
     7use Sort::Key::Natural qw(natsort); 
    78use Time::Local; 
    89 
     
    214215  # For each compute node record 
    215216  my $known_workers = {}; 
    216   foreach my $worker_id (sort keys %{$node_records}) 
     217  foreach my $worker_id (natsort(keys(%{$node_records}))) 
    217218  { 
    218219    my $node_record = $node_records->{$worker_id};