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

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

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

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

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

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

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

print $num;

最終更新日:

関連記事

人気記事

新着情報