Shell Programming and Scripting

awk 'NR== FNR { W[$1]=$2 ; next}
{ start=width=0;
  gsub("[[:cntrl:]]", "")
  for(i=1; substr($0,i,2) in W; i+=W[substr($0,i,2)]) {
    start=i;width=W[substr($0,i,2)]; }
   print i, start, width , length, substr($0,i,2)
   if (start+width>length)
      printf "%s\n%*s&&\n", substr($0,1,start-1), -width, substr($0,start)
   else
      print substr($0,start+width,2) ":Undefined!"
}' seg_table infile

my $str='FU22222222CA6666666666AKxvbFMddreeadBP99';

while(<DATA>){
    my @tmp = split;
    $hash{$tmp[0]}=$tmp[1]-length($tmp[0]);
    $reg2=$reg2.'|'.$tmp[0];
}
$reg2=~s/^\|//;
my @tmp =split(/(?=(?:$reg2))/,$str);
map { s/($reg2)(.*)/$1.$2.' 'x($hash{$1}-length($2))/e} @tmp;
print join "", @tmp;
print "<---\n";
__DATA__
FU 10
CA 12
AK 10
FM 9
BP 10