perl正规表示式杂凑开档读档

Paulpaul108 2022-10-31 20:25:21

提供以下兩組 hash，

my %unlinkedID=qw(

MMH0001WES 1FA40ED35D9EA0BCDFF804223F1CAFAB

MMH0002WES FDECBCDEDA113641AA3E1EBD1A7784C2

MMH0003WES EED7717DB2AA7812B5D327F8D46AF737

MMH0004WES 0835F0E690D9B31BB42DF2D65C819306

MMH0005WES 2E871013FB45949EAE81B08B315C6CD5

);

my %tissueTypeWES=qw(

B Le

T Te

);

请将左侧档名请写出Perl程式，利用参数表示式将档案列表中各行转换成右侧档名。

题目给的提示if($_=~/^(.+)([TB])_S[0-9]+(_L00[1-8])_([RI][12])(_[0-9]+)(\.fastq\.gz)/)
{sampleName=$1; tissueType=$2;readType=$4;$suffix=$6;};

档案之内容

MMH0001WESB_S44_L003_I1_001.fastq.gz
MMH0001WESB_S44_L003_I2_001.fastq.gz
MMH0001WESB_S44_L003_R1_001.fastq.gz
MMH0001WESB_S44_L003_R2_001.fastq.gz
MMH0001WEST_S43_L003_I1_001.fastq.gz
MMH0001WEST_S43_L003_I2_001.fastq.gz
MMH0001WEST_S43_L003_R1_001.fastq.gz
MMH0001WEST_S43_L003_R2_001.fastq.gz
MMH0002WESB_S46_L003_I1_001.fastq.gz
MMH0002WESB_S46_L003_I2_001.fastq.gz
MMH0002WESB_S46_L003_R1_001.fastq.gz
MMH0002WESB_S46_L003_R2_001.fastq.gz
MMH0002WEST_S45_L003_I1_001.fastq.gz
MMH0002WEST_S45_L003_I2_001.fastq.gz
MMH0002WEST_S45_L003_R1_001.fastq.gz
MMH0002WEST_S45_L003_R2_001.fastq.gz
MMH0003WESB_S48_L003_I1_001.fastq.gz
MMH0003WESB_S48_L003_I2_001.fastq.gz
MMH0003WESB_S48_L003_R1_001.fastq.gz
MMH0003WESB_S48_L003_R2_001.fastq.gz
MMH0003WEST_S47_L003_I1_001.fastq.gz
MMH0003WEST_S47_L003_I2_001.fastq.gz
MMH0003WEST_S47_L003_R1_001.fastq.gz
MMH0003WEST_S47_L003_R2_001.fastq.gz
MMH0005WESB_S50_L003_I1_001.fastq.gz
MMH0005WESB_S50_L003_I2_001.fastq.gz
MMH0005WESB_S50_L003_R1_001.fastq.gz
MMH0005WESB_S50_L003_R2_001.fastq.gz
MMH0005WEST_S49_L003_I1_001.fastq.gz
MMH0005WEST_S49_L003_I2_001.fastq.gz
MMH0005WEST_S49_L003_R1_001.fastq.gz
MMH0005WEST_S49_L003_R2_001.fastq.gz