perl 싱글쿼테이션 추가하는 방법

zcc13의 이미지

안녕하세요, perl을 사용해서 문자열 처리를 할 일이 있는데,

perl -pi -e 구문을 이용해서 문자열에 싱글쿼테이션을 추가할 수 있을까요??

my $r;
$r =`perl -ne 'print if 11..11' $file_name` ;

이렇게 어떤 파일에서 특정 라인을 찾은 다음에

이 $r 이라는 변수가 sun 이라면 perl -pi -e 구문을 이용해서 sun -> 'sun' 이렇게 파일에
치환 되도록 하고 싶습니다.

혹시 방법을 아시는 분 있으신가요...

익명 사용자의 이미지

익명 사용자의 이미지

open(my $fh, "<", $ARGV[0]) or die "open";

while (<$fh>) {
s/sun/'sun'/;
print;
}

실행은 perl snippet.pl filename > newfile 처럼 하면 되겠군요