Shell Programming and Scripting

cat file.txt
 
[1] C request
[1:1]
[1:4]
[1:2]
[1:3]
[1] C response
[2:3]
[2] C request
[2:1]
[2:2]
[2] C response

[1] C request
[1:1]
[1:2]
[1:3]
[1:4]
[1] C response
[2] C request
[2:1]
[2:2]
[2:3]
[2] C response

sort -t: -k1,1n -k2,2n or sort -t: +1.1 -1.3

$ sort -n file.txt | sed -n '/request/{p;s/.*//;x;p;d;}; /response/{p;n;h;T}; /request/!{1h;1!H;}'
[1] C request
[1:1]
[1:2]
[1:3]
[1:4]
[1] C response
[2] C request
[2:1]
[2:2]
[2:3]
[2] C response

# awk '/req||!~res/{while($0!~/res/){a[x++]=$0;getline}};{a[l]=$0;for(cc in a)if(a[cc]~/req/){print a[cc];a[cc]="";};
for(i=0;i<x;i++){split(a[i],s,":");sub("]","",s[2]);ll=s[1];f=0;s[2]=s[2];if(s[2]==1&&!f){print a[i];f=1;xx=s[2]+1;}
if(s[2]==xx&&a[i]){print s[1]":"s[2]"]";xx++;f=1;}if(a[i]&&f!=1)n[xxx++]=s[2]}for(lll=1;lll<20;lll++){
for(i=0;i<xxx;i++)if(n[i]==(ll+lll))print ll":"n[i]"]"}print a[l];;;x=xxx=0;xx=""}' unsorted_file
[1] C request
[1:1]
[1:2]
[1:3]
[1:4]
[1] C response
[2] C request
[2:1]
[2:2]
[2:3]
[2] C response

[1:0] C request
[1:32000] C response

#!/usr/bin/env bash

# @(#) s2	Demonstrate hybrid sort, msort.
# http://freecode.com/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 perl

FILE=${1-data1}
pl " Input data file $FILE, and expected output:"
head -n 11 $FILE expected-output.txt
pl " Helper perl scripts:"
head p*

pl " Results:"
./p1 $FILE |
tee f1 |
msort -q -l -n 1,1 -c hybrid |
tee f2 |
./p2

exit 0

% ./s2

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
perl 5.10.0

-----
 Input data file data1, and expected output:
==> data1 <==
[1] C request
[1:1]
[1:4]
[1:2]
[1:3]
[1] C response
[2:3]
[2] C request
[2:1]
[2:2]
[2] C response

==> expected-output.txt <==
[1] C request
[1:1]
[1:2]
[1:3]
[1:4]
[1] C response
[2] C request
[2:1]
[2:2]
[2:3]
[2] C response

-----
 Helper perl scripts:
==> p1 <==
#!/usr/bin/env perl

# @(#) p1	Augment header and trailer lines with integers.

while ( <> ) {
  s/\[(\d+)\]/[\1:0]/ if /request/;
  s/\[(\d+)\]/[\1:32000]/ if /response/;
  print;
}

==> p2 <==
#!/usr/bin/env perl

# @(#) p2	Remove integers from head and trailer lines.

while ( <> ) {
  s/:\d+// if /request|response/;
  print;
}

-----
 Results:
[1] C request
[1:1]
[1:2]
[1:3]
[1:4]
[1] C response
[2] C request
[2:1]
[2:2]
[2:3]
[2] C response

sed '/req/s/]/:0]/; /res/s/]/:9999]/; s/[][]//g' infile |
sort -nt: -k1,1 -k2,2 |
sed '/req/s/:0//; /res/s/:9999//; s/[:[:digit:]]*/[&]/'