「Perl入門」substrメソッドで開始位置を指定し文字列の一部を取得する
環境
Perl 5.32.1
Windows 10 home 64bit
書式
substr (対象の文字列, 開始位置,長さ)
1文字目の位置は0です。 引数1は対象の文字列です。 引数2は開始位置です。 引数3は文字列の長さです。
使用例
#! /usr/bin/perl use strict; use warnings; use utf8; binmode STDIN, ':encoding(cp932)'; binmode STDOUT, ':encoding(cp932)'; binmode STDERR, ':encoding(cp932)'; my $tt = "arkgame"; print("指定の位置から1文字取得する結果\n"); print substr($tt,0,1)."\n"; print substr($tt,1,1)."\n"; print substr($tt,2,1)."\n"; print("最初の文字「a」から4文字取得\n"); print substr($tt,0,4)."\n"; print substr($tt,2,2)."\n";
実行結果
C:\study\skill\perl>perl 11.pl 指定の位置から1文字取得する結果 a r k 最初の文字「a」から4文字取得 arkg kg