Perl index() 函数

这个函数返回一个字符串（或文本）中第一次出现的子串（或模式）的位置。我们可以指定起始位置。默认情况下，它从头开始搜索（即从索引0开始）。

语法:

从给定的索引开始搜索文本中的pat

index(text, pat, index)

在文本中搜索pat

index(text, pat)

参数

• text : 要搜索子串的字符串。
• pat : 要搜索的子串。
• index：起始索引（由用户设置，或者默认为0）。

返回：

-1，否则 返回 匹配字符串的位置。

例1 :

#!/usr/bin/perl
  
# String from which Substring 
# is to be searched 
string = "Geeks are the best";
  
# Using index() to search for substringindex = index (string, 'the');
  
# Printing the position of the substring
print "Position of 'the' in the string:index\n";

输出。

Position of 'the' in the string: 10

例2:

#!/usr/bin/perl
  
# String from which Substring 
# is to be searched 
string = "Geeks are the best";
  
# Defining the starting Indexpos = 3;
  
# Using index() to search for substring
index = index (string, 'Geeks', pos);
  
# Printing the position of the substring
print "Position of 'Geeks' in the string:index\n";

输出。

Position of 'Geeks' in the string: -1

这里，在第二个例子中，位置被设置为’3’，也就是说，搜索的起始索引是从第三位开始的。因此，子串在字符串中没有被发现。