4 #; require 'shellwords.pl';
5 #; @words = &shellwords($line);
7 #; @words = &shellwords(@lines);
9 #; @words = &shellwords; # defaults to $_ (and clobbers it)
13 local($_) = join('', @_) if @_;
14 local(@words,$snippet,$field);
20 if (s/^"(([^"\\]+|\\[\\"])*)"//) {
21 ($snippet = $1) =~ s#\\(.)#$1#g;
23 elsif (s/^'(([^'\\]+|\\[\\'])*)'//) {
24 ($snippet = $1) =~ s#\\(.)#$1#g;
29 elsif (s/^([^\s\\'"]+)//) {