찾기 부분 일치

Question

말은, 내가 좋아하는 라인이 있습니다

 
SOMETHING.AA.AA.DARKSIDE 

BLaH.AA.AA.Blah 

것은 내가 각 라인 $에 대한 찾으려을 전 = $ 1; $ after = $ 2; 라인 1의 예를 들어 내가 얻을 하도록 $ 중간 = "AA"의 :

$before= “SOMETHING.” 
$After = “.AA.DARKSIDE” 

그리고 또한

$before= “SOMETHING.AA” 
$After = “.DARKSIDE” 

내 코드는 다음과 같습니다

$middle = “AA”; 

foreach (@lines){ 

    $line = $_; 

    while ($line =~m/^(.+)$middle(.+)$/g){ 

     $before = $1; 
     $after = $2; 
    } 
} 

인가가 내 동안 정규식을 변경하는 간단한 방법은? PS : $middle은 변수가되므로 하드 코딩 할 수 없습니다. 도움 주셔서 감사합니다.

Answer 1

왜 regexes를 사용 하시겠습니까?

($before, $after) = split(/$middle\.$middle/, $line); 

그리고 $before을 사용하고 $after 한 번씩 않고 한 번 $middle와 함께 마지막에 연결된 각각 문자열의 시작.