Perl练习GO2gene对应关系一对多转成一对一

Posted 2021-04-17 沈梦圆

在很久很久以前，一位师兄找我解决gene2Go的列表转换问题，当时我教他用notepad++的正则匹配完成了（我记得好像是三次正则匹配替换就搞定了）。今天突然想起来，录个小视频来教他用编程来解决这个问题。（一行代码搞定）

待解决问题：

将上面的文件转换成下面的格式： 

代码在这里：
perl -F',' -lane '$GO_num=@F;for($i=1;$i<$GO_num-1;$i++){if($F[$i]=~/GO:(.*)/){print "$F[0] = $1"}}' GO-A78-VS-A12_Up.csv >gene_GO.txt




~ 感觉自己棒棒哒 ~

最近在研究宏基因组（原核、真核生物）的基因预测和注释，道路很漫长，加油！ 

有问题请联系我

个人微信ID：
Shenmengyuan1993