cpanm Perl::Tidy

# 格式化文件
perltidy script.pl

# 使用配置文件
# .perltidyrc

cpanm Perl::Critic

# 检查代码（5 级严格度）
perlcritic script.pl
perlcritic --severity 1 script.pl   # 最严格
perlcritic --severity 5 script.pl   # 仅严重问题

# 使用特定策略
perlcritic --verbose '%f:%l: %m (%s)\n' script.pl

# 生成配置文件
perlcritic --profile-proto > .perlcriticrc

severity = 3
verbose  = 8

[-ValuesAndExpressions::ProhibitConstantPragma]
[-Subroutines::ProhibitSubroutinePrototypes]

[TestingAndDebugging::RequireUseStrict]
severity = 1

[TestingAndDebugging::RequireUseWarnings]
severity = 1

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use feature 'say';
use autodie;

# 如果是 Perl 5.38+
# use v5.38;
# 使用内置的 try/catch

# 1. 使用 say 替代 print ... "\n"
say "Hello, World!";

# 2. 使用 // 设默认值
my $name = $input // "anonymous";

# 3. 使用 //= 就地设置默认值
$count //= 0;

# 4. 使用 postfix dereference（Perl 5.24+）
my @items = $array_ref->@*;
my %data  = $hash_ref->%*;

# 5. 使用 try/catch（Perl 5.38+）
use feature 'try';
try {
    do_something();
} catch ($e) {
    warn "Error: $e";
}

# 6. 使用 class（Perl 5.38+）
use feature 'class';
class Point {
    field $x :param = 0;
    field $y :param = 0;
}

# 好的命名
my $user_count = get_user_count();
my $is_valid   = validate_input($data);
my @active_users = grep { $_->is_active } @users;

# 不好的命名
my $x = get_uc();
my $flag = vi($data);
my @arr = grep { $_->ia } @arr2;

# 1. 总是使用 Try::Tiny 或 try/catch
use Try::Tiny;
try {
    do_risky_operation();
} catch {
    log_error("操作失败: $_");
    return;
};

# 2. 区分致命错误和非致命错误
sub read_config {
    my ($file) = @_;
    
    # 致命：配置文件必须存在
    open my $fh, '<', $file or die "无法读取配置: $!\n";
    
    # 非致命：可以跳过空行
    my @lines;
    while (my $line = <$fh>) {
        chomp $line;
        next if $line =~ /^\s*#/;   # 跳过注释
        next if $line =~ /^\s*$/;   # 跳过空行
        push @lines, $line;
    }
    
    close $fh;
    return \@lines;
}

# 3. 使用 Carp 获取调用者信息
use Carp qw(croak confess);

sub divide {
    my ($a, $b) = @_;
    croak "Division by zero" unless $b;
    return $a / $b;
}

# 使用 Log::Log4perl（推荐）
use Log::Log4perl qw(:easy);
Log::Log4perl->easy_init({
    level  => $DEBUG,
    layout => '%d [%p] %m%n',
    file   => ">> app.log",
});

my $log = get_logger();

# 使用
$log->debug("调试信息");
$log->info("处理请求");
$log->warn("警告：配置缺失");
$log->error("严重错误：数据库连接失败");
$log->fatal("致命错误，程序退出");

#!/usr/bin/env perl
use strict;
use warnings;

# 生产环境
$ENV{MOJO_MODE} = 'production';

# 关闭调试信息
$ENV{MOJO_LOG_LEVEL} = 'warn';

# 日志文件
use Log::Log4perl;
Log::Log4perl->init('/etc/myapp/log4perl.conf');

# 错误处理
$SIG{__DIE__} = sub {
    my ($err) = @_;
    Log::Log4perl->get_logger->fatal($err);
};

# 优雅退出
$SIG{TERM} = $SIG{INT} = sub {
    print "收到终止信号，正在关闭...\n";
    # 清理资源
    exit 0;
};

# 永远不信任用户输入
sub validate_email {
    my ($email) = @_;
    return unless defined $email;
    return unless $email =~ /^[\w.+-]+\@[\w-]+\.[\w.]+$/;
    return 1;
}

sub sanitize_input {
    my ($input) = @_;
    return "" unless defined $input;
    $input =~ s/<[^>]*>//g;     # 去除 HTML 标签
    $input =~ s/[^\w\s.-]//g;   # 只保留安全字符
    return $input;
}

# 错误！
$dbh->do("SELECT * FROM users WHERE name = '$name'");

# 正确！使用占位符
$dbh->do("SELECT * FROM users WHERE name = ?", undef, $name);

use Crypt::Bcrypt qw(bcrypt_hash bcrypt_verify);

# 加密
my $hashed = bcrypt_hash({
    password => $plain_password,
    cost     => 12,
});

# 验证
if (bcrypt_verify($input_password, $stored_hash)) {
    say "密码正确";
}