Shell Programming and Scripting

# cat liste
  a
  m
  x
  h

liste_order="1:m 2:a 3:h 4:x"

cat liste |  sed 's/a/2:a/g' | sed 's/m/1:m/g' | sed 's/h/3:h/g' | sed 's/x/4:x/g'   | sort

perl  -lne'BEGIN {
  %liste_order = reverse @{ [split /[\s+:]/, "1:m 2:a 3:h 4:x"] };
  }
  push @data, $_ =~ /(\w+)/;
  print join $/, sort { 
     $liste_order{$a} <=> $liste_order{$b} 
       } @data 
    if eof
    ' liste

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, $_ =~ /(\w+)/;
    print join $/, sort { 
      $liste_order{$a} <=> $liste_order{$b} 
        } @data 
     if eof
    '