我一直使用Perl命令行一个-ne选项多年，主要是以sed的方式处理文本文件。例：
cat in.txt | perl -ne "s/abc/def/; s/fgh/hij/; print;" > out.txt
我不知道我在哪里学到了，只有今天才读到perlrun，发现有其他形式(例如perl -pe)。
我还应该知道perl -ne？
@H_502_8@解决方法
perl -ne’CODE’等同于程序
while (<>) {
CODE
}
perl -ane’CODE’和perl -F / PATTERN / -ane也是很好的习语。他们相当于
while (<>) {
@F = split /\s+/,$_;
CODE
}
和
while (<>) {
@F = split /PATTERN/,$_;
CODE
}
示例：高级grep：
perl -ne 'print if/REGEX1/&&!/REGEX2/&&(/REGEX3/||/REGEX4/&&!/REGEX5/)' input perl -F/,/ -ane 'print if $F[2]==4&&$F[3]ge"2009-07-01"&&$F[3]lt"2009-08-01"' file.csv
使用不匹配的大括号的一个特别聪明的例子是here。
@H_502_8@ @H_502_8@ 原文链接：https://www.f2er.com/Perl/173015.html