홈>

regex - 하나의 Perl 명령으로 여러 번 대체 할 수 있습니까?

다음을 하나의 perl -pe 로 만드는 방법이 있습니까?  순서대로 배관하는 대신

cat text.txt | perl -pe "s/PATTERN1/$PATTERN1/g" | perl -pe "s/PATTERN2/$PATTERN2/g"
regexperl

  • 답변 # 1

    댓글에 대한 답변은 완벽하지만, 재미있게하기위한 구피 방법이 있습니다 :

    perl -pe '$_ = s/PATTERN1/$PATTERN1/gr =~ s/PATTERN2/$PATTERN2/gr' text.txt

    어쨌든 파이프를 전혀 사용할 필요가 없습니다. 파일 이름을 마지막 인수로 추가하십시오.

    참고로 여기에 가장 좋은 답변이 있습니다 :

    perl -pe 's/PATTERN1/$PATTERN1/g; s/PATTERN2/$PATTERN2/g' text.txt

관련 자료

  • 이전 openembedded - 욕토 레시피의 의존성
  • 다음 c++ - 함수 반환에 액션을 위임하는 방법은 무엇입니까?