Learning Perl: 9.2. The split Operator

9.2. The split Operator

Another operator that uses regular expressions is split,which breaks up a string according to a pattern. This is useful for tab-separated,colon-separated,whitespace-separated,or anything-separated data.^[

^[

] Except "comma-separated values," normally called CSV files. Those are a pain to do with split; you're better off getting the Text::CSV module from CPAN.

    @fields = split /separator/,$string;

The split operator^[

^[

] It's an operator,though it acts a lot like a function,and everyone generally calls it a function. But the technical details of the difference are beyond the scope of this book.

    @fields = split /:/,"abc:def:g:h";  # gives ("abc","def","g","h")

You could even have an empty field if there were two delimiters together:

    @fields = split /:/,"abc:def::g:h";  # gives ("abc","","h")

Here's a rule that seems odd at first,but it rarely causes problems: leading empty fields are always returned,but trailing empty fields are discarded:^[*]

^[*] This is merely the default. It's this way for efficiency. If you worry about losing trailing empty fields,use -1 as a third argument to split and they'll be kept. See the perlfunc manpage.

    @fields = split /:/,":::a:b:c:::";  # gives ("","a","b","c")

It's common to split on whitespace using //s+/ as the pattern. Under that pattern,all whitespace runs are equivalent to a single space:

    my $some_input = "This  is a /t        test./n";
    my @args = split //s+/,$some_input;  # ("This","is","test.")

The default for split is to break up $_ on whitespace:

    my @fields = split;  # like split //s+/,$_;

This is almost the same as using //s+/ as the pattern except,in this special case,a leading empty field is suppressed. So,if the line starts with whitespace,you won't see an empty field at the start of the list. (If you'd like to get the same behavior when splitting another string on whitespace,use a single space in place of the pattern: split ' ',$other_string. Using a space instead of the pattern is a special kind of split.)

Generally,the patterns used for split are as simple as the ones you see here. But if the pattern becomes more complex,avoid using memory parentheses in the pattern. See the perlfunc manpage for more information.^[

^[

] You might want to check out the nonmemory grouping-only parentheses notation as well in the perlre manpage.