EDIT: Comments about adding script are duely noted
This is the awk command in question:
awk '{indel=0;for(i=5;i<=NF,i++) {if(i~/REF/){split(i,a,";");split(a[1],b.":");} if(i~/[+-]) {split(a[1],c,":");indel+=c[2]}} print $1"_"$2+1,indel}' > parsed_dataI think that the " and ; symbols are giving perl grief... but I might be wrong
I have other awk cmd that I'd need to use and these are much longer (I don't want to backslash twenty symbols...
Thanks to everyone for their help!
Blur
In reply to awk cmd in perl by blur
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |