Chomp地图的所有键(使用更少的代码)

我正在尝试做类似的事情

my %my_map = map { chomp($_) => 1 } @my_arr;

这不符合我的预期,所以我需要:

my @chomped_arr = @my_arr;
chomp @chomped_arr;
my %my_map = map { $_ => 1 } @chomped_arr;

这样做的最短的方法是什么？

这里的问题是chomp修改变量,但不返回它.所以它不适用于地图.

我喜欢的解决方法是使用r正则表达式修饰符 -

my %my_map = map { s|\n||gr => 1 } @my_arr;

它返回修改后的结果,但这样做没有改变原来的(这将改变@arr).

注意 - 上面的内容并不完全 - 它会删除任何换行符.(你当然可以坚持$你的正则表达式.例如s|\n$||r)

r正则表达式标志是一个较新的功能(不是说新).不记得OTOH引入了哪个版本的perl.

也可以使用文件句柄输入执行此操作:

my %stuff = map { s|\n||gr => 1 } <$fh>;

但严格来说,从行尾chomp删除$/你可能想要的

s|\Q$/\E\z||r

我认为严格复制chomp- 但这可能是可读性的权衡.