Lines Matching refs:separator
670 # The default is the Unix like separator, :, but as an exception, we also
671 # support the space as separator.
2966 my $separator = shift;
2968 # If there's any ARRAY in the collection of values OR the separator
2970 # string of joined values with $separator as the separator.
2971 my $found_array = !defined($separator);
2996 join($separator, grep { defined($_) && $_ ne "" } @values);
3000 my $separator = " ";
3003 $separator = $opts->{separator};
3006 sub { _add($separator, @x, @_) };
3009 my $separator = " ";
3012 $separator = $opts->{separator};
3015 sub { _add($separator, @_, @x) };
3551 # tokenize($line,$separator)
3553 # $separator [optional] is a regular expression that separates the tokens,
3558 # Tokens are divided by separator (spaces by default). If the tokens include
3566 my $separator = shift // qr|\s+|;
3570 print STDERR "DEBUG[tokenize]: \$separator = $separator\n";
3573 while ($line =~ s|^${separator}||, $line ne "") {
3576 $line =~ m/^(.*?)(${separator}|"|'|$)/;