Trying to write a Clearcase command script for UNIX vob

[perlnewbie]

Hi everyone I am new to perl and I am writing a perl script to invoke a set of commands on UNIX clearcase vob however I am having trouble after setting the view and mounting the vob I want to change the directory into the vob and then using Cwd or pwd to confirm I am in the vob to continue the CC functions.

Sample code in perl :

$Result = system 'cleartool setview admin_view';
 
 
$Result = system ('cleartool mount /vobs/test');
 
 
chdir "/vobs/test" or die "/vobs/test: $!\n";
Cwd;
 

out put:


unixbox:newtoperl> perl UNIX.pl

Pass value = 1
Fail value = 1unixbox:newtoperl>

[numberwhun]

Hi everyone I am new to perl and I am writing a perl script to invoke a set of commands on UNIX clearcase vob however I am having trouble after setting the view and mounting the vob I want to change the directory into the vob and then using Cwd or pwd to confirm I am in the vob to continue the CC functions.

Sample code in perl :

$Result = system 'cleartool setview admin_view';
 
 
$Result = system ('cleartool mount /vobs/test');
 
 
chdir "/vobs/test" or die "/vobs/test: $!\n";
Cwd;
 

out put:


unixbox:newtoperl> perl UNIX.pl

Pass value = 1
Fail value = 1unixbox:newtoperl>

First, please be sure and use code tags around your code. I have added them to your post already.

Second, Cwd is not used correctly. Read that link and you will see that you "use" it then reference its functions. It is essentially a Perl module, not a command.

Regards,

Jeff

[perlnewbie]

First, please be sure and use code tags around your code. I have added them to your post already.

Second, Cwd is not used correctly. Read that link and you will see that you "use" it then reference its functions. It is essentially a Perl module, not a command.

Regards,

Jeff

thanks I was able to set it up and it worked.