配置管理
-
编辑 删除
perl脚本实现XXXlabelXXX查找version
clearcase不提供使用通配符*/?查找，没办法，网上找了一圈也没找到我想要的命令，正好在学perl，写了个脚本，终于是实现了通过label名字的部分字符，也可以查询version的功能。在/vobs/myvob中查找lbtype为*1.2.1的所有version#!/ap/local/5.8/bin/perl -w$filename="label.txt";$ct = "/usr/atria/bin/cleartool";$viewname="LATEST";$vobdir = "/vobs/myvob";$sub_label = "1.2.1";[@more@]system "$ct setview -exec '$ct lstype -kind lbtype -s -invob $vobdir | grep $sub_
