我一直使用Perl命令行一个-ne选项多年，主要是以sed的方式处理文本文件。例：
cat in.txt | perl -ne "s/abc/def/; s/fgh/hij/; print;" > out.txt@H_403_4@我不知道我在哪里学到了，只有今天才读到perlrun，发现有其他形式(例如perl -pe)。 @H_403_4@我还应该知道perl -ne？
解决方法
perl -ne’CODE’等同于程序
while (<>) {
CODE
}
@H_403_4@perl -ane’CODE’和perl -F / PATTERN / -ane也是很好的习语。他们相当于
while (<>) {
@F = split /\s+/,$_;
CODE
}
@H_403_4@和
while (<>) {
@F = split /PATTERN/,$_;
CODE
}
@H_403_4@示例：高级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@H_403_4@使用不匹配的大括号的一个特别聪明的例子是here。