Question

perl 正则表达式 匹配 问题

my $str="gi|89106981|ref|AP_000761.1|";
my $s=">gi|89106885|ref|AP_000665.1| thr operon leader peptide [Escherichia coli str. K-12 substr. W3110]";
if ($s=~/^>\$str/) {
print "u";
}
运行是错误的，那应该怎样写呢？

Answer 1

$str里面的字符需要转义，my $str="gi\\|89106981\\|ref\\|AP_000761\\.1\\|";
其实还可以这样写：
my $str=qr"^>gi\|89106981\|ref\|AP_000761\.1\|";
my $s=">gi|89106885|ref|AP_000665.1| thr operon leader peptide [Escherichia coli str. K-12 substr. W3110]";
if ($s=~$str) {
print "u";
}

Answer 2

可以写成$s =~ /^>\Q$str\E/
告诉编译器匹配$str这个变量

Answer 3

匹配里不要加\，直接$

追问

直接加了是能算出来，不过应该是错的。因为在你说的情况下，把$str文本内容改下也能 print 出来。

Answer 4

\把$转义了