http://qs321.pair.com?node_id=1214719


in reply to Re: HTTP PUT Request with separate values in csv
in thread HTTP PUT Request with separate values in csv

Sorry,I've changed my posting. And about your question:
I think my Problem is to separate my hush in right way: 

(my $id, $first{$name}, $second{$name}) = split /,/;

[download]

There is no Problem with the server
I've tested it already with this code: 

 open ( my $input_1, '<', 'output1.csv' ) or die $!;
  while ( <$input_1> ) {
    chomp;
    my ($name_1, $ip_1) = split /,/;

    my $xml = XML::Twig -> new -> parsefile ( 'example.xml' );
      $xml ->set_pretty_print('indented_a');

    open ( my $input_2, '<', 'output2.csv' ) or die $!;
    while ( <$input_2> ) {
     chomp;
     (my $id, $first{$name}, $second{$name}) = split /,/;
     $xml -> root -> set_att('name', $name_1);
     $xml -> get_xpath('//ipaddress',0) -> set_text($ip_1);
     my $uri="https://hostname:9060/ers/config/networkdevice/$id";
     my $req = HTTP::Request->new('PUT', $uri,
     [Accept=>'application/vnd.com.cisco.ise.network.networkdevice.1.1
++xml',
     Content_Type=>'application/vnd.com.cisco.ise.network.networkdevic
+e.1.1+xml; charset=utf-8'], $xml->sprint);

      $req->content($xml->sprint);
      $req->authorization_basic("user", "user");

[download]

It works, but it works wrong!This code updates every device (also identical devices) And I have this message.After Update it tries to do smth(I do not understand what)and I become 400,405 Http Status. I also get warnings: 

UPDATE need be done for 10.56.7.80
200 OK
400 Bad Request
Use of uninitialized value $id in concatenation (.) or string at My_Fi
+le line 65, <$_[...]> line 3.
405 Method Not Allowed
Use of uninitialized value $id in concatenation (.) or string at My_Fi
+le line 65, <$_[...]> line 4.
405 Method Not Allowed
400 Bad Request

[download]

10.56.7.80 example ip address 

Line 65: my $uri="https://10.66.1.16:9060/ers/config/networkdevice/$id
+";

[download]

Replies are listed 'Best First'.
Re^3: HTTP PUT Request with separate values in csv
by Veltro (Hermit) on May 17, 2018 at 11:19 UTC

    OK, but you are still not trying to do what I suggested.

    Minimize your code and create much smaller pieces of test code so you will be able to learn how to debug your own code.

    I'll give you another example what I am talking about. In the next piece of text code I have found multiple problems, so play around with it a little bit and try to fix it yourself:

    use strict;
use warnings;
use Data::Dumper;

my ($file_1, $file_2) = ('output1.csv', 'output2.csv');

open my $fh, '<', $file_1  or die "Can't open $file_1: $!";
my %first = map { chomp; split /\s*,\s*/ } <$fh>;

print Dumper( \%first ) ;

open    $fh, '<', $file_2  or die "Can't open $file_2: $!";
my %second = map { chomp; (split /\s*,\s*/)[1,2] } <$fh>;

print Dumper( \%second ) ;

foreach my $name (sort keys %first) {
   if (not exists $second{$name}) {
      print "Devices should be added: $name\n";
      next;
   }
   if ($first{$name} eq $second{$name}) {
      print "Match found $name, $first{$name}\n";
   } else {
      print "UPDATE need be done for $second{$name}\n";

      open ( my $input_1, '<', 'output1.csv' ) or die $!;

      while ( <$input_1> ) {
         chomp;
         print "   input_1 = $_\n" ;
         my ($name_1, $ip_1) = split /,/;
         print "   (1) $name, $ip_1\n" ;
         (my $id, $first{$name}, $second{$name}) = split /,/;
         print "   (2) $id, $first{$name}, $second{$name}\n" ;
      }
   }
}

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom