我正在使用 Awk 脚本将大文本文档拆分为独立的文件。我做到了，现在我正在处理 14k 文本文件。这里的问题是有很多文件只有三行文本，我保留它们没有用。
我知道我可以使用awk 'NF>=3' file 删除文本中的行，但我不想删除文件中的行，而是想删除内容只有两到三个文本行的文件。
提前致谢。
【问题讨论】：
请您尝试关注findcommand。（使用 GNU 测试awk）
find /your/path/ -type f -exec awk -v lines=3 'NR>lines{f=1; exit} END{if (!f) print FILENAME}' {} \;
所以上面将打印控制台上少于 3 行的文件名。一旦您对结果感到满意，然后尝试删除它们。只有当您对上述命令的输出感到满意时，才能运行以下命令，甚至 我建议先在测试目录中运行以下命令，一旦您完全满意，然后继续执行以下命令。 （从下面删除echo 我仍然把它放在更安全的一边:)）
find /your/path/ -type f -exec awk -v lines=3 'NR>lines{f=1; exit} END{exit !f}' {} \; -exec echo rm -f {} \;
【讨论】：
END {} 总是被执行，即使脚本被exit 终止。所以打印了所有文件名。无论如何，退出状态有效。
如果当前目录下的文件都是文本文件，这样应该是高效可移植的：
for f in *; do
[ $(head -4 "$f" | wc -l) -lt 4 ] && echo "$f"
done # | xargs rm
检查列表，如果看起来正常，则删除最后一行的# 以实际删除不需要的文件。
为什么使用head -4？因为wc 不知道什么时候退出。假设有一半的文本文件每个都超过 1 TB 长；如果是这样的话，单独wc -l 会很慢。
【讨论】：
您可以使用wc 计算行数，然后决定是否删除文件。您应该编写一个 shell 脚本，而不仅仅是 awk 命令。
【讨论】：
你可以试试 Perl。下面的解决方案将是有效的，因为如果行数 > 3，文件句柄 ARGV 将被关闭
perl -nle ' close(ARGV) if ($.>3) ; $kv{$ARGV}++; END { for(sort keys %kv) { print if $kv{$_}>3 } } ' *
如果你想通过管道输出其他命令（比如 find），你可以像这样使用它
$ find . -name "*" -type f -exec perl -nle ' close(ARGV) if ($.>3) ; $kv{$ARGV}++; END { for(sort keys %kv) { print if $kv{$_}>3 } } ' {} \;
./bing.fasta
./chris_smith.txt
./dawn.txt
./drcatfish.txt
./foo.yaml
./ip.txt
./join_tab.pl
./manoj1.txt
./manoj2.txt
./moose.txt
./query_ip.txt
./scottc.txt
./seats.ksh
./tane.txt
./test_input_so.txt
./ya801.txt
$
wc -l * 在同一目录下的输出
$ wc -l *
12 bing.fasta
16 chris_smith.txt
8 dawn.txt
9 drcatfish.txt
3 fileA
3 fileB
13 foo.yaml
3 hubbs.txt
8 ip.txt
19 join_tab.pl
6 manoj1.txt
6 manoj2.txt
5 moose.txt
17 query_ip.txt
3 rororo.txt
5 scottc.txt
22 seats.ksh
1 steveman.txt
4 tane.txt
13 test_input_so.txt
24 ya801.txt
200 total
$
【讨论】：