Shell Programming and Scripting

bash sort.sh your_file

awk '{c=1;while(c!=""){c=""; for(i=1;i<NF;i++){n=i+1; if($i>$n){c=$i;$i=$n;$n=c}}}}1' infile

perl -lane '$,=" "; print sort { $a <=> $b } @F' infile

#!/usr/bin/env bash

# @(#) s1	Demonstrate sort numeric items on a line, perl.

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

pl " Input data file data1:"
cat data1

pl " Results of single line (cryptic) perl:"
perl -wn -e 'print join(" ",sort({$a<=>$b} split())),"\n";' 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
perl 5.10.0

-----
 Input data file data1:
4 6 8 1 7
2 12 9 6 10
6 1 14 5 7

-----
 Results of single line (cryptic) perl:
1 4 6 7 8
2 6 9 10 12
1 5 6 7 14