perl, 如何使用SmartComments

可以使用use if $ENV{DEBUG} => ‘Smart::Comments’;在运行脚本的时候决定是不是要显示debug的内容。
比如：

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use feature 'say';

use if $ENV{DEBUG} => 'Smart::Comments';

my @a_arr = (1, 2, 3, 4, 5);

### @a_arr

DEBUG=1 perl SmartComments.pl
运行结果：

当然可以直接使用use Smart::Comments;