Find command Using perl

Hi,

I am trying to execute find command using perl but every time i am getting the below error :

find: incomplete statement

#!/opt/Interwoven/TeamSite/iw-perl/bin/iwperl

use TeamSite::CGI_lite;
use TeamSite::Config;
use TeamSite: Smiley Very Happy

CRnode;
use TeamSite: Smiley Very Happy

CRparser;
use XML: Smiley Very Happy

OM;

my $result = "/tmp/test.txt";
my $test="12345";
#my $command = "find / -type f -name "*" -exec grep -l $test {} \;";
#my $temp = "find / -type f -name "*" -exec grep -l $test {} \;";
#my $results = system ($temp > $result");
#my $resulted =`$command` > $result ;
#print "$resulted";
`find / -type f -name "*" -exec grep -l $test {} \; > $result`;

cant understand why it says that as when i am running onthe cmd line it works i.e find / -type f -name "*" -exec grep -l $test {} \;

Find more posts tagged with

Comments

Adam Stoller

First - you should specify the full path to find if you're going to run it that way - since you cannot be assured that the PATH environment in use when the script executes is the same as the PATH environment you have within your shell.

Second - you'd probably be better off learning how to use one of the various find-like perl modules that exist - such as:

ISCBorisB

Hi,

I am trying to execute find command using perl but every time i am getting the below error :

find: incomplete statement

#!/opt/Interwoven/TeamSite/iw-perl/bin/iwperl

use TeamSite::CGI_lite;
use TeamSite::Config;
use TeamSite:CRnode;
use TeamSite:CRparser;
use XML:OM;

my $result = "/tmp/test.txt";
my $test="12345";
#my $command = "find / -type f -name "*" -exec grep -l $test {} \;";
#my $temp = "find / -type f -name "*" -exec grep -l $test {} \;";
#my $results = system ($temp > $result");
#my $resulted =`$command` > $result ;
#print "$resulted";
`find / -type f -name "*" -exec grep -l $test {} \; > $result`;

cant understand why it says that as when i am running onthe cmd line it works i.e find / -type f -name "*" -exec grep -l $test {} \;

In addition to what Ghoti already mentioned - it *seems* that the string that back-tick evaluates to is not what you expect.
For example, \; (Escape+semicolon) evaluates to just semicolon, etc.

Replace backticks to print qq() to see what exactly you are trying to execute. Check that the result is what you expect.
print qq(find / -type f -name "*" -exec grep -l $test {} \; > $result);

Aghosh

i have solved the issue just need to put / at the end Smiley Happy