四条
四条

性别: 注册于 2020-03-20

向TA求助
10金币数
50 经验值
0个粉丝
主页被访问 1035 次

最近动态

2020-03-21 13:16 回答问题

#!/usr/bin/perl# Filename: repalce.pl# Description:replace the file ID.# Author:xueqc_# Vision: 1.00# Date: 2020.03.21# Usage:perl repalce.pl list.file fa.file out.fileuse warnings;use strict;my @Gene_Alisa_ID;my @error_record;my $i="";open LIST,"<$ARGV