How to run CLT from perl script

Hi All,

I am trying to run the Command Line Tool from perl. Find below the part of code i am using:

$set_cmd = "iwrlog -m" . "$cur_dir/$orig_filename";
print "Command to get versions is $set_cmd\n";
`$set_cmd`;

Script is running without the errors but CLT iwrlog is not initiating.
Does anyone having any clue? Thnx in advance.

TS 6.5 Unix

Find more posts tagged with

Comments

rajathi

Hi All,

I am trying to run the Command Line Tool from perl. Find below the part of code i am using:

$set_cmd = "iwrlog -m" . "$cur_dir/$orig_filename";
print "Command to get versions is $set_cmd\n";
`$set_cmd`;

Script is running without the errors but CLT iwrlog is not initiating.
Does anyone having any clue? Thnx in advance.

TS 6.5 Unix

Hi,

Try to execute the CLT by giving the fullpath like this "$iwhome/bin/iwrlog" in the script.

Raj1502

Thnx Rajathi for your quick reply. But its not working anyways :-(

CLT is not set still.

Thnx,

kaalraa

Hi All,

I am trying to run the Command Line Tool from perl. Find below the part of code i am using:

$set_cmd = "iwrlog -m" . "$cur_dir/$orig_filename";
print "Command to get versions is $set_cmd\n";
`$set_cmd`;

Script is running without the errors but CLT iwrlog is not initiating.
Does anyone having any clue? Thnx in advance.

TS 6.5 Unix

Could you please provide as what you are passing on as $cur_dir/$orig_filename?

Also as suggested earlier use $iw-home/bin/iwrlog as command.

Raj1502

Thnx Rajathi..... i used the below code and it worked :-)

$set_cmd = '/teamsite/iw-home/bin/iwrlog -c ' . "$cur_dir/$orig_filename";

Kaalra,

$cur_dir contains the value for curent directory and $orig_filename have the name of file in the directory.

Thnx for you help !

Regards,

Adam Stoller

Hi All,

I am trying to run the Command Line Tool from perl. Find below the part of code i am using:

$set_cmd = "iwrlog -m" . "$cur_dir/$orig_filename";
print "Command to get versions is $set_cmd\n";
`$set_cmd`;

Script is running without the errors but CLT iwrlog is not initiating.
Does anyone having any clue? Thnx in advance.

TS 6.5 Unix

Try changing your code:

...
use TeamSite::Config;
my $iwhome = TeamSite::Config::iwgethome();
my $set_cmd = qq($iwhome/bin/iwrlog -m $cur_dir/$orig_filename);
print "CMD: $set_cmd";
print qx($set_cmd 2>&1);
...

If it doesn't work - please show the actual output from the

statements above.