CODEWITHSUNDEEP
perlshellmod-perl
Arav
Arav

Reputation: 5247

Using perl system grep

Have the below perl grep regex and it's working properly. 

  my  @cont = grep {/,\s*511747450\s*,\s*CAN2\s*$/} @fileContents;

I want to convert it to unix system grep and I tried the same regex using system command in the below way and it's not working. 

  my $cmd="grep ,\s*5117474501\s*,\s*CAN2\s*\$ " . $dirPath . "/" .$fileName;
  my $exitStatus =system($cmd);

Upvotes: 0

Views: 1750

Answers (2)

ikegami
ikegami

Reputation: 385789

\, * and $ are special to the shell. Some more escaping is in order.

use String::ShellQuote qw( shell_quote );

my $pat = ',\\s*5117474501\\s*,\\s*CAN2\\s*$';

my $cmd = shell_quote('grep', '--', $pat, "$dirPath/$fileName");
my $exitStatus = system($cmd);

Or you can simply avoid the shell by using the multi-arg form of system.

my $pat = ',\\s*5117474501\\s*,\\s*CAN2\\s*$';

my @cmd = ('grep', '--', $pat, "$dirPath/$fileName");
my $exitStatus = system({ $cmd[0] } @cmd);

Upvotes: 6

Hameed
Hameed

Reputation: 2277

grep doesn't work with \s in bash in some versions.

Try [:space:] instead of \s.

The behaviour of grep varies between different versions.

Upvotes: 3

Related Questions