perl - 如何在 Perl 中将变量限定为 const/final？

Question

例如，在以下情况下，我不想更改 $infilename 的值初始化后程序中的任何位置。

my $infilename = "input_56_12.txt";
open my $fpin, '<', $infilename
    or die $!;

...
print "$infilename has $result matches\n";

close $fpin;

确保 $infilename 中的任何更改的正确方法是什么？不仅会导致警告，还会导致错误？

Answer 1

use Readonly;
Readonly my $infilename => "input_56_12.txt";

或使用较新的 Const::Fast模块:

use Const::Fast;
const my $infilename => "input_56_12.txt";