perl - perl ワンライナーをエイリアスとして使用する方法

Question

ファイルの連続していない行をフィルタリングするには、以下のワンライナーが正常に機能します。

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

ただし、エイリアスとして作成しようとすると、期待どおりに機能しません

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

以下のようにエラーになる

   a: Undefined variable.

SunOS オペレーティング システム用の tcsh シェルの使用

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