Perl核心中是否有任何东西可以自动替换“ <>”运算符？

Question

在进行Perl编码时，我的一个小烦恼是必须记住切掉从输入中读取的行。 是的，经过多年的编码，记住这样做几乎是自动的，但仍然很烦人。

Perl中是否有任何编译指示，模块或其他任何东西（强烈推荐的Core模块），这些东西会自动压缩使用<>运算符读取的每一行？

Answer 1

除了您已经提到的各种源过滤器之外，恐怕我不知道什么对您而言是“ hack”。 您是否认为这些显而易见的解决方案中的任何一种都是“骇客”？

1. 在当前包中覆盖*CORE::readline
2. 在所有软件包中覆盖*CORE::GLOBAL::readline
3. 使用自定义READLINE方法处理与类的联系
4. <>运算符的运算符重载

你有尝试过吗？

在这些中，我认为第一个（或可能第二个）最有可能以最少的麻烦完成您想要的事情。

请注意，所有这四个解决方案只需要纯Perl，就不需要其他任何东西。 他们甚至不需要任何核心模块，更不用说任何CPAN模块了。

Answer 2

我想您已经知道这一点，但是当您将命令行选项-nl组合在一起时，您将获得所需的行为（假设您需要隐式while(<>)循环：

$ perl -nle 'printf q{%s}, $_'

通常，这两个选项用于通过bash命令行运行简短的perl命令，但我想没有什么可以阻止您在脚本中执行此操作：

#!/usr/bin/perl -nl

# puts the newline back on if you use print:
# print

# does not put the newline back on
printf '%s', $_;

在此处对此行为的简要说明： http : //www.perlmonks.org/?node_id=324749