Re^2: Split Decision

'\n' will also work:

#!/usr/bin/perl

my $string = "Bla\nBlo\nBloe";
print join("|", split('\n', $string));
[download]

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
[download]

Arjen

Comment on Re^2: Split Decision Select or Download Code
Re^3: Split Decision by BrowserUk (Pope) on Jan 06, 2005 at 14:47 UTC
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.	[reply] [d/l]
Re^4: Split Decision by gellyfish (Monsignor) on Jan 06, 2005 at 14:54 UTC
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\	[reply] [d/l] [select]
Re^4: Split Decision by Aragorn (Curate) on Jan 06, 2005 at 14:58 UTC
Some playing around shows it's not an exception: `#!/usr/bin/perl my $string = "Bla\nBlo\nBloe"; print join("\|", split('something', $string));` [download] 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` [download] 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	[reply] [d/l] [select]