>
> #!/usr/local/bin/perl
> use strict ;
> my $ucmvob = "/ebppvobstore/vobs/UCMCQ" ;
> my $PR_NAME = <STDIN> ;
> my $vobname = `cleartool lsproject -invob $ucmvob | grep $PR_NAME` ;
> my @prjname = split /\s+/, $vobname ;
> my $prjstream = `cleartool lsstream -in @prjname[1]\@$ucmvob | grep Int` ;
Did you mean to write:
my $prjstream = `cleartool lsstream -in $prjname[1]\@$ucmvob | grep Int` ;
@prjname is the array called 'prjname'. To get the 93rd element of this
array, use $prjname[93]. If this wasn't in backtics you'd be tripping
use strict. I don't know how perl is trying to interpert it now.
> my @Intstream = split /\s+/, $prjstream ;
> print "@Intstream[1] \n" ;
- Johnathan