swampyankee has asked for the wisdom of the Perl Monks concerning the following question:
I'm getting back to Perl after about a decade, so I am, at times, running into cluelessness issues. One I just had is some confusion with split. I have to process surnames, some of which contain hyphens or whitespace. If the name contains neither whitespace nor a hyphen, I want to change it to proper case (ucfirst(lc($_)), but if it's hyphenated or has embedded whitespace, I want to split it at either the hyphen or the whitespace, upcase each chunk, and rejoin it.
The way (doubtless close to pessimal) that I'm using right now is something like this:
I was expecting a name (say SMITH-JONES) to be divided into three pieces: "SMITH", "-", "JONES". This is not what happened: I got "S","","M","","I","","T","","H","-","J","","O","","N","","E","","S" What did I do wrong? The split's documentation seems to say that / / doesn't split between every character, but " " does.my $name = $record[0]; # it's being pulled from a roster written (for +some completely inane reason) in ALL CAPS) if($name =~ /-| /) { my @temp = split(/(-| )/,$name) { ucfirst(lc($_)) foreach(@temp); $name=''; $name =. $_ foreach(@temp); } else { $name = ucfirst(lc($name)); }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Split confusion
by AnomalousMonk (Archbishop) on Jun 03, 2020 at 16:27 UTC | |
by afoken (Chancellor) on Jun 03, 2020 at 19:35 UTC | |
by AnomalousMonk (Archbishop) on Jun 03, 2020 at 22:33 UTC | |
by swampyankee (Parson) on Jun 03, 2020 at 18:37 UTC | |
by soonix (Canon) on Jun 03, 2020 at 19:23 UTC | |
by bliako (Monsignor) on Jun 03, 2020 at 20:49 UTC | |
by Fletch (Bishop) on Jun 03, 2020 at 18:06 UTC | |
Re: Split confusion
by hippo (Bishop) on Jun 03, 2020 at 15:19 UTC | |
Re: Split confusion
by kcott (Archbishop) on Jun 04, 2020 at 08:30 UTC | |
Re: Split confusion
by bliako (Monsignor) on Jun 03, 2020 at 21:15 UTC | |
Re: Split confusion
by davido (Cardinal) on Jun 03, 2020 at 22:07 UTC | |
by swampyankee (Parson) on Jun 04, 2020 at 01:58 UTC | |
Re: Split confusion
by perlfan (Vicar) on Jun 03, 2020 at 15:21 UTC |
Back to
Seekers of Perl Wisdom