regular expression

[Javeed SAR]

Hi all,



@file=`ls $ja`;

#Here the output is a list of files:
cp.exe
eula.txt
test2.vbp.mkelem
test3.vbp


# I want to grep for files with  .dsp or .vbp  extensions  here, if the
number of files with extension  .dsp or .vbp is > 1 i should exit saying
project exists. or else send mail.

am i doing the right thing?


@projectFilesExist = <$file\{*.dsp,*.vbp}>;
if ($projectFilesExist> 1)
{
    die "\n\nThe element ($PN) is not allowed to be added to
ClearCase,Because a project already exists.Please contact  Clearcase
administrator or javeed (Extn 4919).\n";
}
else{
    $cmd= `sendmail`;
}