in reply to Split Decision

Try "\n" instead.


Examine what is said, not who speaks.
Silence betokens consent.
Love the truth but pardon error.

Replies are listed 'Best First'.
Re^2: Split Decision
by Aragorn (Curate) on Jan 06, 2005 at 14:37 UTC
    '\n' will also work:
    #!/usr/bin/perl my $string = "Bla\nBlo\nBloe"; print join("|", split('\n', $string));
    This works, and the reason becomes clear when you run it through B::Deparse:
    $ perl -MO=Deparse split.pl my $string = "Bla\nBlo\nBloe"; print join('|', split(/\n/, $string, 0)); split.pl syntax OK

    Arjen

      You live and learn :) What a stupid special exception!


      Examine what is said, not who speaks.
      Silence betokens consent.
      Love the truth but pardon error.

        It's not really a special exception, the first argument to split() is a regular expression, irrespective of what the delimiters are, the only special case there being the difference between / / and ' '.

        /J\

        Some playing around shows it's not an exception:
        #!/usr/bin/perl my $string = "Bla\nBlo\nBloe"; print join("|", split('something', $string));
        This code is parsed as
        ~$ perl -MO=Deparse split.pl my $string = "Bla\nBlo\nBloe"; print join('|', split(/something/, $string, 0)); split.pl syntax OK
        The same goes for double quotes. split() expects a regex, but apparently will settle for things in quotes and interpret the string as a regex. Indeed, you live and learn :-)

        Arjen