Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: backward split

by athomason (Curate)
on Jun 01, 2003 at 01:04 UTC ( #262153=note: print w/replies, xml ) Need Help??


in reply to backward split

Since it seems you only want the last few items, you will need the three-argument form of split as you've shown. Putting it all back into one line just requires a map:
my $string = "foo.bar.foobar"; my $count = 2; my @splits = reverse map {scalar reverse} split(/\./,reverse($string), +$count); # --> @splits = qw/ foo.bar foobar / $string = "foo.bar.foobar.baz.biff"; $count = 3; @splits = reverse map {scalar reverse} split(/\./,reverse($string),$co +unt); # --> @splits = qw/ foo.bar.foobar baz biff /
That's about as simple as it will get. The scalar forces the string reversal rather than list reversal of each element in the split list. The outermost reverse gives back the original ordering.

--athomason

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://262153]
help
Chatterbox?
[atcroft]: .oO(It is a well-known, well-tried module that has probably encountered more corner-cases and oddities than the average mortal programmer can imagine when trying to roll their own...)
[atcroft]: .oO(*Blah* It, I meant....)
[james28909]: omg
[james28909]: im just finding out that july and august have 31 days?
[atcroft]: stevieb: Apparently it was contagious....
[atcroft]: james28909: Make both hands into fists, place them together (with thumbs concealed), and every knuckle is a month (starting with Jan.) has 31 days, every dip (between knuckles) does not....
[atcroft]: (And Feb. is the odd case, because it is 28, unless it is a year divisible by 4, or if it is divisible by both 100 and 400 (at which point it is 29).)
[james28909]: i know but scroll through your calendar on your computer.
[james28909]: i thiught you were going to say make both hands into a fist and puch yourself in the face
[atcroft]: .oO(Sorry, I probably should have said take two normal hands....)

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (3)
As of 2017-04-29 04:27 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I'm a fool:











    Results (531 votes). Check out past polls.