Shell Programming and Scripting

awk '{
        split($5, a, ",");
        split($6, b, ",");
        for(i=1; i<= $4; i++)
                print $1,$2,$3, $4, a[i], b[i]
}' sli.t

X Y Z 4 1 4
X Y Z 4 3 6
X Y Z 4 5 8
X Y Z 4 7 10
A B C 3 2 5
A B C 3 3 9
A B C 3 4 11
E F G 5 1 8
E F G 5 2 9
E F G 5 3 10
E F G 5 4 11
E F G 5 5 12

sed 's/, /,/g' file > file.temp
nawk '{
n=split($5,arr,",")
for(i=1;i<=$4;i++)
	print $1" "$2" "$3" "$4" "arr[i]" "arr[i+$4]
}' file.temp
rm file.temp

open FH,"<file";
while(<FH>){
	$_=~s/, /,/g;
	$_=~tr/\n//d;
	my @arr=split;
	my @temp=split(",",$arr[4]);
	for ($i=0;$i<$arr[3];$i++){
		print "$arr[0] $arr[1] $arr[2] $arr[3] $temp[$i] $temp[$i+$arr[3]]\n";
	}
}
close FH;