如何用Perl实现Python读取文件行转集合的等效功能？

我更熟悉Python，现在需要找出和以下Python代码等效的Perl实现：

lines = {line.rstrip() for line in open('file.txt')}  # 方法1
lines = set(map(str.rstrip, open('file.txt')))  # 方法2，结果一致

上述Python代码返回一个集合（set），功能类似Perl中的哈希表——只保留键，没有对应的值。这段代码存在文件句柄泄漏问题，但主流Python的引用计数垃圾回收机制会立即清理泄漏的句柄。

我知道Perl以代码简洁著称，希望找到类似的简便写法。目前我找到的最优写法如下：

my %lines;
open(FILE, "file.txt") or die "couldn't open file.txt";
while ( <FILE> ) {
 chomp;
 $lines{$_}=1;
}
close(FILE);

不借助CPAN模块的情况下，这是否已是最佳实现？我曾尝试如下写法但不确定是否可行：

my @lines = <open('file.txt')>; # 把open当作返回文件句柄的表达式
# 我认为Perl也用引用计数GC，所以文件现在会被关闭
my %lines;
@lines{@lines} = 1; # 我觉得这能行？

解答 #

首先纠正你尝试的第二种写法：<open('file.txt')>在Perl中是无效语法。尖括号操作符直接跟表达式时，会被当作glob模式解析，而非读取文件句柄。正确的做法是先将open返回的句柄赋值给变量，再读取内容：

my $fh = open('file.txt') or die "无法打开文件: $!";
my @lines = <$fh>;

Perl确实采用引用计数GC，文件句柄变量销毁时会自动关闭文件，这部分逻辑是成立的。

不借助CPAN模块的话，你的初始写法是可靠且易读的，但还有更简洁的实现方式：

1. 简化的标准写法（现代Perl风格）

使用更安全的三参数open语法，并将循环压缩为一行：

my %lines;
open my $fh, '<', 'file.txt' or die "无法打开file.txt: $!";
chomp, $lines{$_} = 1 while <$fh>;

这里无需显式close，因为文件句柄变量$fh在作用域结束时会被GC自动清理，文件随之关闭。

2. 接近Python一行式的写法

利用do块封装文件读取逻辑，配合map直接生成哈希表，完全对应Python的集合功能：

my %lines = map { chomp; $_ => 1 } do {
    open my $fh, '<', 'file.txt' or die "无法打开file.txt: $!";
    <$fh>
};

这个写法把文件打开、读取、行处理、哈希生成整合在一起，和Python的一行式风格一致，同时保持了代码的安全性。

总结

• 如果优先考虑可读性和维护性，你的初始写法或简化后的标准写法是最佳选择；
• 如果追求和Python类似的简洁性，map+do块的实现是最接近的等效写法。

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