如何模仿-l内部脚本

Question

有没有简单的方法来模拟脚本中-l命令行开关的效果？ （当然，我可以随时chomp每一行，然后追加“\ n”来每行我打印的，但关键是要避免这样做。）

Answer 1

号你可以获得的自动附加通过使用$\，但你必须自己添加chomp。

以下是-l的工作原理。

$ perl -MO=Deparse -ne 'print $_' 
LINE: while (defined($_ = <ARGV>)) { 
    print $_; 
} 

$ perl -MO=Deparse -lne 'print $_' 
BEGIN { $/ = "\n"; $\ = "\n"; }  # -l added this line 
LINE: while (defined($_ = <ARGV>)) { 
    chomp $_;      # -l added this line 
    print $_; 
} 

（的意见是我的。）请注意，在-l通过-n产生循环的开始添加文字chomp $_（和它只做如果使用-n或-p）。没有变量可以设置为模仿该行为。

这是一个鲜为人知的事实，-l，-n和-p通过将样板文本包装在您编译前提供的代码上工作。

Answer 2

你可以把它添加到你的家当行：

#!/usr/bin/perl -l 

Answer 3

是，尝试家当后，使用此在脚本的开始和狭窄：

$/ = $\ = "\n"; # setting the output/input record separator like OFS in awk 

，并在循环使用：

chomp; 
print; 

或者这样：

use strict; use warnings; 
use English qw/-no_match_vars/; 

$OUTPUT_RECORD_SEPARATOR = "\n"; 

while (<>) { 
    chomp; 
    print; 
} 

我不推荐使用

#!/usr/bin/perl -l 

一个更好的清晰度=）

见perldoc perlvar