twitterで見かけたつぶやきに対して。 先頭大文字、全部大文字、全部小文字の３パターンだけに仕様縮小。 もっと短く書きたいなぁ。 ver3

replace_case_sensitive.pl

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;

my $str = 'foo Foo FOO';
$str =~ s{(foo)}{ my $len = scalar split(/[A-Z]/,$1); ( $len == 0 ) ? 'BAR' : ( $len == 1 ) ? 'bar' : 'Bar' }ieg;

is($str, 'bar Bar BAR');

done_testing;