in reply to Re: backward split
in thread backward split

This does not work because it splits the foo.bar portion of the string, which should remain intact according to normal split usage, when split is supplied with a limit.

Replies are listed 'Best First'.
Re: Re: Re: backward split
by Enlil (Parson) on Jun 01, 2003 at 01:00 UTC
    Sorry, misinterpreted your intent. This should work to split it that way then:
    #!/usr/bin/perl -w
use strict;

my $string = "foo.bar.foobar";
my ($val1,$val2) = split /\.(?!.*\.)/,$string;
print "$val1,$val2\n";

    [download]

    update:and another way:

    #!/usr/bin/perl -w
use strict;
my $string = "foo.bar.foobar";
my $position = rindex($string,'.');
my ($val1,$val2) = (
  substr($string,0,$position++),
  substr($string,$position)
);
print "$val1,$val2\n";

    [download]
    update:Apparently, I suffer from not enough laziness, as in the end would probably have kept thinking there has to be a more elegant solution, and would hopefully stumbled upon sauoq's solution below at some point, which I think is the best solution, but leave the above code if only to show TMTOWTDI.

    -enlil

[reply]
[d/l]
[select]

      Of course, you can use a positive lookahead too... 

      my ($val1, $val2) = split /\.(?=[^.]*$)/, $string;

      [download]
      but really... neither choice is better than a simple capturing regex. 

      -sauoq
"My two cents aren't worth a dime.";
[reply]
[d/l]

In Section Seekers of Perl Wisdom