나는 등의 특수 문자로 모두 교체 할

Question

my $c= 'ODD_`!"£$%^&*(){}][@@;:/?.>,<|\' 

얼마나 빠른 방법이 achiveve ..

my $c= 'ODD_\`\!\"\£\$\%\^\&\*\(\)\{\}\]\[\@\,\;\:\/\?\.\>\,\<\|\\' 

Answer 1

사용 quotemeta :

#!/usr/bin/env perl 

use warnings; use strict; 

my $c = 'ODD_`!"£$%^&*(){}][@@;:/?.>,<|\\'; 

print quotemeta($c), "\n"; 

$c의 정의는 y로 컴파일되지 않습니다. 작은 따옴표로 묶은 문자열에서도 \을 피해야합니다.

Answer 2

Sinan의 대답이 내가 필요한 것으로 가정 할 때 (이스케이프 할 문자 목록을 기반으로) 생각합니다. 완성을 위해 HTML 텍스트의 메타 문자를 이스케이프 처리하는 모듈 URI::Escape을 추가 할 것입니다. 그것은 안전하지 않은 문자를 지정하는 몇 가지 기능을 가지고있는 것처럼 보이기 때문에 아마 당신을 도울 수 있습니다.