查找所有VOB中mastership的狀態

mastership有兩種狀態：disable和enable

如何統計所有VOB的status呢？

來個小破（perl）腳本吧：

#!/usr/bin/perl

use strict;

system("cleartool lsvob > rebvoblist.txt");
my $filename = "rebvoblist.txt";


if(-e $filename)
{
    open(FILE, $filename);
    my @array = <FILE>;
    my $vobname = "";


    print "VOB_Name,MasterShip \n";
    foreach(@array)
    {
    my $line = $_;
    my $string1 = "ucmvob";
    my $string2 = "replicated";

    if (!/$string1/ && /$string2/)
    {
    $line = ~/(.*)\\\\/;
    $vobname = $1;
    print $vobname, ",";
    system("cleartool lsreplica -l -invob $vobname | findstr \/i \"mastership:\"");
    }
    }
    close FILE;
}

運行：

perl script.pl > 1114.csv

csv可以用xls打開，搞定。

歡迎交流！