Help for this page
my $string = "foo.bar.foobar"; my $count = 2; ... $count = 3; @splits = reverse map {scalar reverse} split(/\./,reverse($string),$co +unt); # --> @splits = qw/ foo.bar.foobar baz biff /
www.com | www.net | www.org
No recent polls found