Как приостановить предупреждающее сообщение https в Perl

Я использую https-соединение без какого-либо сертификата с использованием LWP.

Как приостановить это надоедливое предупреждающее сообщение, чтобы я мог видеть только номер в последней строке:

*******************************************************************
 Using the default of SSL_verify_mode of SSL_VERIFY_NONE for client
 is deprecated! Please set SSL_verify_mode to SSL_VERIFY_PEER
 together with SSL_ca_file|SSL_ca_path for verification.
 If you really don't want to verify the certificate and keep the
 connection open to Man-In-The-Middle attacks please set
 SSL_verify_mode explicitly to SSL_VERIFY_NONE in your application.
*******************************************************************
  at C:/perl/lib/LWP/Protocol/http.pm line 31.
0

?

Это сообщение появляется, и я использую сертификат Winthout соединения https!

Вот исходный код:

#!/usr/bin/perl
use LWP::UserAgent;
use JSON;

$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;
# my $ua = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0 });
my $ua = LWP::UserAgent->new();
$ua->timeout(15);
my $response = $ua->get("https://useful_link");
if ($response->is_success) {
    my $json_text = decode_json $response->content;
    my $max_val = -1;
    for(my $i = 0; $json_text->{'monitors'}[$i]; $i++) {
        # Поиск по значениям хэша с ключом 'monitors'
        for(my $j = 0; ; $j++) {
            # Поиск по значениям хэша 'properties'
            my $json_var = $json_text->{'monitors'}[$i]{'properties'}[$j]{'key'};                       
            if($json_var eq "MemoryPercentUsage") {
                my $json_val = $json_text->{'monitors'}[$i]{'properties'}[$j]{'value'};
                if($json_val > $max_val) { $max_val = $json_val; }
                last;
            }
            elsif($json_var) { next; }
            else { last; }
        }
    }
    print $max_val >= 0 ? $max_val : "Error! Cannot evaluate parameters value!";
}
else { die sprintf "Error! HTTP code: %d - Message:'%s'", $response->code, $response->message; }

https perl lwp
person mat90x    schedule 04.12.2013    source источник

Ответы (1)


arrow_upward
1
arrow_downward

It's OK.

У меня есть свое корявое решение:

open my $saveout, ">&STDERR";
open STDERR, '>', File::Spec->devnull(); # Связывание STDERR с devnull
# Необходимые операции
my $ua = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0 });
$ua->timeout(15);
my $response = $ua->get("https://useful_link");
# Конец
open STDERR, ">&", $saveout; # Восстановление STDERR

Просто связал STDERR с devnull :)

person mat90x    schedule 04.12.2013