Perl的substr做了什么?

swa*_*nil 1 string perl substr

我的变量$var的形式为'abc.de'.这个substr在这个声明中做了什么:

$convar = substr($var,0,index(".",$var));
Run Code Online (Sandbox Code Playgroud)

Bri*_*new 5

index() 在另一个字符串中找到一个字符串并返回该字符串的索引或位置.

substr() 将返回2个位置之间的字符串的子串(从0开始).

看看上面的内容,我怀疑索引方法使用不正确(因为它的定义是索引STR,SUBSTR),它应该是

index($var, ".") 
Run Code Online (Sandbox Code Playgroud)

找到'.' 在'abc.de'中并确定"abc.de"的子字符串