Front page | perl.beginners |
Postings from May 2008
Script to find FL in CC
Thread Previous
|
Thread Next
From:
binu.gopalakrishnapillai
Date:
May 14, 2008 04:52
Subject:
Script to find FL in CC
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:$replica\@$vob`); 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
Thread Previous
|
Thread Next