「Perl入門」後から検索し最初の文字列の位置を取得する

2022年6月28日

環境
Perl 5.32.1
Windows　10 home 64bit

書式
rndex (検索する文字列, 検索する文字列, 検索開始位置);
文字列の後から検索して引数に指定した文字列が出現した位置を返します。
先頭の1文字目の位置は0です。
該当の文字がなかったときは-1を返します。

使用例

#! /usr/bin/perl
use strict;
use warnings;
use utf8;

my $tt = "studystudy";
print rindex($tt,'s')."\n"; 
print rindex($tt,'t')."\n"; 
print rindex($tt,'u')."\n"; 
print rindex($tt,'stud')."\n"; 
print rindex($tt,'ttku')."\n";

実行結果

C:\study\skill\perl>perl 11.pl
5
6
7
5
-1