hirose31 https://blog.hatena.ne.jp/hirose31/ （ひ）メモ https://hirose31.hatenablog.jp/ perl DRYではない気がするけど、実行するスクリプトやモジュールにいちいち、 BEGIN { if ($ENV{SMART_COMMENTS}) { use UNIVERSAL::require; Smart::Comments->use; } }もしくは BEGIN { if ($ENV{SMART_COMMENTS}) { my @p = map { '#'x$_ } ($ENV{SMART_COMMENTS} =~ /([345])\s*/g); use UNIVERSAL::require; Smart::Comments->use(@p); } }と書いておくのはどうだろう？後者だと、デバ… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fhirose31.hatenablog.jp%2Fentry%2F20061009%2F1160399700" title=" 実行時に、デバッグメッセージの表示/非表示を切り替える w/ Smart::Comments - （ひ）メモ" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2006-10-09 22:15:00 rich https://hirose31.hatenablog.jp/entry/20061009/1160399700 1.0 100%