문자열이 주어진 문자열로 시작하는지 확인하십시오.

Question

"5 : 16 : 51 : 209 | INFO |"다음의 메시지가 "마커"로 시작하는지 확인하려고합니다. timestamp 후에 문자열 "| ICD"를 추가해야합니다. 나는이 정규식을 시도했다 "Markerprocedure 자석 | | 정보 209 : 05 : 16 : 51"

있지만 작동하지

입력입니다. 제발 도와주세요. 당신이 확인하려는 날 것으로 보인다 무엇

if ($lines[$i] =~ m/(\d{2}:\d{2}:\d{2}:\d{3})|(\w+)|^Marker/) 
{ 

    $lines[$i] =~ s/(\d{2}:\d{2}:\d{2}:\d{3})(.*)/$1|ICD$2/ ; 

} 

Answer 1

I am trying to check if message after "5:16:51:209|INFO| " starts with "Marker" 

Marker바로 그 시작 있는지 여부를 확인하기 때문에5:16:51:209|INFO| 그렇게는 ^ 정규식 문자를 사용하는 것이 정확하지 않은 다음 여부 문자열은 그 위치에서 발생합니다 (물론, 그렇지 않습니다). 따라서 ^ 문자를 제거하면 Perl은 Marker이 바로 다음에 있는지 확인합니다.

또한 문자를 \|과 같이 이스케이프 처리해야 정규식에서 대체 명령으로 취급되지 않습니다. 그런 다음 테스트를 단일 대체 명령 대체 할 수

if ($lines[$i] =~ s/(\d{2}:\d{2}:\d{2}:\d{3})(\|\w+\|Marker)/$1|ICD$2/) 
{ 
    # Line contained "Marker" and "|ICD" inserted 
} 

예 :

$ echo '15:16:51:209|INFO|Marker blah' | perl -ple 's/(\d{2}:\d{2}:\d{2}:\d{3})(\|\w+\|Marker)/$1|ICD$2/' 

출력은 다음과 같습니다

15:16:51:209|ICD|INFO|Marker blah 

편집 : @Prix는 지적했다 시간 소인이 문자열의 시작 부분에 표시 될 예정이면 ^ 시작 마커는 정규식의 시작 부분에 있어야한다는 의견 문자열 (및 성능)의 다른 부분에서 실수로 일치 방지 :

s/^(\d{2}:\d{2}:\d{2}:\d{3})(\|\w+\|Marker)/$1|ICD$2/ 
    ↑ 
    Use^here to anchor the search to the beginning of the string.