문자열 찾기 및 연결

Question

일부 구두점 문자를 찾아 공백으로 연결하고 싶습니다.

예 : 구두점이 있으면 그 앞뒤에 공백을 추가하고 싶습니다.

$line =~ s/[?%&!,.%*\[◦\]\\;@<>{}#^=\+()\$]/" $1 "/g ; 

나는 우리가 $1를 사용할 수있는 PHP에서 사용되는 $를 사용하려했지만 작동하지 않았다. 웹에서 검색했는데 Perl 구문을 찾을 수 없습니까?

또한 ...을 단일 토큰으로 어떻게 보존 할 수 있습니까?

내 문제의 진정한 구문은 무엇입니까?

Answer 1

당신은 $1

$line =~ s/([?%&!,.%*\[◦\]\\;@<>{}#^=\+\(\)\$])/ $1 /g; 

EDIT 내가 '보존 할 수있는 방법

(OP의 의견에 따라)로 캡처 ()와 일치하는 패턴을 묶어야합니다 .. 하나의 토큰?

한 가지 방법은 해당 토큰의 변경 사항을 되돌리는 것입니다.

$line =~ s/ \. \. \. /.../g; 

Answer 2

사용이 :

#!/usr/bin/perl -w 
use strict; 

my $string = "For example; If i found any puncs. above list, i want to add spaces to front and end of token."; 

$string =~ s/([[:punct:]])/ $1 /g; 

print "$string\n"; 

출력 : 당신이 위에서 다른 사용자의 출력을 원하는 경우

For example ; If i found any puncs . above list , i want to add spaces to front and end of token . 

분명히

• 는, 당신은 단지 / / 사이에-추가 할 수 있습니다 - 난 그냥했습니다 모든 구두점을 "구두점"으로 대체했습니다.