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

環境
Perl 5.32.1
Windows 10 home 64bit

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

使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
#! /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;
#! /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;
#! /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

Perl

Posted by arkgame