UNIX Desktop Questions & Answers

1
10
11
2
3
4
M
X
Y

Y
X
M
1
2
3
4
10
11

1
2
3
4
10
11
M
X
Y

#!/usr/bin/env bash

# @(#) s1	Demonstrate hybrid ordering of fields, msort.
# See: http://freshmeat.net/projects/msort

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 msort

FILE=${1-data1}

pl " Input data file $FILE:"
cat $FILE

pl " Results of msort, hybrid ordering:"
msort -q --line --position 1,1 --comparison-type hybrid -- data1

exit 0

% ./s1

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) 
bash GNU bash 3.2.39
msort 8.44

-----
 Input data file data1:
b2
a1
b1
A1
y
m
x
1
10
11
2
3
4
M
X
Y

-----
 Results of msort, hybrid ordering:
1
2
3
4
10
11
A1
M
X
Y
a1
b1
b2
m
x
y

 
sort -n input.txt | nawk '!/[0-9]/{a=a""ORS$0}/[0-9]/{print}END{print a}'

#!/usr/bin/env bash

# @(#) user1	Demonstrate ordering of fields, sort, arrange with awk.

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 sort awk

FILE=${1-data1}

pl " Input data file $FILE:"
cat $FILE

pl " Results of sort, re-order with awk:"
sort -n $FILE |
awk '
!/[0-9]/	{a=a""ORS$0}
/[0-9]/	{print}
END	{print a}
'

exit 0

% ./user1 

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) 
bash GNU bash 3.2.39
sort (GNU coreutils) 6.10
awk GNU Awk 3.1.5

-----
 Input data file data1:
b2
a1
b1
A1
y
m
x
1
10
11
2
3
4
M
X
Y

-----
 Results of sort, re-order with awk:
A1
a1
b1
b2
1
2
3
4
10
11

M
X
Y
m
x
y