続きは・・・
関数：部分文字列を取り出す
substr関数を使って、文字列の一部を読み出したり、文字列の一部に書き込んだりすることができます。
substr(文字列 ,開始位置 , [開始位置からの文字数])
substrの第２引数は、文字列から取り出す部分文字列の開始位置を示します。この引数が正の値は、文字列の先頭から、負の場合は、文字列の末尾から数えます。
先頭から開始の場合には、開始位置は0と指定します。
第３引数が存在しない場合には、最後尾まで取り出します。存在する場合には、その文字数だけ取り出します。
プログラム 例
#!/usr/bin/perl
$string = "Hello World!";
print "文字列" , $string , "から部分文字列を取り出します。" , "\n";
$letter1 = substr($string , 0 , 1);
print "先頭から１文字目は、" , $letter1 , "\n";
$letter2 = substr($string , 6 , 5);
print "７文字目から５文字取り出すと、" , $letter2 , "\n";
$letter3 = substr($string , 6);
print "７文字目以降は、" , $letter3 , "\n";
$letter4 = substr($string , 0);
print "すべての文字列は、" , $letter4 , "\n";
例の実行結果
[it-engineer@home1 perl]# perl 20070521-1.pl
H
World
World!
Hello World!
[it-engineer@home1 perl]#
