Regular expression question

[Cai, Lucy \(L.\)]

Hi, all,
 
I have a question about regular expression:
 
my code is like this:
**********************************************************************
sub IsPVob
{
        my ($Vob) = @_;
 
        my $Output = `cleartool lsvob $Vob`;
        die "IsPVob can't list vob $Vob"  if $?;
 
        return (($Output =~ /.*\(ucmvob\)/s*$/) ? 1 : 0);

}
**********************************************************************
 
$Output ="/vobs/na_mscs_pvob
/ccstore/ecc/vobs_fcis321/na_mscs_pvob.vbs public (ucmvob,replicated)"
 
What I want to do is if this tring include word "ucmvob", then return 1,
else return 0.
 
My code does not work, it return 0. Could you please see why it is like
this? or do you have a better idea?
 
Thanks a lot inadvance!
 
Lucy
 

_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs