Need Help: invoking TCL procedure in perl scripts.

Hi All,

I am writing scripts in perl and need to automate few IXIA related stuff. IXIA has TCL based API's.
Can someone help me understand, how I can call those API's inside my perl scripts or if there is a way to write a wrapper for TCL API's in perl.

Regards,
Kuldeep Kumar.

I believe someone has given you this info:http://www.perlmonks.org/?node_id=988956

You can also run a script from perl via the 'system' function:

Code:

# Run Command
$shell_return_status  =  system("$command > $logtemp 2>&1 ");
if ($shell_return_status  !=  0) {
  writelog ("ERR $command failed; $shell_return_status");
}