オプション |
c |
検索文字列に含まれない文字を探します。 |
d |
検索文字列に対応する置換文字列が無い場合にその文字を削除します。 |
s |
置き換えた結果,同じ文字が連続した場合に連続したものを1文字にします。 |
説明
- 検索文字列に含まれる文字を,対応する置換文字列の文字に変換します。
- tr///を使っても同じことができます。
使用例
変数$strの文字を置換する
#!/usr/bin/perl
use strict;
use warnings;
my $str = '1a2b3c4d';
# 1→A 2→B 3→C に置換する
$str =~ y/123/ABC/;
print $str, "\n"; # AaBbCc4d
変数$strの小文字を大文字に置換する
#!/usr/bin/perl
use strict;
use warnings;
my $str = "Let's enjoy Perl!";
$str =~ y/a-z/A-Z/;
print $str, "\n"; # LET'S ENJOY PERL!
変数$strのアルファベットの数を数える
#!/usr/bin/perl
use strict;
use warnings;
my $str = "Let's enjoy Perl!";
my $count = ($str =~ y/a-zA-Z//);
print $count, "\n"; # 13
変数$strのアルファベット以外の数を数える
#!/usr/bin/perl
use strict;
use warnings;
my $str = "Let's enjoy Perl!";
my $count = ($str =~ y/a-zA-Z//c);
print $count, "\n"; # 4
変数$strのアルファベットを削除する
#!/usr/bin/perl
use strict;
use warnings;
my $str = "Let's enjoy Perl!";
$str =~ y/a-zA-Z//d;
print $str, "\n"; # ' !
変数$strの連続した空白を一つにする
#!/usr/bin/perl
use strict;
use warnings;
my $str = "Let's enjoy Perl!";
$str =~ y/ //s;
print $str, "\n"; # Let's enjoy Perl!