Shell Programming and Scripting

perl -e '@a=(0x3E80,0x3EF8,0x460);@r=sort {$a <=> $b} @a;printf("%X\n" x @r,@r);'

#!/usr/bin/env bash

# @(#) s4	Demonstrate sort of hex column.

# Utility functions: print-as-echo, print-line-with-visual-space, debug.
# export PATH="/usr/local/bin:/usr/bin:/bin"
pe() { for _i;do printf "%s" "$_i";done; printf "\n"; }
pl() { pe;pe "-----" ;pe "$*"; }
db() { ( printf " db, ";for _i;do printf "%s" "$_i";done;printf "\n" ) >&2 ; }
db() { : ; }
C=$HOME/bin/context && [ -f $C ] && $C perl sort cut

COL=${1-2}
FILE=data4

pl " Input data file $FILE (aligned):"
pe " Country widgets manufacturers employees"
pe
align $FILE

pl " Results, sorted on column $COL, aligned:"
./p1 $COL < $FILE |
tee f1 |
sort -k1,1n |
tee f2 |
cut -f2- |
tee f3 |
align

COL=4
pl " Results, sorted on column $COL, aligned:"
./p1 $COL < $FILE |
tee f1 |
sort -k1,1n |
tee f2 |
cut -f2- |
tee f3 |
align

pl " Addendum, perl script \"p1\" to add the decimal equivalent:"
cat p1

exit 0

% ./s4

Environment: LC_ALL = C, LANG = C
(Versions displayed with local utility "version")
OS, ker|rel, machine: Linux, 2.6.26-2-amd64, x86_64
Distribution        : Debian GNU/Linux 5.0.8 (lenny) 
GNU bash 3.2.39
perl 5.10.0
sort (GNU coreutils) 6.10
cut (GNU coreutils) 6.10

-----
 Input data file data4 (aligned):
 Country widgets manufacturers employees

Belarus		f59	26	3a
Gibraltar	b26	2b	25
Iceland		aaf	23	2e
Ireland		426	29	29
Netherlands	d4d	17	5a
Slovakia	91d	2c	42
Spain		556	31	2d
Switzerland	49a	2e	54
Turkey		9e5	15	46
Ukraine		1154	26	4a

-----
 Results, sorted on column 2, aligned:
Ireland		426	29	29
Switzerland	49a	2e	54
Spain		556	31	2d
Slovakia	91d	2c	42
Turkey		9e5	15	46
Iceland		aaf	23	2e
Gibraltar	b26	2b	25
Netherlands	d4d	17	5a
Belarus		f59	26	3a
Ukraine		1154	26	4a

-----
 Results, sorted on column 4, aligned:
Gibraltar	b26	2b	25
Ireland		426	29	29
Spain		556	31	2d
Iceland		aaf	23	2e
Belarus		f59	26	3a
Slovakia	91d	2c	42
Turkey		9e5	15	46
Ukraine		1154	26	4a
Switzerland	49a	2e	54
Netherlands	d4d	17	5a

-----
 Addendum, perl script "p1" to add the decimal equivalent:
#!/usr/bin/env perl

# @(#) p1	Demonstrate extraction of hex column, convert to decimal.

use warnings;
use strict;

my ($debug);
$debug = 1;
$debug = 0;

# Select column (beginning from 0, allow user to specify from 1.
my ($col) = shift || "2";

# Set separator.
my ($sep) = "\t";

# Walk through file.
while (<>) {
  chomp;
  my (@a)  = split /$sep/;
  my ($t1) = $a[ $col - 1 ];
  print " hex column is $col, content before is :$t1:\n" if $debug;
  $t1 =~ s/\s*//g;
  print " hex column is $col, content after  is :$t1:\n" if $debug;
  print hex($t1), "$sep$_\n";
}

exit(0);