Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
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?
NodeReaper settles into the armchair by the fire. You weren't using it were you?

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (4)
As of 2018-02-18 11:45 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    When it is dark outside I am happiest to see ...














    Results (253 votes). Check out past polls.

    Notices?