Paul Johnson wrote:
>
> On Wed, Apr 16, 2008 at 12:11:20AM +0530, [EMAIL PROTECTED] wrote:
>
>> I need help in regular expression. I have string as follows.
>>
>> OMS.FD.08.03.000.14
>>
>> I need only OMS.FD.08.03.000 this much part of the string.i want to
>> exclude .14
>
> That's not much of a spec. How far have you got?
>
> Perhaps one of these possibilities will help?
>
> $_ = "OMS.FD.08.03.000";
It was 'OMS.FD.08.03.000.14'
> s/.14//;
> s/\.\d+$//;
> s/\..*$//;
> s/^((?:[^.*]\.){4}[^.]*).*/$1/;
All of those options will modify the object string, which is unlikely to
be what is wanted.
Without knowing the full range of possible strings, I suggest the
program below may help.
Rob
use strict;
use warnings;
my $str = 'OMS.FD.08.03.000.14';
if ($str =~ /(.*)\./) {
print $1;
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
