Re^4: scp recommendations

# No good on Windows
sub text_to_shell_lit {
   my ($s) = @_;
   $s =~ s/'/'\\''/g;
   return "'$s'";
}
[download]

my $cmd = join ' ', map text_to_shell_lit($_), scp => '-t', @args; system(ssh => $cmd);
[download]

Comment on Re^4: scp recommendations Select or Download Code

Replies are listed 'Best First'.
Re^5: scp recommendations by salva (Canon) on Aug 02, 2010 at 07:38 UTC
well, actually it should be... `my $quoted_to = text_to_shell_lit($to); system 'scp', '--', $from, "${host}:$quoted_to";` [download] or `my $quoted_from = text_to_shell_lit($from); system 'scp', '--', "${host}:$quoted_from", $to;` [download]	[reply] [d/l] [select]
Re^6: scp recommendations by ikegami (Patriarch) on Aug 02, 2010 at 09:15 UTC
Oh! I see what you were saying now.	[reply]