Search Results

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), $_];
...