Perl을 사용하여 텍스트 변경

Question

Perl을 사용하여 일부 텍스트를 변경하고 싶습니다. 나는 문자열 "#blah bla blah"를 찾고 싶다 - 주석 처리를 해제하고이 문자열 다음에 문자열 "abh hhhh", "dddd ccccc"를 추가했다./m,/s, 또는 ..의 도움으로 어떻게 할 수 있습니까? 당신이 가지고있는 텍스트를 가정

는

Answer 1

이 주석을 제거해야하며, 끝으로 $suffix을 추가

my $suffix = 'abс hhhh dddd ccccc'; 
$string =~ s{#(blah bla blah)}{$1 $suffix}g; 

상세 정보 perldoc perlre 및 perldoc perlretut에 있습니다.

Answer 2

use strict; use warnings; 

while (<>) { 
    s/^#(blah bla blah)/$1 abс hhhh dddd ccccc/; 
} 

Answer 3

변수 $text에 있습니다

$text =~ s/(#blah bla blah)/$1 abс hhhh dddd ccccc/g; 

Answer 4

perl -pi -e 's/^#blah bla blah/blah bla blah abс hhhh dddd ccccc/g' your_file