您如何在 perl 中使用 wget 收集变量的值？

Question

我希望使用 wget 收集<UB>的值：这是我的 wget 的 output

<FPT>0</FPT> <UB>13.5</UB>

我希望收集值 13.5（改变）这是我到目前为止所拥有的：

##session wget
my $url= 'wget http://link';
my $html_page = system "wget -S -O - $url";
if($debug){printf "This is a value : $html_page\n";}


#we collect the battery state of the group
use strict;
open (UB, $url);
while (my $volt_batt = <UB>)
{
        if($volt_batt < 13){
                $retour = $ERRORS{'CRITICAL'};
                $output = "CRITICAL - Battery Volt too low: $volt_batt V (<13 V) | batt_volt=$volt_batt\n";
        }
        else{
        if ($volt_batt >= 13){
                $output ="OK, Battery Volt: $volt_batt V (>=13V) | batt_volt=$volt_batt\n";

        }
    }
}

system "$output";
exit $retour; 

Answer 1

这不符合您的要求：

my $html_page = system "wget -S -O - $url";

你想使用readpipe (aka qx`...` aka `` )。

my $html_page = `wget -S -O - $url`;

除了上面的代码注入错误之外。 固定的：

use Shell::Quote qw( shell_quote );

my $cmd = shell_quote( "wget", "-S", "-O", "-", $url );

my $html_page = `$cmd`;

您还可以使用以下命令完全避免 shell：

my @cmd = ( "wget", "-S", "-O", "-", $url );

my $html_page = do {
   open my $pipe, "-|", @cmd;
   local $/;
   <$pipe>
};

[还有许多其他错误。]