Matching what you show as literal text should do the job. You probably want to anchor the beginnning to the start of the string. A literal match like this can be done with substr and eq, too.

my $string = '/sbc/dasds/sdf/dsd/modem';
my $regex = qr!^${string}!;

$_ = '/sbc/dasds/sdf/dsd/modem_50';

if (m/$regex/) {
    print;
    print "\nRegex works\n";
}

if ($string eq substr $_, 0, length $string) {
    print;
    print "\nString equality works\n";
}
[download]

my @modems = glob '/sbc/dasds/sdf/dsd/modem*';
[download]

What have you tried? Have you read the tutorial section for regular expressions?. Have you read the standard Perl documentation perlrequick, perlretut and perlre?

You are more likely to get a direct answer if you ask in the chatterbox, but then again, maybe not. :) We like to see some effort made.

hi,

If my guess is correct, then follow the below said code:

while (<DATA>) {
  print "$&\n" if ($_=~/^\/(.+)modem$/);
}


__DATA__
/1sbc/dasds/sdf/dsd/modem
/2sbc/dasds/FSFsdf/dsd/modem1
/3sbc/dasdFDAs/sFDASFdf/dsd/modem
/4sbc/dasFSDAds/sdf/dFDsd/modem3
[download]

output

/1sbc/dasds/sdf/dsd/modem
/3sbc/dasdFDAs/sFDASFdf/dsd/modem

regards

franklin

But the requirement was first to match sbc/dasds/sdf/dsd/ absolutely and after that anything starts with "modem".
Your code matches the occurance of modem as the last string alone which I believe is not what is required.


my $string ="sbc/dasds/sdf/dsd/modemL" ;

if ($string=~/sbc\/dasds\/sdf\/dsd\/modem.*/) {
    print "Matching" ;
}
[download]

should be sufficient.
Thanks..

Try this,

if($_=~/sbc\/dasds\/sdf\/dsd\/modem(.*)/g)
    {
    ##your operation if search returns true
    }

Sriram