Complete a word

[CJason]

Anyone know of a good/simple/quick way to complete a word in a sentence? For example, I want to replace: "DEL" or "DELE" or "DELET" with: "DELETE".

Thanks in advance!

 

[KevinADC]

$foo = 'I want to DELETE DELET DEL DELE DELET';
$foo =~ s/\b(DELET|DELE|DEL)\b/DELETE/g;
print $foo;

------------------------------------------
- Kevin, perl coder unexceptional!

 

[CJason]

Thanks, Kevin. That's kind of where I was going as well...I just wanted to make sure I wasn't missing something simple. Thanks again!

 

[prex1]

I'll propose a more general, though very simple, method to do that. It requires of course a dictionary (a database) of the allowed substitutions/completions, as with natural languages you can't have a general programmatic rule for that: of course partial words that are also full words (e.g. be,before) cannot be handled correctly. Another example of what can't be done is if you have delete and deleted in the dictionary.

%completions=('del','delete','dele','delete','delet','delete');
for my$sentence(@sentences){
  my@words=split/\s/,$sentence;
  for my$word(@words){
    my$lcw=lc$word;
    if(exists$completions{$lcw}){
      if(ord$word<91){
        $word=ucfirst$completions{$lcw};
      }else{
        $word=$completions{$lcw};
      }
    }
  }
  $sentence=join(' ',@words);
}

Franco

http://www.xcalcs.com

: Online engineering calculations

http://www.megamag.it

: Magnetic brakes for fun rides

http://www.levitans.com

: Air bearing pads