/vobs/cs_test_scripts
/vobs/openwall_pam_userpass_rel
/vobs/cs_cim
/vobs/PIP_PVOB
/vobs/pvob_ic
/v_dialer3rdparty
/v_dialerclient
/v_dialer_rel
/scm
####
#!/usr/bin/perl -w
$arg=$ARGV[0];
$cmd="cleartool lsvob $arg"
$arr=`$cmd`;
print "$arr\n";
##
##
* /vobs/cs_test_scripts /usr/add-on/puccase_vob01/ccvob01/cs_test_scripts.vbs public (replicated)
* /scm /usr/add-on/puccase_vob01/ccvob01/scm.test.vbs
##
##
#!/usr/bin/perl
$arg=$ARGV[0];
$cmd1="cleartool lsvob $arg";
$arr=`$cmd1`;
print "$arr\n";
$storage1=$1 if($arr=~/^*\s+\/\w+\/\w+\s+(.+)\s+\w+/);
print "$storage1\n";
$storage2=$1 if($arr=~/^*\s+\/\w+\s+(.+)\s+\w+/);
print "$storage2\n";
$storage3=$1 if($arr=~/^*\s+\/\w+\/\w+\s+(.+)\s+\w+|^*\s+\/\w+\s+(.+)\s+\w+/);
print "$storage3\n";
##
##
* /vobs/cs_test_scripts /usr/add-on/puccase_vob01/ccvob01/cs_test_scripts.vbs public (replicated)
#match storage1 /usr/add-on/puccase_vob01/ccvob01/cs_test_scripts.vbs
* /scm /usr/add-on/puccase_vob01/ccvob01/scm.vbs public (replicated)
#storage2 /usr/add-on/puccase_vob01/ccvob01/scm.vbs