Perl 文字列の一部を取得するサンプル(substr)

Perlの文字列の一部を取得するサンプルです。

確認環境
・Perl 5.26.3

substrメソッド(引数3つ)
substrメソッド(引数2つ)

substrメソッド(引数3つ)

substr (対象の文字列, 開始位置,長さ)

1つめの引数の「対象の文字列」に対して、2つめの引数の「開始位置」から3つめの引数の「長さ」で文字列を取得します。
1文字目の位置は0です。
以下はPerl公式の日本語翻訳サイトのsubstrメソッドのリンクです。
http://perldoc.jp/func/substr

コード

substrメソッドの引数が3つのサンプルです。

#! /usr/bin/perl
use strict;
use warnings;

my $a = "abcde";

print substr($a,0,1); # a
print substr($a,1,1); # b
print substr($a,2,1); # c

print substr($a,0,3); # abc

print substr($a,2,2); # cd

7～9行目は、指定の位置から1文字取得しています。
11行目は、最初の文字「a」から3文字取得しています。
13行目は、途中にある文字の「c」から2文字取得しています。

substrメソッド(引数2つ)

substr (対象の文字列, 開始位置)

1つめの引数の「対象の文字列」に対して、2つめの引数の「開始位置」から最後までの文字を返します。
以下はPerl公式の日本語翻訳サイトのsubstrメソッドのリンクです。
http://perldoc.jp/func/substr

コード

substrメソッドの引数が2つのサンプルです。

#! /usr/bin/perl
use strict;
use warnings;

my $a = "abcde";

print substr($a,2); # cde

print substr($a,3); # de

print substr($a,4); # e

7,9,11行目とも、指定した位置の文字から最後の文字まで取得しています。