Perlコーディング初心者質問スレ Part 65

[0827 nobodyさん 2014/03/13(木) 21:24:53.70 ID:???]

>>825
my $blank = ' ';

# 未定義ならば $blank に置換。// (defined-or 演算子) は Perl 5.10.0 以上
$tablehtml =~ s|__%%(.*?)%%__| $DATAHASH{$1} // $blank |eg;

# 空文字列ならば $blank に置換。
$tablehtml =~ s|__%%(.*?)%%__| length $DATAHASH{$1} ? $DATAHASH{$1} : $blank |eg;