Shell Programming and Scripting

TableName | PK
Employee | id
Contact|name,country

Employee | t1.id=s.id
Contact| t1.name=s.name AND t1.country=s.country

for LIST in `cat pk.txt`        do
						TABLE_NAME=`cut -d '|' -f1 ${LIST}`
						P_KEY=`cut -d '|' -f2 ${LIST}`
						P_KEYCNT=`echo $P_KEY |awk -F\, '{print NF-1}'`
        
        		START=0     

 
						for (( c=$START; c<=$P_KEY_CNT; c++ ))
						do

           ##Need some Help Here##            
done

#!/usr/bin/perl

use strict;
use warnings;

while (<>) {
    chomp;
    next if $_ =~ /TableName/;
    $_ =~ s/\s+//g;
    my ($tab, $cols) = split(/\|/, $_, 2);
    my @cols = split(/,/, $cols);

    for my $col (@cols) {
        $col="t1.$col=s.$col";
    }
    print "$tab | " . join(" AND ", @cols) . "\n";
}

$ perl genjoin.pl pk.txt

$ perl genjoin.pl pk.txt >outfile.txt

awk -F "[ |]*" '
NR>1{ 
  printf $1 " | "
  flds=split($2, F, ",")
  for(i=0;i<flds;i++)
     printf "%s%s.%s=%s.%s", i?" AND ":"", S, F[i+1], D, F[i+1]
  printf "\n"
}' S=t1 D=s pk.txt

awk '{gsub(/[^,]+/, "t1.&=s1.&", $2); gsub(/,/," AND ", $2)} NR>1' FS=' *[|] *' OFS=\| file

perl -F'\|' -wlap -e 'if($#F+1 && $.>1){$F[1] = join(" AND ", map{ s/\s*(\S+)\s*/t1.$1=s.$1/;  $_ } split(",",$F[1]) );$_ = join("|",@F)}' file

perl -F'\|' -lape 'BEGIN{$,="|"}next if $. < 2 || !($#F+1); $F[1] = join(" AND ",map{ s/^\s+|\s+$//g; "t.".$_."=s.".$_ } split(/,/,$F[1])); $_=join($,,@F)' file

perl -wlne 'print if /Employee/ and s/(\|\s*)(\w+)$/$1tl.$2=s.$2/ or /Contact/ and s/(\|\s*)(\w+),(\w+)$/$1t1.$2=s.$2 AND t1.$3=s.$3/;' file