Get shell command return value in Perl program.

[Dan]

Hi all, I have a Perl script which includes a shell command, I want to
get the return result from this shell command, but when I check the $?
value, it is not correct, can anyone tell me how I can get the return
value?

my perl code:

opendir(DIR, "/log") || die ("Can not open log directory");
foreach $direntry (readdir(DIR))
{
if ($direntry =~ /2007\d{4}/)
{
$ja_request = system("grep -i 'INDEX' $BASE/$direntry/
FILE.log | wc -l");
}
}

Basically, I want to search the "INDEX" string, and count the number
of occurrence in file.LOG file. But the
$ra_request always is 0.

Can anyone help about this, thanks a lot!

 

[it_says_BALLS_on_your_forehead]

Hi all, I have a Perl script which includes a shell command, I want to
get the return result from this shell command, but when I check the $?
value, it is not correct, can anyone tell me how I can get the return
value?

my perl code:

opendir(DIR, "/log") || die ("Can not open log directory");
foreach $direntry (readdir(DIR))
{
if ($direntry =~ /2007\d{4}/)
{
$ja_request = system("grep -i 'INDEX' $BASE/$direntry/
FILE.log | wc -l");
}
}

Basically, I want to search the "INDEX" string, and count the number
of occurrence in file.LOG file. But the
$ra_request always is 0.

Can anyone help about this, thanks a lot!

Why use Perl for this? Why not just loop through it via your shell?
Anyway, if you want the output of a command that you 'shelled out',
just use the backtick operator instead of system().

 

[John W. Krahn]

Hi all, I have a Perl script which includes a shell command, I want to
get the return result from this shell command, but when I check the $?
value, it is not correct, can anyone tell me how I can get the return
value?

my perl code:

opendir(DIR, "/log") || die ("Can not open log directory");
foreach $direntry (readdir(DIR))
{
if ($direntry =~ /2007\d{4}/)
{
$ja_request = system("grep -i 'INDEX' $BASE/$direntry/
FILE.log | wc -l");
}
}

Basically, I want to search the "INDEX" string, and count the number
of occurrence in file.LOG file. But the
$ra_request always is 0.

Can anyone help about this, thanks a lot!

my $ja_request;
{ local @ARGV = glob '/log/*2007[0-9][0-9][0-9][0-9]*/FILE.log';
while ( <> ) {
$ja_request++ while /\bINDEX\b/g;
}
}



John