Perl如何向子程序传递参数以实现可复用的消息写入文件功能

基础通用实现（兼容所有Perl版本） #

Perl 子程序的所有入参默认会存入内置数组@_，你可以直接从该数组中提取参数，不需要提前声明参数列表，这种写法兼容所有Perl版本，适合现有老脚本修改。

步骤1：定义全局消息文件路径 #

在脚本顶部提前声明日志文件路径，确保子程序可以访问到：

# 替换为你的实际业务消息文件路径
my $message_file = '/data/log/business_notice.log';

步骤2：实现写消息子程序 #

sub filemessage {
    # 提取第一个入参，两种写法二选一即可
    my $arg1 = shift; # 等价于 shift @_
    # 另一种写法：my ($arg1) = @_;

    # 打开文件使用追加模式>>，避免每次调用覆盖之前的消息；增加错误捕获逻辑
    open my $fh, '>>', $message_file or do {
        warn "打开消息文件失败 $message_file: $!";
        return;
    };
    # 写入内容，换行符为\n而非你示例中的/n
    print $fh $arg1, "\n";
    # 关闭文件句柄
    close $fh;
}

步骤3：调用方式 #

和你预期的调用逻辑完全一致，在需要触发的位置直接传参调用即可：

filemessage("failed due to reason1");
filemessage("failed due to reason2");

带参数签名的实现（Perl 5.20+版本支持） #

如果你使用的Perl版本≥5.20，可以开启参数签名特性，写法更接近你最初的预期：

开启特性 #

在脚本顶部加入以下声明：

use feature 'signatures';
# Perl 5.20~5.36版本需要加下面一行屏蔽实验特性警告，5.36及以上正式支持签名可省略
no warnings 'experimental::signatures';

子程序实现 #

sub filemessage ($arg1) {
    open my $fh, '>>', $message_file or do {
        warn "打开消息文件失败 $message_file: $!";
        return;
    };
    print $fh $arg1, "\n";
    close $fh;
}

实用优化建议 #

可以在写入内容中增加时间戳，方便业务团队排查问题：

use POSIX qw(strftime);

sub filemessage ($arg1) {
    # 生成当前时间字符串
    my $current_time = strftime("%Y-%m-%d %H:%M:%S", localtime);
    open my $fh, '>>', $message_file or do {
        warn "打开消息文件失败 $message_file: $!";
        return;
    };
    print $fh "[$current_time] $arg1\n";
    close $fh;
}

写入后的日志格式示例：

[2024-05-20 14:30:22] failed due to reason1
[2024-05-20 14:30:25] failed due to reason2

内容的提问来源于stack exchange，提问作者user16012844