- or download this
$exp->send("$command ; echo COMMAND_RET:$? | sed 's/^/COMMAND_OUT: /g
+'; echo -n END_; echo EXPECT\n");
- or download this
my $cmd = "$command ; echo COMMAND_RET:$? | sed 's/^/COMMAND_OUT: /g';
+ echo -n END_; echo EXPECT\n";
warn "Sending command [$cmd]";
$exp->send($cmd);
- or download this
my $cmd = sprintf q{%s; echo COMMAND_RET:$? | sed 's/^/COMMAND_OUT: /g
+'; echo -n END_; echo EXPECT\n}, $command;
warn "Sending command [$cmd]";
$exp->send($cmd);