perl - 如何参与一条线

Question

我想使用perl获取一部分行 2行示例：

/Tests/CpuStrmRd_MemAccSmB_WrBgDis_RdBgDis_WrAlcDis__Ddr64_2to1_DlbEn_PrfEn_1_StrmRd/
/Tests/puStrmWr_MemAccSmB_WrBgDis_RdBgRnd_WrAlcEN__Ddr64_2to1_DlbEn_PrfEn_81_StrmWr/

我要采取的部分行（每行）：

CpuStrmRd_MemAccSmB_WrBgDis_RdBgDis_WrAlcDis

（介于 / Tests / 和 __ Ddr 之间）

感谢您的帮助

Answer 1

如果它在/ Tests /和__Ddr之间，则听起来像是

my ($match) = ($line =~ m{/Tests/(.+?)__Ddr});

这将完全符合您的要求; 。匹配任何角色。