команда perl linux не работает

Question

cat t.incopt.02.20110221 | awk -F, '{print $1}' | sort | uniq

получил уникальные записи

но если я вставлю в Perl,

@FETCH_REQ_DETAILS = `cat t.incopt.02.20110221 | awk -F\, '{print $1}' \| sort \| uniq`;

если я распечатаю вышеприведенные переменные массива, получаю содержимое всего файла, я думаю, что команда linux не работает правильно, когда я использую внутри perl,

Answer 1

Я думаю, вам просто нужно заключить команду в обратный тик и избежать только $

@FETCH_REQ_DETAILS = `cat t.incopt.02.20110221 | awk -F, '{print \$1}' | sort | uniq;`

Answer 2

Попробуйте следующее:

my $ cmd = 'cat t.incopt.02.20110221 |awk -F, \ '{print $ 1} \' |сортировать |uniq ';

@ FETCH_REQ_DETAILS = `$ cmd`;