查找所有VOB中mastership的状态

mastership有两种状态:disableenable

如何统计所有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打开,搞定。


欢迎交流!


  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值