String preprocessing

Hi,

I'm trying to write a perl script to do the followings:

1. Calculate the number of words from a string.
2. Check the last word exist in a text file. If exist    move it to the beginning of the string.
3. Extract the first two word of the string.
4. Find the occurence of the word "d/o" and extract every words before that.

Eg.
   string = "Rajiv Mani d/o Arumugam"
   ...code to count the word length which is 4
   if (last_word "Arumugam" is in file c:\temp\Names.txt)
   {
     code to move last_word to first_word
     string = "Arumugam Rajiv Mani d/o"
     if (string has "d/o")
      code to extract "Arumugam Rajiv Mani"
     else
      code to retrieve "Arumugam Rajiv"

Thanks,
Nick

     




n_chaiAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
ozoConnect With a Mentor Commented:
$string ||= "Rajiv Mani d/o Arumugam";
$count = () = $string=~/(\S+)/g ;
$last_word = $1;
open F,'<c:/temp/Names.txt' or die "Can't open c:/temp/Names.txt $!";
if( grep/\b\Q$last_word\E\b/i,<F> ){
    $string =~ s/(.*)(\s+)(\S+)/$3$2$1/s;
    if( $string =~ /(.*)\bd\/o\b/ ){
        $extract = $1;
    }else{
        ($retrieve) = $string =~ /(\S+\s+\S+)/;
    }
}
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.