「Perl入門」前から検索し最初の文字列の位置を取得するサンプル

2022年6月27日

環境
Perl 5.32.1
Windows　10 home 64bit
構文
index (検索する文字列, 検索する文字列, 検索開始位置);
文字列の前から検索して引数に指定した文字列が出現した位置を返します。
該当の文字がなかったときは-1を返します。
先頭の1文字目の位置は0です。

使用例

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

my $tt = "山田太郎山田太郎";
print index($tt,'山')."\n"; 
print index($tt,'田')."\n"; 
print index($tt,'太郎')."\n"; 
print index($tt,'山田太郎')."\n"; 
print index($tt,'確')."\n";

実行結果

C:\study\skill\perl>perl 11.pl
0
1
2
0
-1