使用变量匹配遇到问题

zhenggb

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


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

churchmice

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


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

因为+是metacase
用\Q \E

1. 
   
2. !/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. my $str="a+baa";
   
6. my $str1="\na+baa\n";
   
7. if($str1=~m/\Q$str\E/){
   
8.         print "一样";
   
9. }else{
   
10.         print "不一样";
    
11. }
    

复制代码

Osment

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

flw

perldoc -f index

zhenggb

学习了，谢谢各位！！！