perl에서 파이프로 구분 된 출력물의 빈 필드를 삭제 하시겠습니까?

Question

파일의 각 줄을 살펴보고 정규식을 사용하여 각 줄의 몇 가지 특정 항목을 찾고 출력용 .csv 파일의 각 행에 그 내용 (thing1|thing2|thing3|thing4|)이 포함되도록 인쇄하려고합니다. 내가

|||| 

다음

|||thing4| 

다음

|thing1||thing3|| 

과 같은 일을 얻을 라인으로 라인을 통해거야 나는 모든 것을 함께 밀기 위해 빈 파이프로 구분 된 영역을 삭제하는 방법을 모른다. 도움? thing2 | | thing3 |

Answer 1

당신은 정규식 thing1 같은

$out =~ s/\|{2}/|/sg;