calling a C executable from inside a Perl script

Shell Programming and Scripting
1

here's the Perl code snippet...
how can i call my C executable 'porter-stemmer' and pass it $1 as
an argument? Thanks for the help!

# Read through the original topic set, and modify based on the current
# pre-processing options
while (<TOPIC_ORIG>)
{
# Run pre-processing over only the text of the title (assumes title
# cannot extend over multiple lines)
if (/<title>(.+?)<\/title>/)
{
print TOPIC_TMP "<title>", porter-stemmer $1, "</title>\n";
}

\# Output XML formatting as is
else
\{
print TOPIC_TMP;
\}

}

close TOPIC_ORIG;
close TOPIC_TMP;

2

try Shell - it allows you to issue commands to the shell - sh, I believe.

use Shell(porter-stemmer);
.................
print TOPIC_TMP "<title>", porter-stemmer( $1), "</title>\n";
3

You can also try exec port-stemmer $1
But I don't know if it will work inside the print line.

4

try..

print TOPIC_TMP '<title>'.`porter-stemmer $1`.'</title>'."\n";