Perl - 如果字符串包含文本？

Question

我想使用curl来查看页面的源代码，如果该源代码包含与字符串匹配的单词，那么它将执行打印。我该如何执行if $string contains？

在VB中会是这样的。

dim string1 as string = "1"
If string1.contains("1") Then
Code here...
End If

与此类似，但在 Perl 中。

Answer 1

如果您只需要在另一个字符串中搜索一个字符串，请使用 index< /a> 函数（或者 rindex 如果你想开始从字符串末尾扫描）：

if (index($string, $substring) != -1) {
   print "'$string' contains '$substring'\n";
}

搜索字符串对于模式匹配，请使用匹配运算符m//：

if ($string =~ m/pattern/) {  # the initial m is optional if "/" is the delimiter
    print "'$string' matches the pattern\n";       
}

Answer 2

if ($string =~ m/something/) {
   # Do work
}

其中 something 是正则表达式。

Answer 3

对于不区分大小写的字符串搜索，请使用 index （或rindex) 与 fc。此示例扩展了 Eugene Yamash 的答案：

use feature qw( fc ); 
my $str = "Abc"; 
my $substr = "aB"; 

print "found" if index( fc $str, fc $substr ) != -1;
# Prints: found

print "found" if rindex( fc $str, fc $substr ) != -1;
# Prints: found

$str = "Abc";
$substr = "bA";

print "found" if index( fc $str, fc $substr ) != -1;
# Prints nothing

print "found" if rindex( fc $str, fc $substr ) != -1;
# Prints nothing

如果未找到子字符串，index 和 rindex 都会返回 -1。
fc 返回其字符串参数的大小写版本，应该在这里使用，而不是（更熟悉的）uc 或 lc。请记住启用此功能，例如使用 use feature qw( fc );。

详细信息：

来自 fc 文档：

大小写折叠是将字符串映射到消除大小写差异的形式的过程；比较大小写形式的两个字符串实际上是询问两个字符串是否相等（无论大小写）的一种方法。

来自 Unicode 常见问题解答：

问：大小写映射和大小写折叠有什么区别？

A：大小写映射或大小写转换是字符串转换的过程
转换为特定形式——大写、小写或
titlecase——可能用于向用户显示。箱体折叠大部分是
用于文本的无大小写比较，例如文本中的标识符
计算机程序，而不是实际的文本转换。表壳折叠
Unicode 中主要基于小写映射，但包括
对源文本进行额外更改以帮助实现
语言不敏感且一致。结果，大小写折叠的文本
应仅用于内部处理，一般不应
被存储或显示给最终用户。