Hello list,
I am trying to find Feature Level(FL) of each local replica in one of
the ClearCase VOB server with the following script, but the script
prints the FL which is not associated with my local replica. Could
someone let me know where I am wrong.
#!/usr/bin/perl
open LOG, ">>/tmp/log.txt" or die $!;
chomp(@vobs=`/usr/atria/bin/cleartool lsvob -s -host wrancc`); for $vob
(@vobs){ chomp(@replica=`/usr/atria/bin/cleartool lsreplica -invob $vob
-s`); foreach $replica (@replica){
chomp(@properties=`/usr/atria/bin/cleartool desc
replica:[EMAIL PROTECTED]); foreach $properties (@properties) {
$FL = $properties if ( $properties =~ /FeatureLevel/ );
@FeatureLevel=split(/ +/,$FL);
$FL_LOCAL=$FeatureLevel[3];
print LOG "The vob is $vob \n Replica is $replica and Feature
Level is $FL_LOCAL\n" if ( $properties =~ /172.16.54.17 / );
Regards,
binu
Please do not print this email unless it is absolutely necessary.
The information contained in this electronic message and any attachments to
this message are intended for the exclusive use of the addressee(s) and may
contain proprietary, confidential or privileged information. If you are not the
intended recipient, you should not disseminate, distribute or copy this e-mail.
Please notify the sender immediately and destroy all copies of this message and
any attachments.
WARNING: Computer viruses can be transmitted via email. The recipient should
check this email and any attachments for the presence of viruses. The company
accepts no liability for any damage caused by any virus transmitted by this
email.
www.wipro.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
