Learning Perl: 9.2. The split Operator

最新推荐文章于 2010-07-21 18:03:00 发布

zp_mouse

最新推荐文章于 2010-07-21 18:03:00 发布

阅读量337

点赞数

分类专栏： Perl 文章标签： perl whitespace string csv behavior input

本文链接：https://blog.csdn.net/zp_mouse/article/details/5753458

版权

Perl 专栏收录该内容

72 篇文章 0 订阅

订阅专栏

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.^[] Anywhere you can specify the separator with a regular expression (generally, it's a simple regular expression), you can use split. It looks like this:

^[] 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^[] drags the pattern through a string and returns a list of fields (substrings) that were separated by the separators. Whenever the pattern matches, that's the end of one field and the start of the next. So, anything that matches the pattern will never show up in the returned fields. Here's a typical split pattern, splitting on colons:

^[] 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", "def", "", "g", "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", "a", "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.^[]