> I am working on the following output.
>
> * /ebppvobstore/vobs/Core /ebppvobstore/vobs/aci.vbs public
> * /ebppvobstore/vobs/UCMCQ /ebppvobstore/vobs/UCMCQ.vbs
> public (ucmvob)
> /ebppvobstore/vobs/Comp_Care
> /ebppvobstore/vobs/Comp_Care.vbs/ public
The above is what comes out of `cleartool lsvob` right?
>
> use strict ;
> my @vobtags = `cleartool lsvob` ;
> my $vobs ;
> my @check ;
> foreach $vobs (@vobtags) {
> chomp $vobs ;
> @check = split /\s+/, $vobs ;
> chomp $check[0] ;
> if ($check[0] ne " ") {
Dooh! Youre never gonna have a space here. You split on all spaces so they
were consumed. I think you want '' instead. Or maybe ($check[0] eq '*') if
it's really the '*' you're interested in.
Peter C.
