字符串转换的问题

glt66

字符串，[aaa][bbb][ccc][ddd]: eee ff(ck[S+] ppp[111333999] zz[S+]
转换为：\[aaa\]\[bbb\]\[ccc\]\[ddd\]: eee ff\(ck\[\S+\] ppp\[111333999\] zz\[\S+\]
表达式怎么写？

jason680

回复 1# glt66

# It seems fine and ok for \Q...\E or quotemeta function

$ cat quotemeta.pl
#! /usr/bin/env perl
use strict;
use warnings;

$_ = '[aaa][bbb][ccc][ddd]: eee ff(ck[S+] ppp[111333999] zz[S+]';
my $re = $_;
my $re_quoted = quotemeta($re);
print "quoted = $re_quoted\n";
if(m/$re_quoted/){
  print "quoted match!!!\n";
}
if(m/\Q$re\E/){
  print "\\Q\\E quoted match!!!\n";
}

$ perl quotemeta.pl
quoted = \[aaa\]\[bbb\]\[ccc\]\[ddd\]\:\ eee\ ff\(ck\[S\+\]\ ppp\[111333999\]\ zz\[S\+\]
quoted match!!!
\Q\E quoted match!!!

   

glt66

回复 2# jason680
多谢楼上，但我不想在有：和有空格的地方实现转义，该怎么办？


   

jason680

回复 3# glt66

Do it by yourself if you have the time and known enough

example: you can use it to add "\" by yourself
$re =~ s/([^\w: \t])/\\$1/g;