Ignore a parte perl
e tente isto:
awk -F',' '{x = "+x=="; \
for (i=2; i< NF; i++) { \
x = x " and " $i "+x=="$(i+1) \
}; \
print "else if" x \
}'
Efeito:
$ echo '(a,b,c,d,e)' | awk -F',' '{x = "+x=="; \
quote> for (i=2; i< NF; i++) { \
quote> x = x " and " $i "+x=="$(i+1) \
quote> }; \
quote> print "else if" x \
quote> }'
else if(a+x==b and b+x==c and c+x==d and d+x==e)
Não seria muito difícil fazê-lo funcionar com a saída de perl
(com o else if
já incluído), mas usar uma ferramenta para o trabalho é melhor se não complicar as coisas (como em neste caso).