[Perl-unix-users] regular expression question

[Cai, Lucy \(L.\)]

Title: Counting words

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-Unix-Users mailing list
Perl-Unix-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs