Shell Programming and Scripting

sort -k2,2 filename| awk 'NR==1{ord=$3;del=$4;s=$2;print $0 > s ;getline}
$2 !~ s {print "--------" > s;print "total",ord,del > s ;s=$2;ord=0;del=0}
$2 ~ s {ord+=$3;del+=$4;print $0 > s ;s=$2;next}END{print "--------" > s;print "total",ord,del > s}'

sort -k2,2 /ab/cd/item.dat |  awk 'NR==1{ord=$3;del=$4;s=$2;print $0 > s ;getline}
$2 !~ s {print "--------" > s;print "total",ord,del > s ;s=$2;ord=0;del=0}
$2 ~ s {ord+=$3;del+=$4;print $0 > s ;s=$2;next}END{print "--------" > s;print "total",ord,del > s}'

awk 'END { 
  for (ID in id) 
    printf "%s\n%s\n------------------\ntotal: %.2f %.2f\n", \
    h, id[ID], ord[ID], dlv[ID] > ID 
  }
NR == 1 { h = $0; next }
{ 
  ord[$2] += $3; dlv[$2] += $4
  id[$2] = id[$2] ? id[$2] RS $0 : $0
}' infile

while(<DATA>){
	chomp;
	my @tmp=split;
	$hash{$tmp[1]}->{content}.=$_."\n";
	$hash{$tmp[1]}->{order}+=$tmp[2];
	$hash{$tmp[1]}->{deliver}+=$tmp[3];
}
foreach my $key (keys %hash){
	my $file=sprintf("file_%s.txt",$key);
	open $fh,">","$file" or die "Can not open file";
	print $fh $hash{$key}->{content};
	print $fh "--------------------\n";
	print $fh "total: $hash{$key}->{order} $hash{$key}->{deliver}\n";
	close $fh;
}
__DATA__
123 axxx 1 1
456 axxx 2 2
899 axxx 2 2
789 bxxx 1 1
101 bxxx 2 2
111 bxxx 2 2