代码之家 › 专栏 › 技术社区 › Aakash Goel

如何在Perl中将变量限定为const/final?

const perl

Aakash Goel · 技术社区 · 14 年前

例如,在下面这样的情况下,我不想更改 $infilename 初始化后程序中的任何位置。

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

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

close $fpin;

正确的方法是什么来确保 $文件名 不仅会导致警告,还会导致错误?

3 回复 | 直到 14 年前

Eugene Yarmash 14 年前

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

或者用新的 Const::Fast 模块:

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

Peter C 14 年前

use constant INPUT_FILE => "input_56_12.txt";

可能是你想要的。如果您需要将它初始化为在运行时可能会发生变化的东西,那么您可能会走运,我不知道Perl是否支持这一点。

编辑:哦,看看尤金Y的答案,Perl确实支持这一点。

Eugene Yarmash 14 年前

另一种常用的创建只读标量的方法是使用typeglob修改变量的符号表条目:

*infilename = \"input_56_12.txt";

这只适用于全局变量(“我的”变量没有符号表条目)。

推荐文章

Manny · 如何比较Perl中的字符串?

2 年前

BioRod · 我不能用Perl打印键和值

2 年前

user17227456 · Perl CLI代码无法追加字符串行

2 年前

LearnToBeBetter · 读取文件,搜索字符串,打印字符串

2 年前

KJ7LNW · 一些波斯语文本的宽字符印刷,但其他文本则没有

2 年前

Amit M · 如何用FFI:Platypus替换cpan Perl实用程序P5NCI

2 年前

con · 如何搜索大型数据结构并返回一系列给出特定值的键/数组?

2 年前

rohithguptha potti · 在LINUX操作系统上执行一些Perl命令时,这些模块可以在LINUX中使用,也可以不在LINUX中使用

2 年前

Tonys AnsonÄ« Misirgis · 当“网站”选项卡关闭时,服务器如何知道关闭websocket的连接

6 年前

Pranay Nanda · 使用regex解析许可证文件

6 年前