Beefy Boxes and Bandwidth Generously Provided by pair Networks Ovid
Do you know where your variables are?
 
PerlMonks  

Answer: How do I return the first n words of a string?
( #38661=categorized answer: print w/ replies, xml ) Need Help??

Q&A > strings > How do I return the first n words of a string? contributed by princepawn

Time for some Perl Golf: 
$str=
    'yo ho ho and a bottle crumbs. 
hangin and bangin in the upper-class slums.';

@word = ($str =~ /(\w+)/g);

print join ':', @word[0..4];

[download]

Comment on Answer: How do I return the first n words of a string?
Download Code
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (5)
As of 2013-05-25 04:14 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best material for plates (tableware) is:









    Results (516 votes), past polls