コマンド実行

コマンド：
perl 「Perl::Critic記載ファイル」「Perl::Critic対象ファイル」

(実行結果)

# perl checkCritic.pl testCode.pl
Code before strictures are enabled at line 1, column 1. See page 429 of PBP.
#

(Perl::Critic記載ファイル内容)

# cat checkCritic.pl
use Perl::Critic;
use warnings;
use utf8;

my $critic = Perl::Critic->new();

# arg is only one
if ( @ARGV == 1 ){
    my $checkFile = $ARGV[0];
    print $critic->critique($checkFile);

}else {
	print "arg is only one! arg1 is Perl::Critic check File!! \n";
}

#

(Perl::Critic対象ファイル内容)

# cat testCode.pl
print "Hello world";

#

出力結果を対象外とする場合

指定内容：
-exclude => ['strict']

newの引数に指定する
my $critic = Perl::Critic->new(-exclude => ['strict']);

(実行例)

# perl checkCritic.pl testCode.pl
#

(、、ん、何も出力されない。せめて問題なしのメッセージがほしい)

参照サイト：
Perl::Critic