Как получить доступ к переменным в Perl из файла конфигурации для списка шифров SSL - PullRequest
Новая
       10

Как получить доступ к переменным в Perl из файла конфигурации для списка шифров SSL

0 голосов
/ 16 октября 2018

Я новичок в Perl, мне нужно отредактировать код так, чтобы код брал список шифров из другого файла, скажем, B-файл. Список шифров должен быть переменной в другом файле B (файл конфигурации), значениепеременная должна использоваться в объекте 'IO: Socket', который используется в коде Perl в файле A.

Ниже приведен код из файла A (bin-файл).Вместо строки «Список шифров SSL» (3-я строка) он должен быть отредактирован таким образом, чтобы он брал значение списка шифров (как переменную) из файла B (файл конфигурации).

Файл: 

# Create the SSL Socket:
if($useSSL) {
$socket = 10::Socket::SSL->new(
PeerAddr    => "${address}",
PeerPort    => "${port}",
SSL cipher list =>'ECDH+AES128:ECDH+AESGCM:ECDH+AES256:DH+AES:DH+AESGCM:DH+AES256:RSA+AES:RSA+AESGCM:LaNULL:!RC4:!MD5:!DSS:!3DES:!SSLy3'A
)

Ниже строк, которые я выборочно вставил вместо включения всех строк. Файл конфигурации уже определен в коде:

Aфайл (bin-файл) : 

$args{ ' client '} && do { client (

'address' => $args{address},

' config' => $config,

B-файл (файл конфигурации) .Здесь тоже нужно редактировать, это выглядит примерно так: 

   .................................... # 

Daemon Section # ################## section daemon
set listenTimeout        
set port        
set ssl        
set http        
set sslKey
set sslCert        
set maxConnections
set shimDir
...