in reply to Re: Find a specific word in a text file
in thread Find a specific word in a text file

Thanks a lot. I now can locate and get the position index of the word I was searching. Now I need to move some blank spaces and 4 letters forward to grab five digits. How do I do that, where can I find an example? Thanks.
  • Comment on Re^2: Find a specific word in a text file

Replies are listed 'Best First'.
Re^3: Find a specific word in a text file
by ysth (Canon) on Sep 09, 2004 at 16:00 UTC
    Easiest way is to (adjust pos($yourstring) if needed and) do a scalar match with the //g or //gc flags. Untested: 
    # find word
if ($string =~ /\bword\b/g) {
   # skip forward from end of word 12 characters (just an example)
   pos($string) = pos($string)+12;
   # skip forward over whitespace and grab 5 digits:
   if ($string =~ /\s*(\d{5})/gc) {
       print "here are your digits: $1";
       # now pos points to after digits
   } else {
       # pos is unchanged (due to /c flag); try something else
   }
}

    [download]
[reply]
[d/l]
      Thanks for your help. I got it working now.
[reply]

In Section Seekers of Perl Wisdom