Top > CGI(perl) > index


index( 検索対象の文字列 , 検索する文字 )

#!/usr/bin/perl

$num = "1234567890";
$four = index( $num , '4' );
$a = index( $num , 'a' );

print "Content-type:text/html\n\n";

print "文字列 = $num<br>";
print "4の位置(0オリジン) = $four<br>";
print "aの位置(0オリジン) = $a<br>";

●出力結果
文字列 = 1234567890
4の位置(0オリジン) = 3
aの位置(0オリジン) = -1

最初の文字位置を0からカウントされます。
見たまんまです。
見つからない文字の場合は-1が返されます。

rindexにすると最後尾からの検索になります。



Copyright © 2015 AchaPorutePiipo All Rights Reserved.