#!/usr/bin/perl# Filename: repalce.pl# Description:replace the file ID.# Author:xueqc_# Vision: 1.12# Date: 2020.03.21# Usage:perl repalce.pl list.file fa.file out.fileuse warnings;use strict;my @Gene_Alisa_ID;my $i="";open LIST,"<$ARGV[0]" or die("Can not open the file!$!");while(<LIST>)...
回答于 2020-03-21 13:16