Shell Programming and Scripting

# liste_order="1:m 2:a 3:h 4:x" ; echo "$liste_order">liste_order
# awk 'NR==FNR{num=gsub(FS,"");a[$0]=num;next}{for(i=1;i<=NF;i++)for(j in a)if($i~j){sub(":.","",$i);for(s=1;s<=a[j];s++)ss=ss FS;print ss$i":"j;ss=""}}' liste liste_order
  1:m
  2:a
  3:h
  4:x

export liste_order='1:m 2:a 3:h 4:x'
./command.sh | 
  perl -lne'BEGIN {
    %liste_order = reverse @{ [split /[\s+:]/, $ENV{liste_order}] };
    }
    push @data, [substr($_, 0, 1), $_];
    print join $/, map $data[$_]->[1], sort { 
      $liste_order{$data[$a]->[0]} <=> $liste_order{$data[$b]->[0]} 
        } 0..$#data 
          if eof
    '

export liste_order='1:m 2:a 3:h 4:x'
./command.sh | 
  perl -lne'BEGIN {
    %liste_order = reverse @{ [split /[\s+:]/, $ENV{liste_order}] };
    }
    push @data, $_;
    print join $/, map $data[$_], sort { 
      $liste_order{substr($data[$a], 0, 1)} <=> $liste_order{substr($data[$b], 0, 1)} 
        } 0..$#data 
          if eof
    '