Question

perl中使用grep语句搜索特殊关键字的问题。

在unix命令行下使用grep “\-a” a.txt 来搜索a.txt中含有-a的语句。可以显示正确结果。
但在perl程序中，使用$a=qx/grep “\-a” a.txt/;却无法正常运行。把关键字换成不含特殊符号的则可以。该如何修改。

Answer 1

你是调用的外部（系统的grep命令），perl有自己的grep，具体见下文

########################

perl 不可以直接处理文本。需要文本转成句柄
open FF,"a.txt";
my @text=<FF>;
my @results=grep(/\-a/,@text);
print @results;
#####################################
系统grep的用法
添加一个-P
$a=qx/grep -P “\-a” a.txt/;
试试看

Answer 2

将 \-a 改成 \\-a