將代碼變量hostname，portnumber調用到另一個變量的Perl代碼

Question

#!/usr/bin/perl 
use strict; 
use warnings; 
use LWP::UserAgent; 
use XML::Twig; 
use HTTP::Request; 

my @joblist = ('Testing','Integrity','TEST','Team_test','test','TEST_1','Update_Outlook'); 
my @score; 

foreach my $job_name (@joblist) { 
    my $url_a = 'http://myhost:8080/job/$job_name/api/xml'; 
    my $ua = LWP::UserAgent->new; 
    $ua->timeout(10); 
    $ua->env_proxy; 
    my $response = $ua->get($url_a); 
    if ($response->is_success) { 
     my $content = $response->decoded_content; # or whatever 
     XML::Twig->new(twig_roots => { 'healthReport/score' => sub { push @score, $_->text; } }) ->parseurl($url_a); 
     foreach my $var (@score) { 
      print "$var \n"; 
     } 
    } 
    else { 
     die $response->status_line; 
    } 
} 

在上面的perl代碼中，我將$ job_name調用到另一個變量$ url_a中。 但我得到以下錯誤。

404 Not Found at health.pl line 25. 

請問有人能幫我解答。謝謝。

Answer 1

試試這個版本：

#!/usr/bin/perl 
use strict; 
use warnings; 
use LWP::UserAgent; 
use XML::Twig; 
use HTTP::Request; 

my @joblist = qw|Testing Integrity TEST Team_test test TEST_1 Update_Outlook|; 
my @score; 

foreach my $job_name (@joblist) { 
    my $url_a = join("/","http://myhost:8080/job",$job_name,"api/xml"); 
    my $ua = LWP::UserAgent->new; 
    $ua->timeout(10); 
    $ua->env_proxy; 
    my $response = $ua->get($url_a); 
    if ($response->is_success) { 
     my $content = $response->decoded_content; # or whatever 
     XML::Twig->new(twig_roots => { 'healthReport/score' => sub { push @score, $_->text; } }) ->parseurl($url_a); 
     foreach my $var (@score) { 
      print "$var \n"; 
     } 
    } 
    else { 
     printf STDERR "ERROR job: %s, result: %s\n", 
     $job_name, $response->status_line; 
    } 
}