使用 perl 单行过滤文件列表

Question

我正在尝试使用 grep 的 -P 选项在命令行进行过滤，这应该是使用 perl 的正则表达式

ls | grep -P ZZZZZTYT.vcf.gz 有效

但是

ls | grep -P ZZZZZTYT.vcf.gz$

不起作用。对于 GNU grep 3.4，锚点似乎不适用于 grep -P。

这些例子当然是微不足道的。

我也尝试过使用单行过滤器，例如 perl one-liner like grep?

ls | perl -ne 'print $1 if not $_ =~ m/\.gz$/'

但这也没有用。

ls | perl -ne 'print $1 if not /\.gz$/'

我的猜测是最好的选择是 perl one-liner。

如何重写上面的单行代码以在文件列表上进行 grep？

Answer 1

尽管您的示例中存在一些问题，但我无法重现您的问题。

对于命令ls | grep -P ZZZZZTYT.vcf.gz 有效而ls | grep -P ZZZZZTYT.vcf.gz$ 无效，我的第一个猜测是您的文件末尾有空格或其他“不可见”字符。你可以试试ls | cat -A（或cat -veT）看看是否真的比你能看到的更多。无论如何，您的正则表达式可以更好地用文字点 (\.) 编写，因为 . 单独匹配任何内容。

在您的 perl onliners 中，您尝试打印 $1 并且此变量为空，来自 perldoc perlvar：

$<digits> ($1, $2, ...)
     Contains the subpattern from the corresponding set of capturing
     parentheses from the last successful pattern match, not counting
     patterns matched in nested blocks that have been exited already.

     These variables are read-only and dynamically-scoped.

     Mnemonic: like \digits.

我想你想打印$_，当你使用-n开关时，这个变量保存当前行的内容（perlvar和perlfunc中的引用）。你可以将你的 perl oneliner 重写为：

ls | perl -ne'/\.gz$/ or print' # for not .gz files

或

ls | perl -ne'/\.gz$/ and print' # list .gz files

使用您的示例，从网上删除$1 就足够了。

如前所述，您需要检查文件名末尾是否有内容。

如果你的文件名和文件名中有“坏字符”，这个 oneliner 将适用于列出 .gz 文件：

ls | perl -ne'/\.gz.*$/ and print'