「Perl入門」substrメソッドで文字を置き換えるサンプル

2022年6月28日

環境
Perl 5.32.1
Windows　10 home 64bit

書式
substr (対象の文字列, 開始位置,長さ, 置換後の文字);

1文字目の位置は0です。
引数2は検索を開始する位置です。
引数3は文字列の長さ
引数4は置換後の文字

使用例

#! /usr/bin/perl
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my $tt = "AAA#AAA";

substr($tt, 0, 1, "t"); 
print ("対象の文字列の1文字目のAをtに置換\n");
print $tt."\n"; 

my $ss = "CCC&CCC";
print ("対象の文字列の1文字目と2文字目のCをrに置換\n");
substr($ss, 0, 2, "r"); 

print $ss."\n";

実行結果
C:\study\skill\perl>perl 11.pl
対象の文字列の1文字目のAをtに置換
tAA#AAA
対象の文字列の1文字目と2文字目のCをrに置換
rC&CCC