各位大大好
小弟是Perl新手，最近想把awk放进Perl来使用，
程式如下:
my $cmd=q(grep 'Only in ${keyword}' ./A.txt | awk -F '[ :]' '{print $3, $5}'
> BB.log);
system($cmd);
主要是想在A.txt中捞'Only in $keyword'的关键字
然后利用awk 分解字串(空格及:都要分解)，印出第3、5个字串到BB.log中。
google看到好像因为这串有太多单引号，会误导perl，因此需要先把他们塞进q()中
但这样我还是不能执行....
乱试了很多方法还是不能执行，跪求各位大大帮忙~谢谢!!!!

把程式码放到一个档案 f.pl 再从shell中执行 perl -w f.pl试看看

何为“不能执行”呢？看起来没有语法上的问题。或许可以检查一下system() 的传回值是否为零

能提A.txt几行范例吗?提供