Perlでの文字列操作と関数

Perlでの文字列操作系に関してダラダラと書いていく。

substr　・・・　ある指定した文字数番目から指定した文字数を抜き出す関数。

use strict;
use warnings;

my $test_str;
$test_str=”abcdefghijklmn”;
my $answer;
$answer=substr($test_str,0,7);
print “###substrのテスト\n”;
print $answer.”\n”;

実行結果は↓

abcdefg

index　・・・　対象の文字列に指定した文字列があるかないかを調べる。なければ-1を返す。

use strict;
use warnings;
my $test_str;
$test_str=”abcdefghijklmn”;
my $answer;
$answer=index($test_str,”ghi”);
print “###indexのテスト\n”;
print $answer.”\n”;

実行結果は↓

###indexのテスト
6

rindex　・・・　対象の文字列から指定した文字列が最後に登場した位置を返す。

use strict;
use warnings;

my $test_str;
$test_str=”ab1cde1fghijk1lmn”;
my $answer;

$answer=rindex($test_str,’1′);
print “###rindexのテスト\n”;
print $answer.”\n”;

実行結果は↓

###rindexのテスト
13

タグ