使用变量匹配遇到问题

zhenggb

1^# zhenggb 发表于 2008-05-01 23:13

$str="a+baa";
$str1="\na+baa\n";
if($str1=~m/$str/){
print "一样的";
}else{
print "不一样的";
}

我的期望答案是"一样的"，怎样才能按纯字符去匹配呢？

churchmice

2^# churchmice 发表于 2008-05-01 23:25

QUOTE:

原帖由 zhenggb 于 2008-5-1 23:13 发表
$str="a+baa";
$str1="\na+baa\n";
if($str1=~m/$str/){
print "一样的";
}else{
print "不一样的";
}

我的期望答案是"一样的"，怎样才能按纯字符去匹配呢？

因为+是metacase
用\Q \E

[Copy to clipboard] [ - ]

CODE:

!/usr/bin/perl
use strict;
use warnings;
my $str="a+baa";
my $str1="\na+baa\n";
if($str1=~m/\Q$str\E/){
print "一样";
}else{
print "不一样";
}

Osment

3^# Osment 发表于 2008-05-01 23:32

对，是 + 字符给解释了缘故。

flw

4^# flw 发表于 2008-05-02 08:32

perldoc -f index

zhenggb

5^# zhenggb 发表于 2008-05-02 18:19

学习了，谢谢各位！！！