Lines Matching refs:separator

2965     my $separator = shift;
2969     # string of joined values with $separator as the separator.
2970     my $found_array = !defined($separator);
2995         join($separator, grep { defined($_) && $_ ne "" } @values);
2999     my $separator = " ";
3002         $separator = $opts->{separator};
3005     sub { _add($separator, @x, @_) };
3008     my $separator = " ";
3011         $separator = $opts->{separator};
3014     sub { _add($separator, @_, @x) };
3557 # tokenize($line,$separator)
3559 # $separator [optional] is a regular expression that separates the tokens,
3572     my $separator = shift // qr|\s+|;
3576         print STDERR "DEBUG[tokenize]: \$separator = $separator\n";
3579     while ($line =~ s|^${separator}||, $line ne "") {
3582         $line =~ m/^(.*?)(${separator}|"|'|$)/;