Perl линейный режим Oneliner с ARGV

Question

мне часто нужно запускать некоторые Perl остротами для быстрых манипуляций с данными, как

some_command | perl -lne 'print if /abc/' 

Чтение из трубы, мне не нужен цикл вокруг команды ARG имен файлов , Как я могу достичь следующего?

some_command | perl -lne 'print if /$ARGV[0]/' abc 

Это дает ошибку:

Can't open abc: No such file or directory. 

Я понимаю, что '-n' делает

while(<>) {.... } 

вокруг моей программы, и <> принимает арг как имена файлов, но делать следующий раз каждый раз немного непрактично

#/bin/sh 
while read line 
do 
    some_command | perl -lne 'BEGIN{$val=shift @ARGV} print if /$val/' "$line" 
done 

Есть ли лучший способ получить «внутри» аргументы командной строки Perl ONE-LINER, не считая их именами файлов?

Answer 1

Некоторые решения:

perl -e'$p = shift; while (<>) { print if /$p/ }' pat 

perl -e'$p = shift; print grep /$p/, <>' pat # Inefficient. 

perl -ne'BEGIN { $p = shift } print if /$p/' pat 

PAT=pat perl -ne'print if /$ENV{PAT}/' 

Конечно, это могло бы иметь больше смысла, чтобы создать шаблон, который приведен ORing или все модели, а не выполнение той же команды для каждого шаблона.

Answer 2

Это зависит от того, что вы думаете, будет в строках вы читали, но вы можете играть с:

#/bin/sh 
while read line 
do 
    some_command | perl -lne "print if /$line/" 
done 

Очевидно, что если $line может содержать косую черту, это не будет летать. Затем, AFAIK, вы застряли с формулировкой блока BEGIN.

Answer 3

Также достаточно короткий:

... | expr=abc perl -lne 'print if /$ENV{expr}/' 

bash Работает в оболочке, но, возможно, не в других оболочках.