Perl中sprintf返回参数个数而非字符串的问题排查与修复

你遇到的额外输出"3"，是因为Perl的子例程（sub）在没有显式return语句时，会返回最后一条执行语句的结果。你的myPrintf函数最后一行是print "$text\n";，这条print语句的返回值（在部分环境下是输出的字节数）被作为子例程的返回值，如果代码在交互式解释器（Perl REPL）中运行，解释器会自动打印这个返回值，就出现了第二行的"3"。

另外你的代码还存在换行冗余问题：格式串包含\n，printf(@_)已经输出带换行的内容，sprintf(@_)又生成同样带换行的字符串，再执行print "$text\n"会多输出一个换行，和预期输出不符。

修复方法 #

方法1：添加显式return语句 #

在myPrintf函数末尾添加return;，避免子例程返回值被意外输出：

#!/usr/bin/perl

sub myPrintf
{
    printf (@_);
    
    my $text = sprintf (@_);
    
    print "$text\n";
    return; # 显式返回空值，阻止返回值被输出
}

myPrintf("X%.3f Y%.3f\n", 1.223243, 4.567567);

my $t2 = sprintf("X%.3f Y%.3f\n", 1.223243, 4.567567);
print "$t2";

方法2：优化换行逻辑（更贴合预期） #

调整格式串和输出逻辑，消除冗余换行，确保输出符合预期：

#!/usr/bin/perl

sub myPrintf
{
    my $formatted = sprintf(@_);
    printf("%s\n", $formatted); # 输出第一行
    print "$formatted\n";       # 输出第二行
    return;
}

# 格式串去掉末尾的\n，由输出逻辑统一添加
myPrintf("X%.3f Y%.3f", 1.223243, 4.567567);

my $t2 = sprintf("X%.3f Y%.3f\n", 1.223243, 4.567567);
print "$t2";

修复后运行代码，就能得到你预期的三行输出：

X1.223 Y4.568
X1.223 Y4.568
X1.223 Y4.568

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