Perl Linux命令不起作用

Question

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

got unque records

but if i inserted into perl,

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

if i print the above array vari, i getting entire file content, i guess the linux command not working correctly when i use inside perl,

Answer 1

我认为您只需要将命令括在反勾中并仅转义$

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

Answer 2

Try the following:

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

@FETCH_REQ_DETAILS = `$cmd`;