Skip to content

Instantly share code, notes, and snippets.

@silvers
Last active December 12, 2015 04:08
Show Gist options
  • Save silvers/4711975 to your computer and use it in GitHub Desktop.
Save silvers/4711975 to your computer and use it in GitHub Desktop.
If LIMIT is omitted, split removes trailing empty fields. If LIMIT is negative, split keeps all fields.
#!/usr/bin/perl
use strict;
use warnings;
use 5.10.0;
my $str = 'aaa::bbb:::fff::::';
# no limit
my @array1 = split /:/, $str;
say join ',', @array1; # => aaa,,bbb,,,fff
# smaller
my @array2 = split /:/, $str, 8;
say join ',', @array2; # => aaa,,bbb,,,fff,,::
# bigger
my @array3 = split /:/, $str, 100;
say join ',', @array3; # => aaa,,bbb,,,fff,,,,
# negative
my @array4 = split /:/, $str, -1;
say join ',', @array4; # => aaa,,bbb,,,fff,,,,
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment