为什么Perl`printf`改变了我的$变量的值？

Question

我试图了解this secure coding example中发生的事情。

我重写了代码以更好地支持我的问题：

#!/usr/bin/perl

use warnings;
use strict;

use Data::Dumper;

my $prompt = 'name%n';     # The bad coding practice from the exercise.
my $password = 'badpass';

my $is_ok = ($password eq "goodpass");
print Dumper( $is_ok );

print "\n$prompt: Password ok? $is_ok\n";
print Dumper( $is_ok );

$is_ok = ($password eq "goodpass");
printf "\n$prompt: Password ok? %d\n" , $is_ok;
print Dumper( $is_ok );

当我执行脚本时，输出如下：

$ ./authenticate.pl
$VAR1 = '';

name%n: Password ok?
$VAR1 = '';
Missing argument in printf at ./authenticate.pl line 19.

name: Password ok? 0
$VAR1 = 5;

显然$is_ok被%n $prompt消耗，%d离开$is_ok没有匹配的参数。但我不希望$is_ok改变值，为什么5被printf语句设置为{{1}}？

Answer 1

因为那是%n的作用。

perldoc -f sprintf：

           %n    special: *stores* the number of characters output so far
                 into the next argument in the parameter list

解决方案是：

printf "\n%s: Password ok? %d\n", $prompt, $is_ok;