Shell Programming and Scripting

AB   CDE  GHIJ    OPQRS   WXY

start = '1' end='5'
start = '6' end = '10'
start= '11' end ='15'

awk > main.txt 'NR == FNR { 
  n = split($0, t, "\047")
  fmt[NR] = t[4]; next 
  }
{ 
  for (i=1; i<=NF; i++) 
    printf "%-*s", fmt[i], $i
  print ""    
  }' config.txt temp.txt

my $str= "AB   CDE  GHIJ    OPQRS   WXY";
my @tmp = split(/\s+/,$str);
while(<DATA>){
	if(/start\s*=\s*'([0-9]+)'\s*end\s*=\s*'([0-9]+)'/){
		my $len = $2-$1;
		printf "%-$len"."s",$tmp[$.-1];
	}
}
__DATA__
start = '1' end='5'
start = '6' end = '10'
start= '11' end ='18'
start= '19' end ='25'
start= '26' end ='28'

A    AB        ABC            ABDC

awk > main.txt 'NR == FNR { 
  split($0, t, "\047")
  fmt[NR] = t[4] - (t[2] - 1); next
  }
{ 
  for (i=1; i<=NF; i++) 
    printf "%-*s", fmt[i], $i 
  print x
  }' config.txt temp.txt

{
            'name'  :   'field1',
            'type'  :   'input',
            'spos'  :   1,
            'size'  :   2,
        },
        {
            'name'  :   'field2',
            'type'  :   'input',
            'spos'  :   3,
            'size'  :   1,
        },
        {
            'name'  :   'field3',
            'type'  :   'input',
            'spos'  :   4,
            'size'  :   8,
        },

awk 'NR == FNR {
  /^[ \t]*\47name/ && c++      # get the field number
  if (/^[ \t]*\47size/) {
    split($0, t, ":")          
    gsub(/[ \t\47,]/, x, t[2]) # strip punctuation
    fmt[c] = t[2]              # get the size 
    }
  next                         # run the above actions                                     
  }                            # + only for the first input file
{ 
  for (i=1; i<=NF; i++)        # output the strings in the correct format
    printf "%" (length($i) > fmt[i] ? "." : "-" ) fmt[i] "s", $i           
  print x
  }' config.txt temp.txt