「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

 

Perl

Posted by arkgame