Perl recursive regular expression

pravin27 · March 30, 2011, 2:05am

Hi,
How can I do recursive pattern match in perl with regular expression.
I have file with record like below.

pravin test1 test2 pravin test3 test5 test99 pravin test88

desire o/p

pravin pravin pravin

bartus11 · March 30, 2011, 3:12am

Try:

perl -lne '$,=" ";print /pravin/g' file

pravin27 · March 30, 2011, 3:52am

Hi bartus11,

Thanks. Is there any way with regular expression ? Without changing $, ?

bartus11 · March 30, 2011, 3:57am

It is using regular expression: /pravin/g. $, is used just to format the output properly.