some scripts by Perl
intersect_of_seqname_in_multifiles.pl中的脚本用来求多个文件（类似文件内容都是基因名）的交集，比如哪些基因在所有文件中都出现。
intersect_of_record_in_multifiles.pl有一些改进，能适用于多列文本，具体来说就是根据其中的某一列来找交集关系。脚本的最后还用到了正则替换。
subtract.pl处理多列文本，针对其中的某一列挑选出该列存在于另一个单列文本的行记录。
在转换的过程中，纯合变异记为A\tA，杂合变异记为A\tT，没有变异记为T\tT。