Search and replace using a specific pattern 2

[komark]

Hi,

I am trying to search and replace in a file. I am trying to look for the word: foo in every line:

foo f1 f2 f3.....

and replace it with:

foo f1 new_word f2 f3...

I think i'm close with the following line of code but not quite there yet:
$line =~ s/^foo(\s)*/.foo(\s)*new_word/;

Thanks in advance!
Omar.

 

[rharsh]

Based on the sample data you provided, you're close! Try something like:

$line =~ s/(foo \S+)/$1 new_word/

 

[Annihilannic]

Try:

$line = s/^(foo\s+\S+)/$1 new_word/

(foo \s+\S+) captures "foo", the spaces and word following foo, and $1 inserts the captured string into the replacement string.

Annihilannic.

 

[komark]

Thanks Annihilannic - it worked.