如何使用 perl one-liner 作为别名

Question

要过滤不连续的文件行，下面的单行工作正常：

cat filename | perl -ane 'print unless $a{$_}++'

但是，当我尝试将其设为别名并进行操作时，它无法按预期工作

alias uniqlines " cat \!* | perl -ane 'print unless \$a{\$_}++' "

报错如下

   a: Undefined variable.

在 SunOS 操作系统中使用 tcsh shell

Answer 1

在 bash 中这种语法有效：

alias uniqlines="perl -ane 'print unless \$a{\$_}++' "

这是一种在 tcsh 中似乎也有效的方法：

alias uniqlines 'perl -ane '"'"'print unless $a{$_}++'"'"' '

Answer 2

您想改用函数：

uniqlines(){ cat "$@" | perl -ane 'print unless $a{$_}++'; }

但这只是一种花哨的说法：

alias uniqlines=uniq