Re^2: Net::OpenSSH quoting problems

[jhuijsing]

That doesn't work

#with the debug flag set
$Net::OpenSSH::debug |= 16;

$object =~ s/( \d+-\d+)/\\$1/g;
$cmd = qq|blah blah $object blah blah|;

( $output, $errput ) = $ssh->capture2(  $cmd )
              or $logger->logdie( "bad".$ssh->error );


using the debugger
x $object
item 0-7 0-9
after substitution
x $object             
item \\ 0-7\\ 0-9'
# lot of stuff removed the 
#open_ex  ......  'blah blah item\\ 0-7\\ 0-9

It sending a \\ not "item\ 0-7\ 0-9"

[Laurent_R]

This works for me:

  DB<5>  $object = "2-4 5-12"

  DB<6>  $object =~ s/([-\d]+)/\\$1/g

  DB<7> p $object
\2-4 \5-12

Or you could store the backslash in a variable and use that variable:

  DB<11>  $c = '\\';

  DB<12> p $c
\
  DB<13>  $object = "2-4 5-12"

  DB<14> $object =~ s/([-\d]+)/$c$1/g;

  DB<15> p $object
\2-4 \5-12

[soonix]

If you look at Re^3: Net::OpenSSH quoting problems, you see that Laurent_R uses p for looking at $object. This is what makes the difference.

x "dumps" the value so that it could be eval'ed back, p simply outputs it. See perldebug

[jhuijsing]

Ok so when I use p to look the variable it look correct But, it still not right when I look at the debug from NET::OPENssh The string being sent still has the double \\ and the appliance reject this and I get an error

[salva]

Set $Net::OpenSSH::debug = -1 in order to see what is the module actually sending to the remote host.