请教，如何在perl里匹配“【” or "】"

vio

例如匹配：
$str = "【关键词】";
$str =~ s/【//g; # not work

查了很多地方，没发现解决方法。
多谢！

cobrawgl

#!/usr/bin/perl

use strict;
use warnings;

use Encode;

my $src_str = '【关键词】';
my $src_p = '【';

my $test = decode('gb2312', $src_str);
my $pp = decode('gb2312', $src_p);

#print "ok" if $test =~ /\Q$pp\E/;
$test =~ s/\Q$pp\E//;
print encode('gb2312', $test);


_______________________

参考 http://want2know.blog.hexun.com/3423584_d.html

vio

感谢！
非常感谢!

fdimim

汗~还能问下上面的
\Q   \E 是做什么用的？只是说消元符，搞不懂作用

socyno

避免$pp中有元字符导致匹配错误

Lonki

原帖由 vio 于 2008-6-26 14:27 发表
例如匹配：
$str = "【关键词】";
$str =~ s/【//g; # not work

查了很多地方，没发现解决方法。
多谢！

试了下, Windows&Ubuntu下Perl5.8.8都没问题.
你源文件的编码?