1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
package Net::OpenSSH::ShellQuoter::fish;
use strict;
use warnings;
use Carp;
sub new { __PACKAGE__ }
my $noquote_class = '.\\w/\\-@,:';
my $glob_class = '*?\\[\\],\\{\\}:!^~';
sub quote {
my $quoted = $_[1];
return $quoted if $quoted =~ /\A[$noquote_class]+\z/o;
$quoted =~ s/([\'\\])/\\$1/g;
"'$quoted'"
}
sub quote_glob {
shift;
my $arg = shift;
my @parts;
while ((pos $arg || 0) < length $arg) {
if ($arg =~ m|\G('+)|gc) {
push @parts, (length($1) > 1 ? "\"$1\"" : "\\'");
}
elsif ($arg =~ m|\G([$noquote_class$glob_class]+)|gco) {
push @parts, $1;
}
elsif ($arg =~ m|\G(\\[$glob_class\\])|gco) {
push @parts, $1;
}
elsif ($arg =~ m|\G\\|gc) {
push @parts, '\\\\'
}
elsif ($arg =~ m|\G([^$glob_class\\']+)|gco) {
push @parts, "'$1'";
}
else {
require Data::Dumper;
$arg =~ m|\G(.+)|gc;
die "Internal error: unquotable string:\n". Data::Dumper::Dumper($1) ."\n";
}
}
my $quoted = join('', @parts);
length $quoted ? $quoted : "''";
}
my %fragments = ( stdin_discard => '</dev/null',
stdout_discard => '>/dev/null',
stderr_discard => '2>/dev/null',
stdout_and_stderr_discard => '>/dev/null 2>&1',
stderr_to_stdout => '2>&1' );
sub shell_fragments {
shift;
my @f = grep defined, @fragments{@_};
wantarray ? @f : join(' ', @f);
}
1;
|
