更具体地说，我想看看s1.domain.com是否存在于给定的字符串变量中。
index
if (index($str,$substr) != -1) { print "$str contains $substr\n"; }
它将返回$ str在$ str中第一次出现的位置，如果未找到子字符串，则返回-1。
