在perl中匹配字符串和整数

Question

我有一串数字，例如“4 2 6 7”，还有一个整数变量 i 。如何确定 i 是否包含在字符串中？代码是用perl写的...

Answer 1

使用这个函数：

my $string = "4 2 6 7";
my $i = 4;
if ( $string =~ /\b$i\b/ ) {
    print "$string contains $i\n";
}

Answer 2

您可以使用 split 从字符串“4 2 6 7”创建一个数组，然后使用 grep 搜索该数组。

$ perl -wle 'if ( grep {$_ eq $i} split(" ", "4 2 6 7") ) {print "matched\n";}'

编辑：
或者您可以使用“==”而不是“eq”作为比较运算符来匹配数字而不是字符串。

Answer 3

为了好玩，~~ 智能匹配运算符：

use 5.012;
my $string = "4 2 6 7";
my @test = split /\s+/, $string;

for( 0 .. 9 ) {
    say "$_ is contained in $string" if $_ ~~ @test;
}

关于智能匹配运算符的强大功能的精彩讨论可以在 perlsyn。它可能有点棘手，因为它不是关联运算符，并且规则深深植根于 DWIMery 而不是一致性。但它非常强大。

Answer 4

使用此正则表达式将变量 i 与字边界匹配（假设您的数字字符串在每个整数后面都有一个空格）：

/\b$i\b/

Answer 5

这是一个不关心字符串的分隔符或格式的版本。它只是提取数字序列并将它们与搜索模式进行比较。

为了方便起见，我把它做成了一个子程序和一个函数程序。

use warnings;
use strict;

my $string = "4 22 6 7";
my $i = shift; # number you want to search for
print "Checking '$string' for: '$i'\n";
print "Result is: ", (is_in($string, $i) ? "Yes" : "No");

sub is_in {
    my ($string, $i) = @_;
    while ( $string =~ /(\d+)/g ) {
        return 1 if ( $1 == $i );
    }
    return 0;
}

输出示例：

C:\perl>t4.pl 4
Checking '4 22 6 7' for: '4'
Result is: Yes
C:\perl>t4.pl 22
checking '4 22 6 7' for: '22'
Result is: Yes
C:\perl>t4.pl 2
checking '4 22 6 7' for: '2'
Result is: No

Answer 6

您可以借助 split 函数轻松完成此操作。

use warnings;

my $string = "4 2 6 7";
my $i = 6; #use any value of $i

my @x = split / /, $string;
my $count = 0;

foreach (@x)
{
     if($_ == $i) 
     { 
     print "matched at position $count"; die $!;
     }

$count++;
}
print "integer doesn't found in string";

在键盘上尝试一下：http://codepad.org/f5a86c9s