I want to extract the first n words of a string. The expression I have is the following (for extracting five words)It works OK if there are no punctuation signs, but doesn't work if there are, i.e. if $out is "The Victoria Yoga Centre Society is bla bla bla" then it works, if it is "Producing & selling of yogaprops like bla bla bla" does not work

How should I modify the above statement to simply ignore punctuation signs?

Thanks a lot.

Ivan
-----
Iyengar Yoga Resources / GT Plugins

http://www.perlmonks.org/...amp;lastnode_id=1826

- wil

Thanks, Wil.

The second example works (the third removed the punctuation signs, haven't tested the first).

Ivan
-----
Iyengar Yoga Resources / GT Plugins

No worries. Lucky I just happened to have that bookmarked.

- wil

Yeah you could use \b but you could just do it with:

@words = split /\s+/, $string, 4;

print join ' ', @words;

Or something like that :)

Yes. That's the last example in the URi given.


But that's not the best way, IMO.

- wil

Thats nothing like what I just gave

...nevertheless it is a good way as it limits split to what it needs.

True. Which probably makes it a fraction faster. Maybe?

- wil