如果字符串以特定的字符串结束，则写入条件

Posted 2021-03-19

我有一个字符串 "John says hello"。我怎样才能写一个 if 条件，它的工作原理是这样的：如果字符串的结尾是 "says hello"，那么......？

我想过像这样先用正则表达式把字符串分开。

$r =~ /(w+) (w+) (.+)/;
my($user,$msg) = ($1,"$2 $3");
if ($msg eq "says hello"){
....
}

但是，我想在写的时候不用正则表达式来分隔它. 怎样才能做到这一点呢？

答案

一种方法是将regex锚定在字符串末尾，使用 $:

use warnings;
use strict;

my $r = 'John says hello';    
if ($r =~ /says hello$/){
    print "found
"
}

你可以通过将你的信息存储在一个变量中来概括这个问题。

my $r = 'John says hello';
my $msg = 'says hello';
if ($r =~ /$msg$/){
    print "found
"
}

如果你的信息可能包含了regex元字符，你可以通过使用 Q:

if ($r =~ /Q$msg$/){

一个良好的资源是 perldoc perlretut