Lines Matching refs:separator
2966 my $separator = shift;
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,
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}|"|'|$)/;