Perlで文字列を置換した数を算出する | サラトガIT日記

Perlで文字列を置換した数を算出する

サラトガIT日記 > Perl > Perlで文字列を置換した数を算出する

※実経験の記憶を頼りに自宅の PC 環境(VMWareなど)で再現している内容もあるのでご注意下さい

2009-07-08

Perl で、とある文字列から 0 の文字の数を算出したいと思って何か便利な関数がないか探してみました。今回の対象となる文字列は、0 または 1 がハイフンで区切られている文字列で文字数もそれほど多くありません。

最初は配列に格納してカウントしようかと考えていましたが、文字列置換の戻り値で、置換した数が返されることが判明したのでそれを使います。

# 対象文字列
my $yesno = "0-1-0-1-1-0-0-0-1-1";

# 0を置換した数を取得
$num = ($yesno =~ s/0//g);

print $num;

関連記事

上記の記事に関連する記事(最新の10件)です。