「Perl入門」正規表現式で文字を置き換えるサンプル

2022年6月28日

環境
Perl 5.32.1
Windows　10 home 64bit

構文
s /置換前の文字/置換後の文字/オプション
１つめの引数の文字を2つめの引数の文字に置き換えます。
オプションにgを付加すると、すべての文字を置き換えます。

使用例

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

my $tt = "AAA*AAA";

$tt =~ s/A/h/g;

print $tt."\n"; 

my $ss = "BBB/BBB";

$ss =~ s/B/k/;

print $ss;

実行結果
C:\study\skill\perl>perl 11.pl
hhh*hhh
kBB/BBB

Posted by arkgame