Библиотека SOAP::Lite

#!usr/bin/perl -w
 
use MIME::Base64;
use SOAP::Lite;
use POSIX qw(strftime);
 
#Создаем предохранители на случай, если файл запроса или файл подписи не существует
$key1=0;
$key2=0;
my $date = strftime "%Y-%m-%d", localtime;
if(open(FP, "/root/rosreestr/result/request.xml"))
    {$key1=1;}
    
if (open(FP, "/root/rosreestr/result/request.xml.sign"))
    {$key2=1;}
    
#Если оба файла существуют, начинаем
if (($key1==1)&($key2==1))
{
    #Читаем в буфере файл запроса
    
    open(FIL, "/root/rosreestr/result/request.xml");
    while ($line = <FIL>)
    {
        $ln.=$line;
    }
    
    close (FIL);
    
    $req=$ln;
    
    #Читаем в буфер файл подписи
    open(FIL1, "/root/rosreestr/result/request.xml.sign");
    while ($line1 = <FIL1>)
    {
        $ln1.=$line1;
    }
    
    close (FIL1);
    
    $sig = $ln1;
 
#Получаем описание методов для работы с сервисом через wsdl-схему
$soap = SOAP::Lite->new(proxy => 'http://vigruzki.rkn.gov.ru/services/OperatorRequest/');
$soap->service("http://vigruzki.rkn.gov.ru/services/OperatorRequest/?wsdl");
my @params = (
    SOAP::Data->name('requestFile')->type("xsd:base64Binary")->value(encode_base64($req)),
    SOAP::Data->name('signatureFile')->type("xsd:base64Binary")->value(encode_base64($sig)),
    SOAP::Data->name('dumpFormatVersion')->type("xsd:string")->value("2.1"),
);
my $result = $soap->call(sendRequest => @params);
my $code = $result->body->{sendRequestResponse}->{code};
 
@params = (SOAP::Data->name('code')->type("xsd:string")->value($code));
my $resultFile = $soap->call(getResult => @params);
my $answer = $resultFile->body->{getResultResponse}->{resultComment};
 
my $filename = '/root/rosreestr/result/reestr.zip';
open(my $fh, '>', $filename) or die "Не могу открыть '$filename' $!";
binmode $fh;
print $fh $answer;
close $fh;
}

#!usr/bin/perl -w
use strict;
use MIME::Base64;
use SOAP::Lite;
use File::Slurp;
use POSIX qw(strftime);
use 5.14.0;
 
my $buf0 = read_file("/root/rosreestr/result/request.xml");
my $buf1 = read_file("/root/rosreestr/result/request.xml.sign");
 
#Получаем описание методов для работы с сервисом через wsdl-схему
my $soap = SOAP::Lite->new( proxy => 'http://vigruzki.rkn.gov.ru/services/OperatorRequest/' );
$soap->service( "http://vigruzki.rkn.gov.ru/services/OperatorRequest/?wsdl" );
 
my @params = ();
push    @params,
        SOAP::Data->name( 'requestFile'       )->type( "xsd:base64Binary" )->value( encode_base64($buf0) ),
        SOAP::Data->name( 'signatureFile'     )->type( "xsd:base64Binary" )->value( encode_base64($buf1) ),
        SOAP::Data->name( 'dumpFormatVersion' )->type( "xsd:string"       )->value( "2.1");
my $result  = $soap->call(sendRequest => @params);
my $code    = $result->body->{sendRequestResponse}->{code};
 
@params = ();
push    @params,
        SOAP::Data->name('code')->type("xsd:string")->value($code);
 
$result     = $soap->call(getResult => @params);
my $answer  = $result->body->{getResultResponse}->{resultComment};
 
write_file( '/root/rosreestr/result/reestr.zip', {binmode => ':raw'}, $answer ) ;