Escaping doppelte Anführungszeichen in expect-Skript

Question

#!/usr/bin/perl 

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

boa.exp Skript wird diesen Befehl Login auf einem Linux-Rechner und führt das Skript.

# /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 "$" 

Aber dieses Skript die erste doppelte Anführungszeichen in dem Befehl zu entfernen und drucken als

Ausgang ist

SetBaseStationParam(\PDP_ACTIVATION_REJECT",0); 

Erwartete Ausgabe

SetBaseStationParam("PDP_ACTIVATION_REJECT",0); 

ist Bitte lassen Sie mich wissen, wenn es dafür eine Lösung gibt

Answer 1

Wenn Sie doppelte umgekehrte Schrägstriche verwenden, wird der umgekehrte Schrägstrich entfernt. Daher ist der richtige Weg, um ein Angebot zu umgehen, \".

Eine bessere Lösung ist jedoch qq() zu verwenden. Es kann mit einer Vielzahl von Zeichen als Trennzeichen, wie | zum Beispiel verwendet werden:

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

Oder in Ihrem Fall sogar Apostrophe

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

verwenden, sollten Sie sich bewusst sein, dass nicht

mit

use strict; 
use warnings; 

Ist eine sehr schlechte Idee.