关于$string匹配$str的问题．

关于$string匹配$str的问题．
　由于标题不够明确，我把我的问题再提一次，不好意思！
任意给$string="da ddfd dsdfd dgdg ? dfdg . dgfd ?";
判断其中是否有$str(可变),需完全匹配,$str也可能为标点符号
例如：$string="dd ? df";
我希望$string不仅能匹配出dd,?,df,还能匹配"dd ?",　"? df".
谢谢！

   

你最好给出真实的例子，不.
你最好给出真实的例子，不要 asdflkjsaflaj;fjslfdjdsal;dfj 这样子，没意思。

好的!
好的!
小弟要处理的文本:
what 's that ?
do i have to dress up ?
could you tell me how to get to the opera ?
tonight ? i think tonight is already full , but i 'll check .
all right , sir. it comes with a choice of french fries or rice pilaf.
????????????????????
我想要统计一下句子中每个单词出现的概率，包括每个标点符号，还希望统计一下每个单词即其后继单词出现的概率（例如 's 出现在 what 之后的概率）。
我的问题：
对于： tonight ? i think tonight is already full , but i 'll check .
我想先判断它先是否含有单词 i ,如果再判断它是否含有词对 i think ,该怎么表示？
谢谢！

   

try qr'' operator
you can refer to qr'' opearator in perlop section. This snippet is copied from that section:
sub match {
my $patterns = shift;
my @compiled = map qr/$_/i, @$patterns;
grep {
my $success = 0;
foreach my $pat (@compiled) {
$success = 1, last if /$pat/;
}
$success;
} @_;
}

you can put all of your patterns into $patterns at first.

[CCB]10[/CCB].
[CCB]10[/CCB]

你可以参阅Perl手册中“引.
你可以参阅Perl手册中“引起构造”这部分，
qr// 跟qw//类似，只是里边放的是正则表达式