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

vio

UID: 37303
帖子: 154
积分: 354
在线时间: 1 天 8 小时

1^# vio 发表于 2008-06-26 14:27

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

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

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

cobrawgl

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

2^# cobrawgl 发表于 2008-06-26 16:38

#!/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

UID: 37303
帖子: 154
积分: 354
在线时间: 1 天 8 小时

3^# vio 发表于 2008-06-26 17:29

感谢！
非常感谢!

fdimim

UID: 17112
帖子: 1
积分: 2
在线时间: 10 分钟

4^# fdimim 发表于 2008-06-27 21:05

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

socyno

UID: 40994
帖子: 0
积分: 0
在线时间: 10 分钟

5^# socyno 发表于 2008-07-02 21:36

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

Lonki

UID: 21498
帖子: 1
积分: 2
在线时间: 10 分钟

6^# Lonki 发表于 2008-07-02 23:21

QUOTE:

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

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

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

请教，如何在perl里匹配“【” or &quot;】&quot;

请教，如何在perl里匹配“【” or &quot;】&quot;

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

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