rindexは、指定された文字列の中で、指定された部分文字列があった場合に、最後に見つかった場所の位置(前から数えて)を返す。
rindex関数 - 文字列 - Perl関数のリファレンス
3番目の検索終了位置がわかりにくいけど、
として実行すると、
$ vi rindex.pl $ perl rindex.pl 13 13 8 2 -1 $
$i1は、0から数えて13番目に、最後の"ABC"。
$i2は、13番目から始まる探索で終了なので、最後に見つかるカタチになる。
$i3は、そもそも12番目で探索を終了してしまうので、13番目より前の、8番目の"ABC"を最後とする。
$i4は、ここからは対象文字列を"CD"とし、複数は無いパターンに変えていて、2番目なら見つかるので2。
$i5は、1番目で終わってしまうので、そうすると見つからなかったということになるので、-1を返す。
Sample/perl/rindex/rindex/src/rindex at master · bg1bgst333/Sample · GitHub
