爲什麼在Perl指數函數的行爲出現異常這裏

Question

下面是示例代碼：

my $test = "Mike Xavier Smith/123-45-1111/student"; 
my $name = substr($test, 0, index($test, "/")); 
my $ssn = substr($test,index($test,"/")); 
my $type = substr($test,index($test, "/", 2)); 
print "$name, $ssn, $type \n"; 
exit; 

輸出： 邁克·澤維爾·史密斯/ 123-45-1111 /學生/ 123-45-1111 /學生

This line substr（$ test，index（$ test，「/」，2））; #offset應該來自第二次出現的「/」，這意味着它應該打印/學生。
但是爲什麼從第一次出現「/」打印呢？

Answer 1

這不是index的第三個參數。

my $test = "Mike Xavier Smith/123-45-1111/student"; 

my $start = 0; 
my $end = index($test, "/", $start); 
my $name = substr($test, $start, $end); 

$start = $end+1; 
$end = index($test, "/", $start); 
my $ssn = substr($test, $start, $end); 

$start = $end+1; 
$end = index($test, "/", $start); 
my $type = substr($test, $start, $end); 

print "$name, $ssn, $type\n"; 

大多數人只會使用split。

my $test = "Mike Xavier Smith/123-45-1111/student"; 
my ($name, $ssn, $type) = split(qr{/}, $test); 
print "$name, $ssn, $type\n";