请问一个正则表达中用到元字符的问题!

jdewei

我在用perl处理文档时.比如有两个字符串:
$str1="1102a#robin|TCP|5|15|null|null 1102b#robin|HTTP|6|16|HEAD /|null";
$str2="advtest#robinweight|TCP|5|15|null|null test#robin|TCP|5|10|null|null";
if($str1!~/$str2/) 却总为假.....也就是说它认为$str1 $str2是相同的.
是不是字符串里面的一些元字符所影响?有什么办法跳过元字符?不能用"\".因为这些字符是我在另外的字符串中分离出来的..
只能在正则表达中做这一步....而且不能破坏$str1和$str2..

[ 本帖最后由 jdewei 于 2006-11-6 14:33 编辑 ]

alexru

"|"线的问题，你可以把它先转化为别的符号再比较

[ 本帖最后由 alexru 于 2006-11-6 14:51 编辑 ]

flw

if ( $str1 !~ /\Q$str2/ )

jdewei

原帖由 flw 于 2006-11-6 15:05 发表
if ( $str1 !~ /\Q$str2/ )

呵呵..
\Q  ——  引起（消元）直到\E前面的字符 (Perl语言学习(第三版中文版));
基础没学好...谢谢....

flw

呵呵，慢慢来，不着急，碰到问题先查查书。

atgc

这样也行
$str1='1102a#robin|TCP|5|15|null|null 1102b#robin|HTTP|6|16|HEAD /|null';
$str2='advtest#robinweight|TCP|5|15|null|null test#robin|TCP|5|10|null|null';
$str3=quotemeta($str2);
print 'true' if ($str1!~/$str3/);

这里，字符串最好用单引号

[ 本帖最后由 atgc 于 2006-11-6 18:43 编辑 ]

Namelessxp

用消元符比较简单

alexru

原帖由 Namelessxp 于 2006-11-6 18:55 发表
用消元符比较简单

同意！

quotemeta
        Returns the value of EXPR with all non-"word" characters
        backslashed. (That is, all characters not matching
        "/[A-Za-z_0-9]/" will be preceded by a backslash in the returned
        string, regardless of any locale settings.) This is the internal
        function implementing the "\Q" escape in double-quoted strings.

        If EXPR is omitted, uses $_.

[ 本帖最后由 alexru 于 2006-11-6 19:12 编辑 ]

aaronvox

长知识
书总看 也总忘