Как REGEX извлекать что-то из строки

Question

У меня есть эта строка:

[1] "RPKM_AB123_Gm12878_control.extended.bed_28m_control_500 and RPKM_AB156_GM12878-50ng_test.extended.bed_28m_test_500" 

, и я хочу, чтобы извлечь AB123_Gm12878_control и AB156_GM12878-50ng из строки.

Я пробовал, и он еще не работает.

if ($_ =~ /.*"RPKM_([\w.]+).extended.+\s\w+\sRPKM_([\w.]+).extended.+"/){ 
    print $1,"\t",$2,"\t"; 
} 

Может кто-нибудь указать, где я сделал это неправильно? Благодаря!

Answer 1

".*RPKM_([\w.]+).extended.+\s\w+\sRPKM_([\w.]+).extended.+" 
             ^^^^^ 

класс Этого персонажа не принимает - какой строки вашего соответствия против содержит.

Попробуйте поставить дефис:

".*RPKM_([\w.]+)\.extended.+\s\w+\sRPKM_([\w.-]+)\.extended.+" 

Кроме того, это хорошо, чтобы избежать периодов.

Answer 2

Вы можете упростить регулярное выражение и сопоставить все случаи использования /g

if (my($m1, $m2) = /RPKM_([^.]+)/g) { 
    print $m1,"\t",$m2,"\t"; 
}