Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re: Seeking a better way to do it

by vinoth.ree (Parson)
on Feb 01, 2013 at 05:15 UTC ( #1016438=note: print w/ replies, xml ) Need Help??


in reply to Seeking a better way to do it

Use grep!!!

my $char_list = "Enter Iago, Othello, and others"; my @Word_List = grep { /[A-Z]\w+/ } split(/\W/, $char_list); print "@Word_List\n";
Update:

Simple way with regular expression,

my $char_list = "Enter Iago, Othello, and others"; my @Word_List; @Word_List = ($char_list =~ /([A-Z]\w+)/g); print "@Word_List\n";


Comment on Re: Seeking a better way to do it
Select or Download Code
Re^2: Seeking a better way to do it
by frozenwithjoy (Curate) on Feb 01, 2013 at 05:22 UTC
    This works assuming OP also wants to return 'Enter'. This is left out of the requirements, but I'm not sure if it is an oversight or not.
Re^2: Seeking a better way to do it
by Tux (Monsignor) on Feb 01, 2013 at 07:33 UTC

    That would also match camelCase and Some_shell, you'd want

    my @wordlist = ($string =~ m{\b ([A-Z][a-z]+) \b}gx);

    as BrowserUK also posted


    Enjoy, Have FUN! H.Merijn

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1016438]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (7)
As of 2014-12-25 18:39 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (161 votes), past polls