Escaping doppi apici nello script expect

Question

#!/usr/bin/perl 

$command = "SetBaseStationParam(\\\"PDP_ACTIVATION_REJECT\\\",0);" 
system (boa.exp $command); 

boa.exp script accetta questo comando di accesso a un computer Linux ed esegue lo script.

# /Usr/bin/expect 
set timeout 5 
set arg1 [lindex 0] 
spawn ssh root@10.xx.xx.xx 

expect "password:" 
send "pass\r" 
expect "$" 

send "$arg1\r" 
expect "$" 

Ma questo script è di rimuovere le prime virgolette nel comando e la stampa come

uscita è

SetBaseStationParam(\PDP_ACTIVATION_REJECT",0); 

risultato atteso è

SetBaseStationParam("PDP_ACTIVATION_REJECT",0); 

Per favore fatemi sapere se c'è qualche soluzione per questo

Answer 1

Quando si utilizzano i doppi backslash, il carattere di escape della barra rovesciata è di escape, quindi il modo corretto per evitare un preventivo è \".

Tuttavia, una soluzione migliore è utilizzare qq(). Può essere utilizzato con una grande varietà di personaggi come delimitatore, come | ad esempio:

$command = qq|SetBaseStationParam("PDP_ACTIVATION_REJECT",0)|; 

o nel vostro caso, anche utilizzare le virgolette singole

$command = 'SetBaseStationParam("PDP_ACTIVATION_REJECT",0)'; 

È necessario essere consapevoli che non si utilizza

use strict; 
use warnings; 

È davvero una pessima idea.