Shell command inside Perl Script

Question

All

I have following shell command working as per expectation on shell but not working when invoked inside perl

Shell command:

grep -P -s -irl --include \*.v "\s+hello\s?[(].*" <PATH>

working fine

Inside Perl:

$inst_search = `grep -P -s -irl --include \*.v "\s+$inst\s?[(].*" @plt_dirs`;

not working

I am suspecting i am missing something with regexp inside grep..please correct me !

Thanks, Vivek

Check this ... If this helps you or not : stackoverflow.com/questions/3200801/… — Praveen
– Praveen, Commented Sep 26, 2014 at 9:46
Perl has a grep built in. I would suggest using that rather than a shell escape. — Sobrique
– Sobrique, Commented Sep 26, 2014 at 9:54
@Praveen: It's found useful..and solve my problem..Thank you! — Vivek Patel
– Vivek Patel, Commented Sep 28, 2014 at 6:39

Rob · Accepted Answer · 2014-09-26 14:11:37Z

0

Perl will escape special shell characters when calling exec/system/qx (or backticks) with a string.

Try using the exec or system functions, but passing a list, e.g.

system('grep', '-P', '-s', '-irl', '--include', '\*.v', '"\s+hello\s?[(].*"', @plt_dirs);

You may also want to look at a module that does some of the error handling for you, like IPC::System::Simple.

answered Sep 26, 2014 at 14:11

Rob

8076 silver badges21 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

Wernfried Domscheit · Accepted Answer · 2014-09-26 09:54:00Z

0

Try this one:

$inst_search = qx#grep -P -s -irl --include \*.v "\s+$inst\s?[(].*" @plt_dirs#;

Or use any other non-alphanumeric character instead of "#"for quoting.

answered Sep 26, 2014 at 9:54

60.4k10 gold badges92 silver badges132 bronze badges