正则表达式 – 在perl中搜索括号

发布时间：2020-12-14 06:04:00 所属栏目：百科来源：网络整理

导读：编写一个程序,我从一个文件中读取一个单词/符号列表,然后在另一个文本正文中搜索每一个. 所以它是这样的： while(FILE){ $findword = $_; for (@text){ if ($_=~ /$find/){ push(@found,$_); } }} 但是,一旦括号出现,我就遇到了麻烦.它给了我这个错误： Unma

编写一个程序,我从一个文件中读取一个单词/符号列表,然后在另一个文本正文中搜索每一个.

所以它是这样的：

while(<FILE>){
    $findword = $_;

    for (@text){
        if ($_=~ /$find/){
            push(@found,$_);
        }
    }
}

但是,一旦括号出现,我就遇到了麻烦.它给了我这个错误：

Unmatched ( in regex; marked by <-- HERE in m/( <-- HERE

我意识到这是因为Perl认为(是正则表达式的一部分,但我如何处理这个并使(可搜索？)

解决方法

你可以使用 Q and E：

if ($_ =~ /Q$findE/){

或者只是使用index,如果你只是寻找文字匹配：

if(index($_,$find) >= 0) {

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!