Как строка манипулировать/извлекать содержимое объекта в CSR с помощью команды OpenSSL + Perl?

Question

В настоящее время я работаю над тем, чтобы правильно извлекать каждое содержимое в теме файла CSR. У меня есть рабочий фрагмент, но я застрял, когда у значений есть слэш/(например, контент CSR имеет OrganizationUnit = orgunit/testou) для значений. То, как я делаю, чтобы извлечь содержимое, - это использовать регулярное выражение, разбить его и нажать на него в хэше и вернуть его обратно в интерфейс. Смотрите ниже:

sub CSRDecode{ 
########################################################################### 
################Do Your Validation######################################### 
########################################################################### 
my @returnInfo = `openssl req -in /opt2/myfiles/perllib/custom/OpenSSL/certreq.csr -text -noout` or die "Could not validate CSR"; 
my $Subj= `openssl req -in /opt2/myfiles/perllib/custom/OpenSSL/certreq.csr -subject -noout` or die "Could not validate CSR"; 
print $Subj; 
print @returnInfo; 
my $KeySize= @returnInfo[6]; 


my $SubjAltName =`openssl req -in /opt2/myfiles/perllib/custom/OpenSSL/certreq.csr -text -noout|grep -E 'email|DNS'`; #or die "Could not get SAN"; 

$KeySize=~s/^\s+|\s+$//g; 
$KeySize=~/(.+?)/; 
$Subj =~ s/^\s+|\s+$//g; 

print $Subj; 
$SubjAltName=~ s/^\s+|\s+$//g; 

my %CSRInfo=split/[=\/]/,$Subj; 
if(%CSRInfo){ 
%CSRInfo->{SubjAltName}.=$SubjAltName; 
%CSRInfo->{keysize}.=$KeySize; 
} 


print Dumper \%CSRInfo; 

####################################################################### 

Вход: CSR Файл с Subject похожее на это:

subject=/O=ABCCommon/OU=abcfoundation/ops1/emailAddress=allgroup@abccommon.com/L=NYC/ST=AMER/C=AMER/CN=commonName 

Ожидаемый результат после экстракции (HASH) - Обратите внимание на содержание подразделений, которое имеет "/"

$VAR1 = { 
 
      'CN' => 'commonName', 
 
      'keysize' => 'RSA Public Key: (2048 bit)', 
 
      'SubjAltName' => 'DNS:serverxxx.internal@abc.com, IP Address:192.168.1.1', 
 
      'ST' => 'AMER', 
 
      'O' => 'ABCCommon', 
 
      'emailAddress' => 'allgroup@abccommon.com', 
 
      'subject' => '', 
 
      'OU' => 'abcfoundation/ops1', 
 
      'C' => 'AMER', 
 
      'L' => 'NYC' 
 
     };

В настоящее время выход жонглирует, ause Я думаю, что регулярное выражение неправильно обрабатывает «split». Я имею в виду my %CSRInfo=split/[=\/]/,$Subj; в фрагменте кода. У меня могут быть некоторые проблемы в моем регулярном выражении, и я ценю вашу помощь, спасибо!

Answer 1

А, ок. Да я вижу. Вы пытаетесь разделить на /, но имеете шаблон, содержащий /. Это становится сложным, но я бы, наверное, попытаться подойти к нему так:

#!/usr/bin/env perl 
use strict; 
use warnings; 
use Data::Dumper; 

my $subj = 
    'subject=/O=ABCCommon/OU=abcfoundation/ops1/emailAddress=allgroup@abccommon.com/L=NYC/ST=AMER/C=AMER/CN=commonName'; 

my %subjinfo = ($subj =~ m,(\w+)=([^=]*)(?:/|$),g); 
print Dumper \%subjinfo; 

Это тогда дает:

$VAR1 = { 
      'subject' => '', 
      'L' => 'NYC', 
      'C' => 'AMER', 
      'OU' => 'abcfoundation/ops1', 
      'emailAddress' => 'allgroup@abccommon.com', 
      'ST' => 'AMER', 
      'CN' => 'commonName', 
      'O' => 'ABCCommon' 
     }; 

Я думаю, что дает то, что вам нужно. Это регулярное выражение повторяется, и захватывает пары «вещей», по обе стороны от = заканчивая либо / или «конец строки» $

Поскольку мы соответствие парами (последняя группа имеет (?: обозначать это не- захват), они могут быть напрямую привязаны к хешу.